rororo mais qui sais qui revient poster sur le forum, et oui c'est momo![]()
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 :
Je comprend pourquoi ca ne marche pas mais je n'arrive pas a trouvé comment faire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager