cortadillo
XLDnaute Nouveau
j'ai fait un code VBA qui fonctionne partiellement, le problème c'est que les couleurs sont limités à 36 et 34. Je voudrais que le code génère automatiquement les code couleurs en fonction de l'index colonne K.
Deuxième problème c'est que les couleurs de fond ne couvrent pas mes colonnes renseignées.
Pour plus d'infos, ci -joint le fichier Excel.
Sub MFC()
Application.ScreenUpdating = False
couleur = 36
For i = 2 To [A65000].End(xlUp).Row
If Cells(i, 11) <> Cells(i - 1, 11) Then couleur = IIf(couleur = 36, 34, 36)
Cells(i, Selection.End(xlToRight)).Resize(4, Selection.End(xlToRight)).Interior.ColorIndex = couleur
Next i
Application.ScreenUpdating = True
End Sub
merci de votre aide.
Regarde la pièce jointe MFC_MOA_3-1.xls
Cordialement,
Cortadillo
Deuxième problème c'est que les couleurs de fond ne couvrent pas mes colonnes renseignées.
Pour plus d'infos, ci -joint le fichier Excel.
Sub MFC()
Application.ScreenUpdating = False
couleur = 36
For i = 2 To [A65000].End(xlUp).Row
If Cells(i, 11) <> Cells(i - 1, 11) Then couleur = IIf(couleur = 36, 34, 36)
Cells(i, Selection.End(xlToRight)).Resize(4, Selection.End(xlToRight)).Interior.ColorIndex = couleur
Next i
Application.ScreenUpdating = True
End Sub
merci de votre aide.
Regarde la pièce jointe MFC_MOA_3-1.xls
Cordialement,
Cortadillo