Bonjour à tous,
C'est la première fois que je poste dans un forum donc j'espère ne pas me tromper ni sur la forme ni sur le fond.
J'ai fait un fichier excel qui doit pouvoir s'intégrer dans une base de données lorsqu'il sera terminé. Malheureusement, je n'arrive justement pas à le terminer car il faut que je supprime des lignes dans ce fichier. Je ne peux pas le faire de manière manuelle car il y a un trop grand nombre de lignes à supprimer (quelques milliers).
Avant de poster, j'ai fait une recherche et je suis tombé sur ce code vba :
Pour pouvoir terminer ce fichier, il faut que je supprime toutes les lignes pour lesquelles la colonne C est vide. Dans le fichier joint il s'agit de toutes les lignes vides de la colonne C de la feuil3 du classeur.
Je me suis dit que ça pourrait marcher en remplaçant Range("A65536") par Range("C65536") mais ça ne fonctionne pas.
J'ai presque failli oublier : j'utilise Excel 2003 sous XP SP2 et je suis novice en VBA.
Je remercie à l'avance tous ceux qui voudront bien m'aider,
Youri
C'est la première fois que je poste dans un forum donc j'espère ne pas me tromper ni sur la forme ni sur le fond.
J'ai fait un fichier excel qui doit pouvoir s'intégrer dans une base de données lorsqu'il sera terminé. Malheureusement, je n'arrive justement pas à le terminer car il faut que je supprime des lignes dans ce fichier. Je ne peux pas le faire de manière manuelle car il y a un trop grand nombre de lignes à supprimer (quelques milliers).
Avant de poster, j'ai fait une recherche et je suis tombé sur ce code vba :
qui m'a été d'une grande utilité dans un autre fichier. Toutefois, je n'arrive pas à l'adapter à mon fichier actuel dont une quasi-réplique est ci-jointe.Sub test()
Dim i&
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(i, 1)) Then
Rows(i).Delete
End If
Next i
End Sub
Pour pouvoir terminer ce fichier, il faut que je supprime toutes les lignes pour lesquelles la colonne C est vide. Dans le fichier joint il s'agit de toutes les lignes vides de la colonne C de la feuil3 du classeur.
Je me suis dit que ça pourrait marcher en remplaçant Range("A65536") par Range("C65536") mais ça ne fonctionne pas.
J'ai presque failli oublier : j'utilise Excel 2003 sous XP SP2 et je suis novice en VBA.
Je remercie à l'avance tous ceux qui voudront bien m'aider,
Youri
Pièces jointes
Dernière édition: