1 ligne sur 2 en grisé

Bonjour le forum,

J'ai été faire un tour sur le net et ai trouvé une macro me permettant de mettre une ligne sur 2 en gris sauf que c'est du jaune et moi il me faudrait un gris 20% et je ne sais pas comment faire.

Pourriez-vous m'aider à trouver une solution. voici la macro :

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

Par avance, merci.

Bien cordialement.

ericp

Bonjour,

Un essai ...

R2.Interior.Color = RGB(221, 221, 221)

ric

ça me beug

oups, je n'avais pas activé les cellules, ça marche parfaitement.

1000 merci Ric.

Bien cordialement.

ericp

Bonjour,

Pourquoi le faire en macro ?

Tu as 2 solutions plus simples :

• MFC avec quelque chose comme
  

  =MOD(LIGNE();2)=0

• ou en passant tes données en tableau structuré

Bonjour,

Parce que j'ai des centaines de tableaux qui n'ont pas le même nombre de lignes donc une macro avec un bouton c'est parfait.

Par contre est ce qu'il est possible de mettre la première ligne en gris.

Par avance, merci pour vos idées et le temps que vous passez à ressoudre mon soucis.

Bien à vous.

ericp

Bonjour à tous,

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 ' <> au lieu de = pour inverser les couleurs
            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 = RGB(221, 221, 221)
End Sub

ric

ericp a écrit :

Parce que j'ai des centaines de tableaux qui n'ont pas le même nombre de lignes donc une macro avec un bouton c'est parfait.

Merci Ric, c'est super gentil de ta part de m'avoir notifié le pourquoi du comment.

Bien cordialement.

ericp