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 :
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
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