Bonjour, il y a plusieurs semaines l'un d'entre vous m'a bien dépanné avec cette macro consistant à modifier dans toutes les cellules d'une feuille EXCEL (PJ le format du mot "loi" : le mettre en gras vert.
Ma question : comment modifier cette macro si je veux modifier maintenant, le format de plusieurs mots différents toujours dans toutes les cellules de la feuille ?
Par exemple sur cette même feuille en PJ, je voudrais que les mots : "loi, "format", "cellule", "macro" soient aussi en gras vert ?
Où les placer dans la macro ? Merci.
Sub LoiVert()
Dim Plage As Range, Cel As Range
Dim LeMot As String, AdrDeb As String
' --------------------------------------------
'A adapter en fonction du mot voulu Et de la Plage voulue
Set Plage = Sheets("Feuil1").Range("A1:Z2000")
LeMot = "loi"
' --------------------------------------------
With Plage
Set Cel = .Find(LeMot, LookAt:=xlPart)
If Not Cel Is Nothing Then
AdrDeb = Cel.Address
Do
Modif Cel, LeMot
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And AdrDeb <> Cel.Address
End If
End With
End Sub
Private Sub Modif(ByRef Cel As Range, LeMot)
Dim T As String
Dim Pos As Integer
T = Cel.Text
Do
'Respecte la casse Majuscule/Minuscule -------
Pos = InStr(Pos + 1, T, LeMot)
' Ne tient pas compte des Majuscule/Minuscule-
' Pos = InStr(Pos + 1, T, LeMot, vbTextCompare)
' --------------------------------------------
If Pos > 0 Then
With Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 4 'VERT
End With
End If
Loop Until Pos = 0
End Sub
Ma question : comment modifier cette macro si je veux modifier maintenant, le format de plusieurs mots différents toujours dans toutes les cellules de la feuille ?
Par exemple sur cette même feuille en PJ, je voudrais que les mots : "loi, "format", "cellule", "macro" soient aussi en gras vert ?
Où les placer dans la macro ? Merci.
Sub LoiVert()
Dim Plage As Range, Cel As Range
Dim LeMot As String, AdrDeb As String
' --------------------------------------------
'A adapter en fonction du mot voulu Et de la Plage voulue
Set Plage = Sheets("Feuil1").Range("A1:Z2000")
LeMot = "loi"
' --------------------------------------------
With Plage
Set Cel = .Find(LeMot, LookAt:=xlPart)
If Not Cel Is Nothing Then
AdrDeb = Cel.Address
Do
Modif Cel, LeMot
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And AdrDeb <> Cel.Address
End If
End With
End Sub
Private Sub Modif(ByRef Cel As Range, LeMot)
Dim T As String
Dim Pos As Integer
T = Cel.Text
Do
'Respecte la casse Majuscule/Minuscule -------
Pos = InStr(Pos + 1, T, LeMot)
' Ne tient pas compte des Majuscule/Minuscule-
' Pos = InStr(Pos + 1, T, LeMot, vbTextCompare)
' --------------------------------------------
If Pos > 0 Then
With Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 4 'VERT
End With
End If
Loop Until Pos = 0
End Sub
