[VBA][Excel]supprimer des lignes vierges

Bonjour! Voilà, je ne suis absolument pas experte en VBA mais j'ai besoin d'aide pour "fabriquer" un programme. J'utilise pour le moment les macros par apprentissage, mais je vais avoir besoin d'aller faire des modifications dans le VB par la suite, pour les lier et construire des Userform.

Ma demande:

j'ai un tableau excel sur une feuille. Ce tableau a 7 colonnes et x lignes.
Parmi toutes ces lignes, certaines sont vierges et je voudrais les supprimer.
J'ai essayé en mettant un filtre sur les colonnes et sélectionné "vides", puis sélectionné les lignes vides pour les effacer, mais le pb est que j'ai également effacé des lignes qui n'étaient pas vierges mais qui se trouvaient entre, lors de ma sélection.

Comment faire?

Bonjour,
Utilise ce code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub SupprimerLigne() Dim DernièreLigne As Long Dim r As Long DernièreLigne = ActiveSheet.UsedRange.Row - 1 DernièreLigne = DernièreLigne + ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernièreLigne To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete End If Next r End Sub

---

jpleroisse

Hello!
Il semble que jpleroisse a été plus rapide que moi, mais comme j'ai pondu un petit truc, je te l'envoie quand même:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub SuppLigneVide() 'On cherche la derniere ligne remplie du tableau DerniereLigne = Cells(32000, 1).End(xlUp).Row 'On parcourt les lignes, de la 1 à la derniere For Ligne = 1 To DerniereLigne If CetteLigneEstVide(Ligne) Then Rows(Ligne).Delete Shift:=xlUp End If Next Ligne End Sub   Function CetteLigneEstVide(ByVal NumLigne As Integer) As Boolean CetteLigneEstVide = True For i = 1 To 7 If Not IsEmpty(Cells(NumLigne, i)) Then CetteLigneEstVide = False 'MsgBox ("On passe à FALSE") End If Next i End Function

---

Si tu ne comprends pas le code: la fonction cetteLigneEstVide renvoie "VRAI" ou "FAUX" selon que la ligne NumLigne est vide ou non (je vérifie les 7 premières colonnes).
La procédure principale, qui fait le travail, détermine la dernière ligne remplie de la colonne 1 (ou A): la purge se fera jusqu'à cette ligne.
On fait une boucle sur les lignes concernées, et à chaque fois, je teste si la ligne est vide, et si elle l'est, je la supprime.

Merci leroissejp et Megaxel pour votre aide! Je n'aurais pas réussi à faire cette manipulation seule. :)

Par contre, j'ai un souci.
Megaxel, j'ai pris ta macro mais je ne comprend pas
DerniereLigne = Cells(32000, 1).End(xlUp).Row

Dans mon tableau, il y 119 lignes et 7 colonnes. Parmis ces 119 lignes donc, certaines sont vides (dans le menu d'Excel:Outils, Options, Affichage, Fenêtres, j'ai décoché Valeurs Zéro, pour que les lignes indiquant "0" soient complètement vides)

Et quand dans VB je me positionne sur DerniereLigne (For Ligne = 1 To DerniereLigne), la valeur 90 apparaît alors qu'en fait je sais qu'il y a 119 lignes à mon tableau et pas 90.

Que dois-je faire?

Aussi, pour éviter le comptage de toutes les colonnes dans
For i = 1 To 7
j'ai remplacé par
For i = 4 To 4
car c'est dans la colonne 4 que je veux le "filtre"

Citation:

---

DerniereLigne = Cells(32000, 1).End(xlUp).Row

---

Pour avoir effectivement la dernière ligne avec cette méthode, tu dois te placer dans la colonne possédant le plus grand nombre de lignes renseignées
Ton problème doit venir du fait que la colonne 1 n'est pas celle-ci

Tu dis si ça pose problème, il y a peut-être une autre méthode adaptée pour trouver la "vraie" dernière ligne

Ex

Code:

---

1 2 3 4 5

For i = 1 to NbColonnes if derniereLigne < Cells(32000, i).End(xlUp).Row then DerniereLigne = Cells(32000, i).End(xlUp).Row endif Next

---

A+

J'ai un autre problème non résolu sur cette macro.

Exemple: si la ligne 5 est vide alors elle est effacée étant donné que la macro le demande.
Mais voilà, la ligne 6 (qui est vide aussi) dans le déroulement de la macro devient à son tour ligne 5, donc une ligne vierge.
Hors le comptage dans la macro continue sans prendre en compte cette nouvelle ligne vierge (ligne 5, ex-6).
Je suis donc obligée de demander d'éxecuter 4 ou 5 fois la macro pour avoir mon tableau comme je le souhaite.

Quelqu'un a une solution?

Merci :D

Oui, m'sieur, moi!!!! Enfin, je crois: :D
Essaie ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub SuppLigneVide() 'On cherche la derniere ligne remplie du tableau DerniereLigne = Cells(32000, 1).End(xlUp).Row FinDeLaBoucle = DerniereLigne 'On parcourt les lignes, de la 1 à la derniere For Ligne = 1 To FinDeLaBoucle If CetteLigneEstVide(Ligne) Then Rows(Ligne).Delete Shift:=xlUp Ligne = Ligne - 1 DerniereLigne = DerniereLigne - 1 End If If Ligne = DerniereLigne Then Exit For Next Ligne End Sub

---

En fait, il faut aller "moins loin" que prévu au début dans la boucle.

Je reprends le code de megaxel
Chaque fois qu'une ligne est vide, tu fais

Code:

---

i = i - 1

---

Pas vérifié mais tu peux faire ça pour nous ?

A+

Ce n'est pas tout à fait aussi simple techniquement: j'ai dû passer par une variable supplémentaire, car la borne de fin de la boucle ne peut pas se modifier en cours de traitement. Même si la valeur de la variable contenant la fin de la boucle est modifiée au cours du traitement, la boucle va jusqu'à la valeur qu'avait la variable au début. J'ai donc dû faire un test de sortie supplémentaire...
Je ne sais pas si je suis très clair, mais ça a eu l'air de bien fonctionner quand je l'ai testé.

:bravo:

Merci les amis, ça marche à la perfection!!!

Je vais pouvoir vous demander plein de choses par la suite!

:merci:

Mon problème est :resolu:

Ok! Comme ça, tu pourras aussi remercier tous les autres membres actifs de ce forum, qui t'aideront à leur tour comme nous l'avons fait sur ce problème.
Juste une remarque: dans ta première réponse, tu as modifié la boucle du test "ligne vide" pour faire

Code:

---

1 2	For i = 4 To 4

---

Ça ne sert à rien. Supprime la boucle, et met juste "i = 4" au début.