Discussion :

[morgan47]

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

[Lucio]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lucio]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[morgan47]

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

[morgan47]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[morgan47]

merci beaucoup