[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]
[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Plage [COLOR=NAVY]As[/COLOR] Range, Cel [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] LeMot [COLOR=NAVY]As String[/COLOR], AdrDeb [COLOR=NAVY]As String[/COLOR]
[COLOR=GREEN]'A adapter -----------------------------------[/COLOR]
[COLOR=NAVY]Set[/COLOR] Plage = Sheets("Feuil1").Range("A1:D57")
LeMot = "Mot"
[COLOR=GREEN]' --------------------------------------------[/COLOR]
[COLOR=NAVY]With[/COLOR] Plage
[COLOR=NAVY]Set[/COLOR] Cel = .Find(LeMot, LookAt:=xlPart)
[COLOR=NAVY]If Not[/COLOR] Cel [COLOR=NAVY]Is Nothing Then[/COLOR]
AdrDeb = Cel.Address
[COLOR=NAVY]Do[/COLOR]
Modif Cel, LeMot
[COLOR=NAVY]Set[/COLOR] Cel = .FindNext(Cel)
[COLOR=NAVY]Loop While Not[/COLOR] Cel [COLOR=NAVY]Is Nothing[/COLOR] And AdrDeb <> Cel.Address
[COLOR=NAVY]End If
End With
End Sub[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Modif([COLOR=NAVY]ByRef[/COLOR] Cel [COLOR=NAVY]As[/COLOR] Range, LeMot)
[COLOR=NAVY]Dim[/COLOR] T [COLOR=NAVY]As String
Dim[/COLOR] Pos [COLOR=NAVY]As Integer[/COLOR]
T = Cel.Text
[COLOR=NAVY]Do[/COLOR]
Pos = InStr(Pos + 1, T, LeMot)
[COLOR=NAVY]If[/COLOR] Pos > 0 [COLOR=NAVY]Then
With[/COLOR] Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 3 [COLOR=GREEN]'rouge[/COLOR]
[COLOR=NAVY]End With
End If
Loop Until[/COLOR] Pos = 0
[COLOR=NAVY]End Sub[/COLOR]