Code pour colorer plage, si doubles et triples dans colonne "A"

BChaly · 10 Novembre 2013

Bonjour à tous,

Le code ci-dessous fonctionne très bien pour colorer les doubles de la colonne "A" en bleu et les triples en rouge.

La valeur à considérer étant toujours dans la colonne "A", comment pourrais-je modifier la partie du code
suivante pour colorer la ligne de "A" jusqu'à "D" et non pas uniquement la valeur se trouvant dans la colonne "A"?

Code:

If i < 3 Then Range(A(i)).Interior.ColorIndex = Colour(i) Else Range(A(i)).Interior.ColorIndex = Colour(2)

Merci pour votre aide.

Cordialement,

BChaly

Sub Couleur()

Colour = Array(xlNone, 37, 3)

Set D = CreateObject("Scripting.Dictionary")

For Each Cel In Range("A2", [A65536].End(xlUp))
If Cel <> "" Then D.Item(Cel.Value) = D.Item(Cel.Value) & Cel.Address & ":"
Next Cel

For Each Cela In D.keys
tmp = D.Item(Cela)
tmp = Left(tmp, Len(tmp) - 1)
A = Split(tmp, ":")
For i = LBound(A) To UBound(A)
If i < 3 Then Range(A(i)).Interior.ColorIndex = Colour(i) Else Range(A(i)).Interior.ColorIndex = Colour(2)
Next i
Next Cela

End Sub

DoubleZero · 10 Novembre 2013

Re : Code pour colorer plage, si doubles et triples dans colonne "A"

Bonjour, BChaly, le Forum,

Peut-être en modifiant le code comme suit :

Code:

Sub Couleur()

Colour = Array(xlNone, 37, 3)

Set D = CreateObject("Scripting.Dictionary")

For Each Cel In Range("A2", [A65536].End(xlUp))
    If Cel <> "" Then D.Item(Cel.Value) = D.Item(Cel.Value) & Cel.Address & ":"
Next Cel
  
For Each Cela In D.keys
    tmp = D.Item(Cela)
    tmp = Left(tmp, Len(tmp) - 1)
    A = Split(tmp, ":")
        For i = LBound(A) To UBound(A)
            If i < 3 Then Range(A(i)).Resize(, 4).Interior.ColorIndex = Colour(i) Else Range(A(i)).Resize(, 4).Interior.ColorIndex = Colour(2)
        Next i
Next Cela

End Sub

A bientôt

BChaly · 10 Novembre 2013

Re : Code pour colorer plage, si doubles et triples dans colonne "A"

Bonjour DoubleZero,

Super!!! C'est excatement ce que je cherchais.

Merci pour votre aide.

Cordialement,

BChaly

Code pour colorer plage, si doubles et triples dans colonne "A"

BChaly

XLDnaute Occasionnel

Pièces jointes

DoubleZero

XLDnaute Barbatruc

BChaly

XLDnaute Occasionnel

Discussions similaires