Discussion :

[Moa83]

Bonjour,

je souhaite supprimer les lignes dont la 1ère colonne est vide dans un tableau Excel (feuille "Import"). J'ai écrit le code suivant mais je n'ai la suppression que d'une ligne sur deux lorsqu'il y a deux ou plus de lignes vides contigües. Quelqu'un peut-il me dire où est le problème? Merci.

Moa 83

Code :

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

1
2
3
4
5
6
7
8
9
Sub essai_supression()
Dim ligin As Long, ligai As Long
ligai = 40
For ligin = 1 To ligai
    If Worksheets("Import").Cells(ligin, 1).Value = "" Then
    Rows(ligin).Delete
    End If
Next
End Sub

[jerome.vaussenat]

Salut,
Quand tu fais une suppression tu as meilleur temps commencer pas la fin de ton tableau.

Sinon, à chaque suppression, ton tableau remonte ... et c'est à gérer ...

[Moa83]

Super, merci, effectivement, je vais de ligai à 1 (step - 1) et je supprime d'un coup toutes mes lignes blanches.

Moa 83

[Invité]

Bonsoir,

Teste comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
Sub essai_supression()
Dim ligin As Long, ligai As Long
ligai = 40
For ligin = ligai to 1 step -1
    If Worksheets("Import").Cells(ligin, 1).Value = "" Then
    Rows(ligin).Delete
    End If
Next
End Sub

[Moa83]

C'est ce que je viens d'essayer sur le conseil d'un autre blogueur et ça marche...

Merci

Moa83