Aide couleurs

Jack Slater

XLDnaute Nouveau
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?????
 

Roland_M

XLDnaute Barbatruc
Re : Aide couleurs

bonjour


Code:
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
 

Roland_M

XLDnaute Barbatruc
Re : Aide couleurs

re

ok vu ! voir modif !

Code:
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
 

Discussions similaires

Réponses
8
Affichages
415

Statistiques des forums

Discussions
312 428
Messages
2 088 336
Membres
103 821
dernier inscrit
Lorient56