Aide couleurs

[Jack Slater]

Bonjour,

Je cherche à colorier des ligne excel via du vba.
2 lignes jaunes
2 lignes bleues
2 lignes jaunes
2 lignes Bleues
et ainsi de suite jusqu'à ce qu'il trouve une cellule vide dans la colonne A.

Quelqu'un aurait-il la solution?????

 

[tototiti2008]

Re : Aide couleurs

Bonjour Jack Slater,

et pouquoi pas avec une mise en forme conditionnelle ?

 

[Jack Slater]

Re : Aide couleurs

Je ne veux intégrer aucun condition, et d'ailleur je ne sais pas ce que c'est, je commence à peine

 

[Roland_M]

Re : Aide couleurs

bonjour

Sub ColorLignes()
' 1=Noir    2=Blanc
' 7=Rose    3=Rouge      38=Mauve    39=Lavande
'16=Gris   15=GrisClair  48=GrisMoyen
' 8=Cyan   34=CyanClair  42=CyanMoyen
' 6=Jaune  36=JauneTresClair  44=JauneFonce
' 5=Bleu   33=BleuTresClair   41=BleuClair
'46=Orange 40=MarronTresClair 45=MarronClair
'10=Vert   35=VertTresClair   43=VertClair  50=VertMoyen  4=VertBrillant
NoDernLigOccupee = Columns(1).End(xlDown).Row
Idx = 1
For L = 1 To NoDernLigOccupee Step 2
If Idx = 1 Then Couleur = 5: Idx = 2 Else Couleur = 6: Idx = 1
Rows(L).Interior.ColorIndex = Couleur
Rows(L + 1).Interior.ColorIndex = Couleur
Next
End Sub

Roland

 

[tototiti2008]

Re : Aide couleurs

Bonjour à tous,

un exemple avec une mise en forme conditionnelle :

 

[Jack Slater]

Re : Aide couleurs

Merci pour votre aide.
Roland M ton xldown est bizard, il me colorie encore une ligne vide. Je n'arrive pas à régler le problème.

 

[Roland_M]

Re : Aide couleurs

re

ok vu ! voir modif !

Sub ColorLignes()
' 1=Noir    2=Blanc
' 7=Rose    3=Rouge      38=Mauve    39=Lavande
'16=Gris   15=GrisClair  48=GrisMoyen
' 8=Cyan   34=CyanClair  42=CyanMoyen
' 6=Jaune  36=JauneTresClair  44=JauneFonce
' 5=Bleu   33=BleuTresClair   41=BleuClair
'46=Orange 40=MarronTresClair 45=MarronClair
'10=Vert   35=VertTresClair   43=VertClair  50=VertMoyen  4=VertBrillant
NoDernLigOccupee = Columns(1).End(xlDown).Row
Idx = 1
For L = 1 To NoDernLigOccupee Step 2
If Idx = 1 Then Couleur = 5: Idx = 2 Else Couleur = 6: Idx = 1
If Cells(L, 1) > "" Then Rows(L).Interior.ColorIndex = Couleur
If Cells(L + 1, 1) > "" Then Rows(L + 1).Interior.ColorIndex = Couleur
Next
End Sub

Roland

 

[Jack Slater]

Re : Aide couleurs

Ca marche du feu de Dieu Roland M Merciii