Bonjour à tous
Je cherche à mettre des cellules en colonne "C" en couleur en fonction de critères situer en colonne "M"
le code suivant ne fonctionne que pour le premier case Pourquoi?
merci pour votre aide
à+
Sub CouleurActi()
For i = 1 To 63
i = i + 1
Sheets("planning").Select
Cells(i, 3).Select
Select Case Sheets("planning").Cells(i, 3).Offset(0, 10).Value
Case "sport"
Selection.Interior.ColorIndex = 6
Case "bénévole"
Selection.Interior.ColorIndex = 13
Case "sacat"
Selection.Interior.ColorIndex = 21
Case ""
Selection.Interior.ColorIndex = xlNone
End Select
Next
End Sub
Je cherche à mettre des cellules en colonne "C" en couleur en fonction de critères situer en colonne "M"
le code suivant ne fonctionne que pour le premier case Pourquoi?
merci pour votre aide
à+
Sub CouleurActi()
For i = 1 To 63
i = i + 1
Sheets("planning").Select
Cells(i, 3).Select
Select Case Sheets("planning").Cells(i, 3).Offset(0, 10).Value
Case "sport"
Selection.Interior.ColorIndex = 6
Case "bénévole"
Selection.Interior.ColorIndex = 13
Case "sacat"
Selection.Interior.ColorIndex = 21
Case ""
Selection.Interior.ColorIndex = xlNone
End Select
Next
End Sub