Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.