Etiquette de couleur

H

Hieu

XLDnaute Impliqué

• 10 Mai 2017

• #2

Salut,
Avec ce que j'ai compris :

VB:

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

 

Pièces jointes

• Etiquettes de couleur_v0.xlsm

  16.6 KB · Affichages: 30

Vote positif 0 Vote négatif

T

tchouss56

XLDnaute Nouveau

• 10 Mai 2017

• #3

Merci tu as parfaitement compris.

 

Vote positif 0 Vote négatif

T

tchouss56

XLDnaute Nouveau

• 11 Mai 2017

• #4

Encore de l'aide

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

Merci

 

Pièces jointes

• Etiquettes de couleur_v0.xlsm

  25.3 KB · Affichages: 28

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Mai 2017

• #5

Bonjour à tous,

Peux-tu essayer ceci :

VB:

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

 

Vote positif 0 Vote négatif

T

tchouss56

XLDnaute Nouveau

• 11 Mai 2017

• #6

Merci

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Mai 2017

• #7

Bonjour à tous,

Tu répondais à Hieu :

tchouss56 à dit:

Merci tu as parfaitement compris.

Cliquez pour agrandir...

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

A+ à tous

 

Vote positif 0 Vote négatif

T

tchouss56

XLDnaute Nouveau

• 11 Mai 2017

• #8

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.

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 11 Mai 2017

• #9

Salut JCGL,

Un essai :

VB:

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

 

Pièces jointes

• Etiquettes de couleur_v1.xlsm

  18 KB · Affichages: 16

Vote positif 0 Vote négatif