Etiquette de couleur

[tchouss56]

Bonjour,

Je voudrais faire une macro qui me colorie en Rouge le nombre d'étiquette inscrit en A1 puis en Orange le nombre d'etiquette inscrit en A2 et en Jaune le nombre d'etiquette inscrit en A3.

Merci

 

[Hieu]

Salut,
Avec ce que j'ai compris :

Sub mlk()
For i = 1 To 3
n = Range("a" & i)
coul = Range("a" & i).Interior.Color
    For j = k To n + k - 1
    Range("c1:f3").Offset(0, 5 * j).Interior.Color = coul
    Next j
    k = k + n
Next i
End Sub

 

[tchouss56]

Merci tu as parfaitement compris.

 

[tchouss56]

Encore de l'aide

Avec le bouton pour toute les lignes en même temps.

Merci

 

[JCGL]

Bonjour à tous,

Peux-tu essayer ceci :

Sub mlk()
For i = 1 To 3
n = Range("a" & i)
Coul = Range("a" & i).Interior.Color
    For j = k To n + k - 1
    Range("C1:F500").Offset(0, 5 * j).Interior.Color = Coul
    Next j
    k = k + n
Next i
For Each Cel In Range("A1:A500")
If Cel = "" Then Cel.EntireRow.Interior.ColorIndex = 0
Next
End Sub

A+ à tous

 

[tchouss56]

Merci

Cela ne prend pas en compte le nombre d'étiquette à colorer qui est inscrit dans la colonne A

 

[JCGL]

Bonjour à tous,

Tu répondais à Hieu :

Merci tu as parfaitement compris.

J'ai simplement repris son code et élargi la plage...

A+ à tous

 

[tchouss56]

Oui je comprend.

Mais en colonne A, il y a un nombre qui me donne le nombre d'etiquette par couleur par ligne. Avec ton elargissement cela prend juste les nombres en a1 a2 a3 et pas les autres.

 

[Hieu]

Salut JCGL,

Un essai :

Sub mlk()
For l = 0 To 2
k = 0
    For i = 1 To 3
    n = Range("a" & i).Offset(4 * l, 0)
    coul = Range("a" & i).Offset(4 * l, 0).Interior.Color
        For j = k To n + k - 1
        Range("c1:f3").Offset(4 * l, 5 * j).Interior.Color = coul
        Next j
        k = k + n
    Next i
Next l
End Sub