R
Reeaz
Guest
Bonjour,
j'ai crée une macro qui est la suivante:
Sub Coloriage()
i = 2
Do While Cells(i, 2) <> ""
If Left(Cells(i, 2), 4) = Somm Then
Cells(i, 2).Select
Selection.EntireRow.Select
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
Else
i = i + 1
End If
Loop
End Sub
Je voudrais colorier chaque ligne dont le début commence par les 4 lettres "somm" en bleu.
Je ne sais pas ou est l'erreur?
Si qqun pouvait me dépanner....
Merci
j'ai crée une macro qui est la suivante:
Sub Coloriage()
i = 2
Do While Cells(i, 2) <> ""
If Left(Cells(i, 2), 4) = Somm Then
Cells(i, 2).Select
Selection.EntireRow.Select
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
Else
i = i + 1
End If
Loop
End Sub
Je voudrais colorier chaque ligne dont le début commence par les 4 lettres "somm" en bleu.
Je ne sais pas ou est l'erreur?
Si qqun pouvait me dépanner....
Merci