Mise en couleur ligne en fonction d'un résultat

[pad01]

Bonsoir le Forum,
J'ai une base de nom.
Si un nom est inscrit plus de 2 fois, je voudrais que la ligne soit d'une couleur et pour le nom suivant d'une autre couleur s'il est aussi inscrit plus de 2 fois.
Je suis un peu dans le brouillard, toutes les idées ne pourront que m'aider.
Merci à tous

PS je joins un fichier pour être plus explicite

 

[Tibo]

Re : Mise en couleur ligne en fonction d'un résultat

Bonsoir,

Avec une Mise en Forme Conditionnelle :

Formule de la première condition :

=NB.SI($A$2:$A$20;$A2)>3

+ couleur jaune

Formule de la deuxième condition :

=NB.SI($A$2:$A$20;$A2)>2

+ couleur orangée

Voir avec le fichier joint

@+

 

[JCGL]

Re : Mise en couleur ligne en fonction d'un résultat

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub esssai()
    Dim x As Integer
    Dim macouleur As Byte

    macouleur = 3

    For x = 1 To Range("A65536").End(xlUp).Row
        Range("A" & x & ":C" & x).Interior.ColorIndex = macouleur
        If Range("A" & x) <> Range("A" & x + 1) Then
            macouleur = IIf(macouleur = 3, 4, 3)

        End If
    Next
End Sub

A + à tous

 

[ROGER2327]

Re : Mise en couleur ligne en fonction d'un résultat

Bonsoir à tous

Deux propositions :

Sub essai1()
Dim x&, i&, macouleur%
    macouleur = 6
    x = 1
    Do While x <= Cells(Rows.Count, 1).End(xlUp).Row
        i = 0
        Do While Cells(x + i, 1).Value = Cells(x, 1).Value
            i = i + 1
        Loop
        If i > 2 Then
            Cells(x, 1).Resize(i, 3).Interior.ColorIndex = macouleur
            macouleur = IIf(macouleur = 6, 44, 6)
        Else
            Cells(x, 1).Resize(i, 3).Interior.ColorIndex = xlColorIndexNone
        End If
        x = x + i
    Loop
End Sub

Sub essai2()
Dim x&, i&, macouleur%
    macouleur = 6
    For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        i = 0
        Do While Cells(x + i, 1).Value = Cells(x, 1).Value
            i = i + 1
        Loop
        If i > 2 Then
            Cells(x, 1).Resize(i, 3).Interior.ColorIndex = macouleur
            macouleur = IIf(macouleur = 6, 44, 6)
        Else
            Cells(x, 1).Resize(i, 3).Interior.ColorIndex = xlColorIndexNone
        End If
        x = x + i - 1
    Next
End Sub

​

ROGER2327
#5240

Dimanche 1er Merdre 138 (Accouchement de Sainte Jeanne, papesse, ST)
29 Floréal An CCXIX
2011-W20-3T20:28:54Z

 

[pad01]

Re : Mise en couleur ligne en fonction d'un résultat

Bonsoir Tibo, JCGL, ROGER2327 et le Forum,
Merci à vous tous pour votre aide, j'ai enfin ma solution.
Encore merci
Cdt