Discussion :

[awa123]

bonjour,
je cherche à comprendre ces lignes de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 With Fe
    ' On supprime les lignes sans données dans la liste
    For j = .ListObjects(1).ListRows.Count To 1 Step -1
      If Application.CountA(.ListObjects(1).ListRows(j).Range) = 0 Then
        .ListObjects(1).ListRows(j).Delete
      End If
    Next j

ListObjects(1).ListRows(j) représente-t-il une plage de donnée?

quelqu'un pourrait il m'expliquer brièvement ligne par ligne ce que fait le code svp?

Mercii

[gFZT82]

Bonjour,

Fe.ListObjects(1).ListRows.Count indique le nombre de lignes de ton tableau.
Fe.ListObjects(1).ListRows(j).Range représente la plage de la ligne j de ton tableau.
Application.CountA(.ListObjects(1).ListRows(j).Range) indique le nombre de cellules non vides de cette plage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With Fe
    'On boucle de la derniere ligne du tableau jusqu'à la première
    For j = .ListObjects(1).ListRows.Count To 1 Step -1
        'Si aucune cellule de la ligne n'est renseignée.
        If Application.CountA(.ListObjects(1).ListRows(j).Range) = 0 Then
            'On supprime cette ligne sans donnée du tableau.
            .ListObjects(1).ListRows(j).Delete
        End If
    Next j

Cordialement.

[awa123]

Merci !
c'était tout ce que je voulais