Discussion :

[JML62400]

Bonjour,
En VBA, sur une feuille de mon classeur, je voudrais colorer en rouge une ligne sur deux dans une plage de cellules. Par exemple de A1 à Z10 et ce que les cellules soient remplie ou pas.
Merci pour votre aide.
JML62400

[Pierre Fauconnier]

Bonjour

Obligation de passer par VBA?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub AlternerCouleurs(Plage As Range, Couleur1 As Long, couleur2 As Long)
    Dim LigPre As Long
    Dim LigDer As Long
    Dim ColPre As Long
    Dim ColDer As Long
    Dim Feuille As Worksheet
    Dim i As Long
 
 
    LigPre = Plage.Row
    LigDer = Plage.Row + Plage.Rows.Count - 1
    ColPre = Plage.Column
    ColDer = Plage.Column + Plage.Columns.Count - 1
    Set Feuille = Plage.Parent
 
    For i = LigPre To LigDer Step 2
        Feuille.Range(Feuille.Cells(i, ColPre), Feuille.Cells(i, ColDer)).Interior.Color = Couleur1
        Feuille.Range(Feuille.Cells(i + 1, ColPre), Feuille.Cells(i + 1, ColDer)).Interior.Color = couleur2
    Next
 
 
End Sub

Sinon, un format conditionnel sans VBA peut faire l'affaire

[laetitia]

bonjour JML62400 Pierre Fauconnier le forum par macro a adapter
cela depend 1 ligne en rouge ou 2 ligne en rouge je te mets les 2 macros

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i As Long, x As Long
Sub essai5()
i = 1: For x = 1 To 5: Range(Cells(i, 1), Cells(i, 26)).Interior.ColorIndex = 3: i = i + 2: Next
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub essai6()
i = 2: For x = 1 To 5: Range(Cells(i, 1), Cells(i, 26)).Interior.ColorIndex = 3: i = i + 2: Next
End Sub

salutations

[Gorfael]

Salut JML62400 et le forum
Par MFC
Case 1 : la formule est
Case 2 : =ENT(LIGNE()/2)=LIGNE()/2
format : couleur rouge

Avantage, par rapport une macro :
se met à jour instantanément, même après une insertion/suppression de ligne
inconvénient
La cellule n'est pas colorée.
A+

[JML62400]

J'ai trouvé super la métode de Laetitia, elle répond exactement à ce que j'attendais.
Comment cloturer la question le forum?
Cordialement,
JML62400