Bonjour,
voila, je voudrais mettre le fond des ligne qui contiennent un x En colonne "D" mais le code suivant ne semble pas fonctionner. Je penses que c'est à cause qu'il y a une formule dans les cellules de la colonne D.
Vous auriez une autre solution?
Mon tableau s'appel "Tableau2"
Est-ce qu'avec les fonctions : ActiveSheet.ListObjects("Tableau2").Range.xxxxxxxxx je pourrais arriver au résultat désiré?
Merci,
voila, je voudrais mettre le fond des ligne qui contiennent un x En colonne "D" mais le code suivant ne semble pas fonctionner. Je penses que c'est à cause qu'il y a une formule dans les cellules de la colonne D.
Vous auriez une autre solution?
Mon tableau s'appel "Tableau2"
Est-ce qu'avec les fonctions : ActiveSheet.ListObjects("Tableau2").Range.xxxxxxxxx je pourrais arriver au résultat désiré?
Merci,
Code:
Sub Linecolor()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets("feuil1")
With ws
i = 7 'Numéro de la première ligne à tester
While .Range("D" & i).Value <> ""
If .Range("D" & i).Value = "x" Then
.Rows(i).Interior.Color = RGB(255, 0, 0)
End If
i = i + 1
Wend
End With
End Sub