voici mon probleme
j'ai un tableau donc certaine ligne doivent se coloré de la meme couleur que
celle sur la cellule A1

voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub couleurbleu()
Range("A1:A1000").Select
Dim couleur As Variant
couleur = Range("A1").Interior.ColorIndex
If ActiveCell.Interior.ColorIndex = couleur Then
ActiveCell.Offset(0, 2).Select
Selection.ClearContents
Selection.Interior.ColorIndex = couleur
ActiveCell.Offset(0, 2).Select
Selection.ClearContents
End If
End Sub
le souci c'est que seul la première ligne se traite, après rien il ne traite pas toute les autres lignes