jeanba
XLDnaute Occasionnel
Bonjour,
Mon code ci-après ne semble fonctionner que s'il s'applique à une plage nommée.
Dès que je veux l'appliquer à un tableau de données, les couleurs restent celles des lignes définies par les modèles Excel!! Ne peut-on donc pas forcer un tableau à avoir des couleurs de lignes qu'on veut définir et par pas de ligne que l'on souhaite, plutôt qu'une couleur différente APRES CHAQUE LIGNE?
Voici mon code (voir aussi fichier exemple joint)
Merci par avance pour votre aide!
(PS: plus de vos news Pierre Jean et Dranreb, j'espère que tout va bien...!)
Mon code ci-après ne semble fonctionner que s'il s'applique à une plage nommée.
Dès que je veux l'appliquer à un tableau de données, les couleurs restent celles des lignes définies par les modèles Excel!! Ne peut-on donc pas forcer un tableau à avoir des couleurs de lignes qu'on veut définir et par pas de ligne que l'on souhaite, plutôt qu'une couleur différente APRES CHAQUE LIGNE?
Voici mon code (voir aussi fichier exemple joint)
Merci par avance pour votre aide!
(PS: plus de vos news Pierre Jean et Dranreb, j'espère que tout va bien...!)
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
' Dim sht$
' sht$ = ActiveSheet.Name
Application.ScreenUpdating = False
couleur = 2
' If ActiveSheet.Name <> "ACCUEIL" Then
If Not Intersect(Target, Range(Cells(2, 2), Cells(8, 7))) Is Nothing Then
For I = 2 To [A65000].End(xlUp).Row
If Cells(I, 2) <> Cells(I - 1, 2) Then couleur = IIf(couleur = 2, 15, 2)
Cells(I, 2).Resize(, 7).Interior.ColorIndex = couleur
Cells(2, 2).Select
Next I
End If
' End If
End Sub