VB_PtitCat
Messages postés197Date d'inscriptionmercredi 30 mai 2007StatutMembreDernière intervention13 mai 2009
-
11 févr. 2009 à 09:42
Molenn
Messages postés797Date d'inscriptionmardi 7 juin 2005StatutMembreDernière intervention23 février 2011
-
11 févr. 2009 à 17:01
Bonjour,
j'aimerai colorier mes cellules en vert,
uniquement si les deux premier caractères d'une cellule sont OK!
Voilà mon code, qui ne marche pas,
si vous pouviez m'éclairer vite fait, puis que mon aide VB ne marche pas ni F1 ni F2 :'(
Sub Inventaire()
'
' Inventaire Macro
' Macro enregistrée le 11/02/2009 par Cegelec
Dim ligne As Integer
ligne = 1
While Cells(ligne, 3) <> Empty
If Cells(ligne, 3) <> Empty Then
If Left(Cells(ligne, 19), 2) = "OK" Then
Selection.Range(Cells(ligne, 1), Cells(ligne, 19)).Interior.ColorIndex = 4
End If
End If
ligne = ligne + 1
Wend