colorer 1ligne sur 2

bpol

XLDnaute Impliqué
bonjour le forum,
trou de mémoire, je ne me rapelle plus la formule pour colorer ds un tableau 1 ligne sur 2

Merci
Bpol
 

malcy45

XLDnaute Occasionnel
Re : colorer 1ligne sur 2

Bonjour dull mjo et bpol,
pour completer en cas de demande de macro
sub Macro1()


Range('A1:B100').Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
'=MOD(LIGNE();2)=0'
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
A MODIFIER SUIVANT TA PLAGE A COUVRIR

et celui la a ete proposé par hervé
Public Sub vev()
Dim i As Integer
Dim j As Integer
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
For j = Selection.Column To Selection.Column + Selection.Columns.Count - 1
Cells(i, j).Interior.ColorIndex = 15
Next j
Next i
End Sub

amicalement
rémi
 
Dernière édition:

Discussions similaires

Réponses
4
Affichages
185

Statistiques des forums

Discussions
312 166
Messages
2 085 886
Membres
103 018
dernier inscrit
mohcen23