1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub Macro1()
'
' Macro1 Macro
'descrition des valeurs
Dim i As Long
'si les valeurs commencent à la ligne 1
i = 1
'siles valeurs sont dans la colonne A
While Range("A" & i) <> ""
If Sheets("Feuil1").Cells(i, 1).Value = "essai" Or Cells(i, 1).Value = "zaza" Or Cells(i, 1).Value = "baba" Then
With Sheets("Feuil1").Rows(i).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
i = i + 1
Wend
End Sub |
Partager