Discussion :

[jpvba65]

Bonjour le forum

Il y a de nombreux exemples pour le traitement des doublons (surtout leur suppression).
Malgré tout je ne retrouve pas ce que je cherche.
J'ai dans ma colonne A des références qui peuvent se répéter plusieurs fois.
Les véritable doublons sont dans la colonne B.
Je voudrais colorer en rouge du premier à l'avant dernier doublon toutes les lignes liées.
La ligne correspondant au dernier doublon serait colorée en vert.

Mon tableau est entièrement trié, les doublons de chaque groupes se suivent.
C'est la référence en colonne A qui déterminera le groupe de doublon.
Dans mon tableau exemple j'ai représenté 3 groupes de doublons GG, MM, YY.

Voir pièce jointe.

Merci par avance pour toute aide

[parmi]

Bonjour,

Je ne sais pas si des mises en forme conditionnelles pourraient être utilisées dans ton cas.

Si oui, ça en prendrait 2
Disons en A3
=ET(A2=A3;A3<>A4) couleur verte
=OU(ET(A2<>A3;A3=A4);ET(A2=A3;A3=A4)) couleur rouge

Et tu copies le format aux autres cellules

[jpvba65]

Bonjour à tous

Merci parmi pour ta réponse.
Pour les besoins de mon application (le traitement que je recherche doit être intégré au déroulement d'une macro),
j'ai transformé tes formules en vba (sauf la partie "coloriage").
Voici le code obtenu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
 
'=ET(A2=A3;A3<>A4)
    Intersect(ActiveSheet.UsedRange.EntireRow, [A:A]).FormulaR1C1 = "=AND(R[-1]C=RC,RC<>R[1]C)"
 
'=OU(ET(A2<>A3;A3=A4);ET(A2=A3;A3=A4))
    Intersect(ActiveSheet.UsedRange.EntireRow, [A:A]).FormulaR1C1 = "=OR(AND(R[-1]C<>RC,RC=R[1]C),AND(R[-1]C=RC,RC=R[1]C))"
 
End Sub

Le résultat est que j'obtient un 0 dans les cellules de la colonne A.
Avant même de pouvoir colorier les cellules comme demandé dans mon premier post, je vais essayer
de comprendre pourquoi tous ces 0.

Merci pour tout aiguillage

Rectification

J'ai refait la partie formule avec l'enregistreur de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
 
'=ET(A2=A3;A3<>A4)
    Intersect(ActiveSheet.UsedRange.EntireRow, [A:A]).FormulaR1C1 = "=AND(R[-2]C=R[-3]C,R[-3]C<>R[-4]C)"
 
'=OU(ET(A2<>A3;A3=A4);ET(A2=A3;A3=A4)
    Intersect(ActiveSheet.UsedRange.EntireRow, [A:A]).FormulaR1C1 = "=OR(AND(R[-2]C<>R[-3]C,R[-3]C=R[-4]C),AND(R[-2]C=R[-3]C,R[-3]C=R[-4]C))"
 
End Sub

J'ai plus de 0 mais des #REF!, toujours en colonne A.

Je continue

[mercatog]

Traduction de la proposition de parmi en vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub FC()
Dim LastLig As Long
 
With Feuil1
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    With .Range("A3:I" & LastLig)
        .FormatConditions.Delete
        .FormatConditions.Add(Type:=xlExpression, Formula1:="=ET($A2=$A3;$A3<>$A4)").Interior.Color = RGB(0, 128, 0)
        .FormatConditions.Add(Type:=xlExpression, Formula1:="=OU(ET($A2<>$A3;$A3=$A4);ET($A2=$A3;$A3=$A4))").Interior.Color = 255
    End With
End With
End Sub

Adapte la formule en fonction de la langue de ton Excel

[jpvba65]

Bonjour à tous

J'ai enfin des couleurs et au bon endroit.

Merci à Mercatog et parmi pour leur aide efficace.