Bonjour,
Dans la série...
Je souhaite dans une cellule faire ressortir en rouge le mot "Aucun" qui se
trouve dans une phrase.
Je vous remercie
Didier
Dans mon cas la cellule est : Sheets("Ouverture").Range("I9:N9")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Didier,
For Each c In Sheets("Ouverture").Range("I9:N9") On Error Resume Next x = Application.Find("Aucun", c) If Not IsError(x) Then c.Characters(Start:=x, Length:=5).Font.ColorIndex = 3 Next
isabelle
Bonjour, Dans la série... Je souhaite dans une cellule faire ressortir en rouge le mot "Aucun" qui se trouve dans une phrase. Je vous remercie Didier Dans mon cas la cellule est : Sheets("Ouverture").Range("I9:N9")
bonjour Didier,
For Each c In Sheets("Ouverture").Range("I9:N9")
On Error Resume Next
x = Application.Find("Aucun", c)
If Not IsError(x) Then c.Characters(Start:=x, Length:=5).Font.ColorIndex = 3
Next
isabelle
Bonjour,
Dans la série...
Je souhaite dans une cellule faire ressortir en rouge le mot "Aucun" qui se
trouve dans une phrase.
Je vous remercie
Didier
Dans mon cas la cellule est : Sheets("Ouverture").Range("I9:N9")
For Each c In Sheets("Ouverture").Range("I9:N9") On Error Resume Next x = Application.Find("Aucun", c) If Not IsError(x) Then c.Characters(Start:=x, Length:=5).Font.ColorIndex = 3 Next
isabelle
Bonjour, Dans la série... Je souhaite dans une cellule faire ressortir en rouge le mot "Aucun" qui se trouve dans une phrase. Je vous remercie Didier Dans mon cas la cellule est : Sheets("Ouverture").Range("I9:N9")
Didier NOVARIN
Bonjour Isabelle, Je te remercie beaucoup c'est parfait ! Très bonne journée Didier
"isabelle" a écrit dans le message de news:
bonjour Didier,
For Each c In Sheets("Ouverture").Range("I9:N9") On Error Resume Next x = Application.Find("Aucun", c) If Not IsError(x) Then c.Characters(Start:=x, Length:=5).Font.ColorIndex = 3 Next
isabelle
Bonjour, Dans la série... Je souhaite dans une cellule faire ressortir en rouge le mot "Aucun" qui se trouve dans une phrase. Je vous remercie Didier Dans mon cas la cellule est : Sheets("Ouverture").Range("I9:N9")
Bonjour Isabelle,
Je te remercie beaucoup c'est parfait !
Très bonne journée
Didier
"isabelle" <i@v> a écrit dans le message de news:
OpXYVhxjHHA.5012@TK2MSFTNGP04.phx.gbl...
bonjour Didier,
For Each c In Sheets("Ouverture").Range("I9:N9")
On Error Resume Next
x = Application.Find("Aucun", c)
If Not IsError(x) Then c.Characters(Start:=x, Length:=5).Font.ColorIndex =
3
Next
isabelle
Bonjour,
Dans la série...
Je souhaite dans une cellule faire ressortir en rouge le mot "Aucun" qui
se trouve dans une phrase.
Je vous remercie
Didier
Dans mon cas la cellule est : Sheets("Ouverture").Range("I9:N9")
Bonjour Isabelle, Je te remercie beaucoup c'est parfait ! Très bonne journée Didier
"isabelle" a écrit dans le message de news:
bonjour Didier,
For Each c In Sheets("Ouverture").Range("I9:N9") On Error Resume Next x = Application.Find("Aucun", c) If Not IsError(x) Then c.Characters(Start:=x, Length:=5).Font.ColorIndex = 3 Next
isabelle
Bonjour, Dans la série... Je souhaite dans une cellule faire ressortir en rouge le mot "Aucun" qui se trouve dans une phrase. Je vous remercie Didier Dans mon cas la cellule est : Sheets("Ouverture").Range("I9:N9")