Coloration automatique de lignes

Bonjour,

J'ai un programme qui détecte des cellules non-vides dans une colonne.

Je voudrais ensuite colorier les lignes dans lesquelles elles se trouvent (de A à G).

Le problème de mon code est que seule la première ligne est coloriée mais les autres sont ignorées. Je pense que cela vient du fait qu'il s'agisse de la cellule active.

Voici le code :

Private Sub Worksheet_Activate()

Dim PlgJustif As Range
Set PlgJustif = Range("G2:G1048576").SpecialCells(xlCellTypeConstants)

Range("A" & PlgJustif.Row & ":G" & PlgJustif.Row).Interior.Color = RGB(255, 96, 0)
Range("A" & PlgJustif.Row & ":G" & PlgJustif.Row).Font.Bold = True

End Sub

Quelqu'un aurait la solution pour colorier toutes les lignes comprenant une valeur dans une colonne SVP?

Merci !

Bonjour,

A tester :

Private Sub Worksheet_Activate()

    Dim PlgJustif As Range
    Dim oCell As Range

    Set PlgJustif = Range("G2:G1048576").SpecialCells(xlCellTypeConstants)

    For Each oCell In PlgJustif
        Range("A" & oCell.Row & ":G" & oCell.Row).Interior.Color = RGB(255, 96, 0)
        Range("A" & oCell.Row & ":G" & oCell.Row).Font.Bold = True
    Next oCell

    Set PlgJustif = Nothing

End Sub

Bouben

Bonjour,

Tout marche très bien merci beaucoup!

A bientôt