Suppression de lignes Excel en VBA

Résolu/Fermé
linkcr15 Messages postés 362 Date d'inscription mercredi 7 janvier 2009 Statut Membre Dernière intervention 31 mars 2016 - 23 avril 2012 à 11:44
linkcr15 Messages postés 362 Date d'inscription mercredi 7 janvier 2009 Statut Membre Dernière intervention 31 mars 2016 - 24 avril 2012 à 09:03
Bonjour,

J'ai un problème pour supprimer des lignes d'un tableau si la cellule dans la colonne A est vide. Mon tableau se compose de la ligne 3 à la ligne 201. Voici mon code :

For i = 201 To 3
If feuilExcel.Range("A" & i).Value = "" Then
feuilExcel.Rows(i).Delete
End If
i = i - 1
Next i


Ce code ne me supprime pas les lignes, mais il efface seulement les formules à l'intérieur des cellules des lignes qui devraient être supprimées.

J'ai éssayé aussi avec cette ligne de code :
feuilExcel.Rows(i).EntireRow.Delete


Mais rien à faire je n'arrive pas à supprimer la ligne. Comment fait-on svp?

5 réponses

eriiic Messages postés 24582 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 juin 2024 7 223
Modifié par eriiic le 23/04/2012 à 12:18
Bonjour,

i = 4 
Worksheets("Feuil1").Rows(i).EntireRow.Delete

fonctionne.

Sinon il faut de finir feuilExcel en tant que variable :
dim feuilExcel as worksheet 
set feuilExcel = worksheets("Feuil1") 

eric
2