VBA supprimer plusieur ligne excel

rororo mais qui sais qui revient poster sur le forum, et oui c'est momo :D
je voudrai supprimer des lignes vides lorsque l'on lance un userform, j'ai fait le code suivant qui marche lorsqu'il y a une seule ligne vide d'affilé, si il y a deux ligne vide ça en supprime qu'une seul.
voila mon code :

Code:

---

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

Private Sub UserForm_Initialize() Dim i, j As Long i = 200 While Feuil1.Cells(i, 1) = "" i = i - 1 Wend MsgBox i   For j = 1 To i If Feuil1.Cells(j, 1) = "" Then Feuil1.Rows(j).Delete Shift:=xlUp Else End If Next j End Sub

---

Je comprend pourquoi ca ne marche pas mais je n'arrive pas a trouvé comment faire.
quand il y a 2 ligne vide , la premier est supprimer, et comme quand on supprime la seconde ligne vide remonte et que le j=j+1 ca passe au dessus.
si quelqu'un avais une idée :)
merci encore

Citation:

---

Envoyé par morgan47

rororo mais qui sais qui revient poster sur le forum, et oui c'est momo :D
je voudrai supprimer des lignes vides lorsque l'on lance un userform, j'ai fait le code suivant qui marche lorsqu'il y a une seule ligne vide d'affilé, si il y a deux ligne vide ça en supprime qu'une seul.
voila mon code :

Code:

---

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

Private Sub UserForm_Initialize() Dim i, j As Long i = 200 While Feuil1.Cells(i, 1) = "" i = i - 1 Wend MsgBox i   For j = 1 To i If Feuil1.Cells(j, 1) = "" Then Feuil1.Rows(j).Delete Shift:=xlUp Else End If Next j End Sub

---

Je comprend pourquoi ca ne marche pas mais je n'arrive pas a trouvé comment faire.
quand il y a 2 ligne vide , la premier est supprimer, et comme quand on supprime la seconde ligne vide remonte et que le j=j+1 ca passe au dessus.
si quelqu'un avais une idée :)
merci encore

---

Changes ta boucle for en while car tu ne sais pas combien de lignes tu vas supprimer :

Code:

---

1 2 3 4 5 6 7

j=1 While j<=i and j<10000 If Feuil1.Cells(j, 1) = "" Then Feuil1.Rows(j).Delete Shift:=xlUp else j=j+1 End If End Sub

---

J'ai ajouté la condition j<10000 car si jamais ta feuille est entièrement vide...:mrgreen:

Pardon pour la boucle infinie si la feuille est complètement vide :

Code:

---

1 2 3 4 5 6 7 8

j=1: securite=1 While j<=i and securite<10000 If Feuil1.Cells(j, 1) = "" Then Feuil1.Rows(j).Delete Shift:=xlUp else j=j+1 End If securite=securite+1 Wend

---

oualà monsieur :)

merci a tous les deux pour vos réponces, je vais regardé ca dessuite :)

j'ai trouvé pour la boucle infini,
a chaque ligne que l'on supprime le i doit diminuer d'un sinon on va arrive a une ligne blance an tant que i et ca va bouclé a l'infini:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

j = 1 While j <= i If Feuil1.Cells(j, 1) = "" Then Feuil1.Rows(j).Delete Shift:=xlUp i = i - 1 Else j = j + 1 End If Wend End Sub

---

Mais comment faire si a la place d'avoir une cellule vide il y a une cellule blanche mais qui contient des espaces?

merci beaucoup :)