Bonjour à tous,

j'ai ce code adapté par moi d'internet qui coince et je ne comprends pas pourquoi.
cela coince à la ligne : For Each ligne In .ListRows.Count
qui peut m'aider.

merci d'avance

Co1, col4 et T1 sont les numéros de colonne donnés par un autre code qui fonctionne très bien.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
With ws.ListObjects("TAB3")
        For Each ligne In .ListRows.Count
           If ligne.Cells(col1).Value <> "" And ligne.Cells(col4).Value = "" Then
                ligne.Cells(T1).Value = "x"
            Else
                ligne.Cells(T1).Value = ""
            End If
        Next ligne
End With