Bonjour,
Sachant que je peux avoir des tableaux de dimensions variables, je cherche à mettre une ligne sur deux avec une couleur différente. J'arrive a faire la boucle une ligne sur deux pour une plage de cellules indétérminées, mais je reste coincé sur la 1ère colonne ou alors ma boucle "dérive".
Je suis parti de cette routine:
Sub boucle_mise_en_gras1sur2()
Dim Ligne_Debut As Long
Ligne_Debut = 2
While Cells(Ligne_Debut, 1) <> ""
If Ligne_Debut Mod 2 = 0 Then
Cells(Ligne_Debut, 1).Interior.Color = RGB(200, 200, 0)
Else
Cells(Ligne_Debut, 1).Interior.Color = RGB(100, 0, 0)
End If
Ligne_Debut = Ligne_Debut + 1
Wend
End Sub
Il manque bien évidement l'info de la limite de colonne, mais si j'inclue une variable Colonne Début, le fait de devoir l'incrémenter décalle la colonne...
Merci d'avance !
Sachant que je peux avoir des tableaux de dimensions variables, je cherche à mettre une ligne sur deux avec une couleur différente. J'arrive a faire la boucle une ligne sur deux pour une plage de cellules indétérminées, mais je reste coincé sur la 1ère colonne ou alors ma boucle "dérive".
Je suis parti de cette routine:
Sub boucle_mise_en_gras1sur2()
Dim Ligne_Debut As Long
Ligne_Debut = 2
While Cells(Ligne_Debut, 1) <> ""
If Ligne_Debut Mod 2 = 0 Then
Cells(Ligne_Debut, 1).Interior.Color = RGB(200, 200, 0)
Else
Cells(Ligne_Debut, 1).Interior.Color = RGB(100, 0, 0)
End If
Ligne_Debut = Ligne_Debut + 1
Wend
End Sub
Il manque bien évidement l'info de la limite de colonne, mais si j'inclue une variable Colonne Début, le fait de devoir l'incrémenter décalle la colonne...
Merci d'avance !