Colorier cellule d'un même groupe

[gourdin]

Bonjour,

Si je sais comment procéder pour colorier une ligne sur 2 d'un tableau via le format conditionnel, en revanche je bute pour colorier 1 "groupe" de cellules sur 2
Voir fichier joint.

Merci

 

[Modeste]

Bonjour gourdin,

Une solution (parmi bien d'autres)...

Attention: sélectionner la plage de cellules concernée au préalable. On verra par la suite, avec plus d'infos comment repérer la plage sans la sélectionner.
Coller dans la fenêtre de code de la Feuil1:

Sub coul()
With Selection
    For lig = 1 To .Rows.Count
        If .Cells(lig, 1) & .Cells(lig, 2) <> .Cells(lig - 1, 1) & .Cells(lig - 1, 2) Then cpt = cpt + 1
        If cpt Mod 2 = 1 Then .Cells(lig, 1).Resize(1, 3).Interior.ColorIndex = 6
    Next lig
End With
End Sub

 

[Paf]

bonjour gourdin, Modeste,

une autre version (sans sélection)

Sub Gourdin()
Dim i As Long, AColorer As Boolean
AColorer = True
With Worksheets("Feuil1") ' à adapter
For i = 3 To .Range("B" & Rows.Count).End(xlUp).Row
    If AColorer = True Then .Cells(i, 2).Resize(1, 3).Interior.ColorIndex = 6
    If Not (.Cells(i, 2) = .Cells(i + 1, 2) And .Cells(i, 3) = .Cells(i + 1, 3)) Then AColorer = Not AColorer
Next
End With
End Sub

A+

 

[gourdin]

Bonjour gourdin,

Une solution (parmi bien d'autres)...

Attention: sélectionner la plage de cellules concernée au préalable. On verra par la suite, avec plus d'infos comment repérer la plage sans la sélectionner.
Coller dans la fenêtre de code de la Feuil1:

Sub coul()
With Selection
    For lig = 1 To .Rows.Count
        If .Cells(lig, 1) & .Cells(lig, 2) <> .Cells(lig - 1, 1) & .Cells(lig - 1, 2) Then cpt = cpt + 1
        If cpt Mod 2 = 1 Then .Cells(lig, 1).Resize(1, 3).Interior.ColorIndex = 6
    Next lig
End With
End Sub

Bonjour Modeste
Merci pour cette solution qui me convient parfaitement (je me débrouille pour sélectionner la plage)

 

[gourdin]

bonjour gourdin, Modeste,

une autre version (sans sélection)

Sub Gourdin()
Dim i As Long, AColorer As Boolean
AColorer = True
With Worksheets("Feuil1") ' à adapter
For i = 3 To .Range("B" & Rows.Count).End(xlUp).Row
    If AColorer = True Then .Cells(i, 2).Resize(1, 3).Interior.ColorIndex = 6
    If Not (.Cells(i, 2) = .Cells(i + 1, 2) And .Cells(i, 3) = .Cells(i + 1, 3)) Then AColorer = Not AColorer
Next
End With
End Sub

A+

Merci aussi Paf
Cela me convient également.

 

[R@chid]

Bonjour @ tous,
avec une MFC
voir PJ


@ + +

 

[Paf]

Re et bonjour R@chid,

toujours ébahi devant ces (heu ...) simples formules !!!

A+

 

[gourdin]

Bonjour Modeste
Merci pour cette solution qui me convient parfaitement (je me débrouille pour sélectionner la plage)

Pourrais tu me dire comment modifier le code pour que la couleur jaune (commence au deuxième groupe (groupe des "tomate vertes" dans mon fichier) et pas au premier groupe ? Merci

 

[gourdin]

Bonjour @ tous,
avec une MFC
voir PJ


@ + +

Bonjour Rachid
Ca marche aussi mais je vais m'orienter plutôt vers une macro
Merci

 

[Modeste]

Re-bonjour,
Salut Paf , R@chid ... et chris (qui passait par là),
Mes hommages à tous les autres,

C'est dans le début de ligne suivante que ça se passe (je te laisse chercher un instant )

If cpt Mod 2 = 1

Ce qui suit met la couleur de remplissage transparente avant de ré-appliquer une couleur. Elle repère aussi la fin de plage (au départ de B3) sans qu'une sélection soit nécessaire.

Sub coul()
With [B3].Resize([B3].CurrentRegion.Rows.Count - 1, [B3].CurrentRegion.Columns.Count)
    .Interior.ColorIndex = xlNone
    For lig = 1 To .Rows.Count
        If .Cells(lig, 1) & .Cells(lig, 2) <> .Cells(lig - 1, 1) & .Cells(lig - 1, 2) Then cpt = cpt + 1
        If cpt Mod 2 = 0 Then .Cells(lig, 1).Resize(1, 3).Interior.ColorIndex = 6
    Next lig
End With
End Sub

 

[Paf]

re,

Dans ma proposition, pour commencer la mise en couleur au deuxième bloc, modifier
AColorer = True par AColorer = False (ou bien supprimer la ligne)

A+

 

[Modeste]

Dans ma proposition, pour commencer la mise en couleur au deuxième bloc, modifier
AColorer = True par AColorer = False (ou bien supprimer la ligne)

J'ai failli le mentionner au passage ... mais je n'ai pas osé

Par contre ... "supprimer la ligne"? yé comprends plou!?

 

[gourdin]

Merci à vous 2 de votre aide

Bonne fin d'après midi

 

[Paf]

re

@ Modeste : le fait de déclarer un boolean, l'initialise à False. On peut donc, dans ce cas, omettre la ligne
AColorer = False

A+

 

[mapomme]

Bonsoir à tous,

Une autre MFC par formule :

=EST.IMPAIR(SOMME((($B$3:$B3<>$B$2:$B2)+($C$3:$C3<>$C$2:$C2)>0)*LIGNE($B$3:$B3)/LIGNE($B$3:$B3)))

Il y a une petite différence entre le résultat de la formule de r@chid et celle de ma pomme. Voir commentaire dans le fichier.