Macro colorer une ligne sur deux

[Pol]

Bonjour à tous,

Quelqu'un pourrait-il me communiquer le code vba pour colorer une ligne sur deux de la sélection active ?

Pour la couleur, peu importe.

Merci par avance,

et Bonne année !

 

[camarchepas]

Re : Macro colorer une ligne sur deux

Bonjour Pol ,

Santé , Bonheur et prospérité :

Voici une première approche :

il faudra ensuite voir comment tu veux définr la zone à mettre en forme

Sub colore()
Dim Ligne As Long

For Ligne = 1 To 50
If Ligne Mod 2 = 0 Then Rows(Ligne).Interior.ColorIndex = 6
Next
End Sub

 

[PMO2]

Re : Macro colorer une ligne sur deux

Bonjour,

Une piste avec le code suivant

Sub aa()
Dim Plage As Range
Dim R As Range
Dim R2 As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set Plage = Selection
For Each R In Plage
  If R.Row Mod 2 = 0 Then
    If Not R2 Is Nothing Then
      Set R2 = Application.Union(R2, R)
    Else
      Set R2 = R
    End If
  End If
Next R
R2.Interior.Color = vbYellow
End Sub

 

[Pol]

Re : Macro colorer une ligne sur deux

Merci à vous deux,

Petite préférence pour la procédure de PM02,

Bonne soirée.

 

[Gen Rose]

Re : Macro colorer une ligne sur deux

Une solution simple par Mise en forme conditionnelle (MFC) ici ...pour les autres lecteurs aussi 😉