VBA colorier rangé suivant cellule G

[Dav.42]

Bonjour,
Je souhaite faire une macro qui suivant si la colonne G de la ligne est vide ou pas colorie la ligne de la cellule A à N.
tout sa dans une plage de A3 à N de la dernière ligne.
J'ai fais ca, mais ca bloque pour la selection de A à N, il part de G ce qui est normal, mais je n'arive pas a demarer de A .

Sub Test()
Derniere_ligne = Range("G65536").End(xlUp).Row
Dim c As Variant
For Each c In Range("G3:G" & Derniere_ligne)
    If c.Value <> "" Then
    c.Range("A1:N1").Interior.ColorIndex = 36
    
    End If
    Next c
End Sub
Next c
End Sub

Comment faire ? avec offset? Cells ?

 

[MichD]

Re : VBA colorier rangé suivant cellule G

Bonjour,

Tu veux faire quelque chose comme :

'------------------------------------
Sub Test()
Dim DerLig As Long, C As Range
DerLig = Range("G65536").End(xlUp).Row
For Each C In Range("G3:G" & DerLig)
If C.Value <> "" Then
Range("A" & C.Row & ":N" & C.Row).Interior.ColorIndex = 36
End If
Next C
End Sub
'------------------------------------

 

[Dav.42]

Re : VBA colorier rangé suivant cellule G

Exactement, parfait, merci.