Discussion :

[buhrne]

Salut la compagnie,

J'ai un petit problème avec mes lignes vides dans une plage, mais ça diffère un peu de l'habitude.
D'habitude, on veut supprimer les lignes vides de la plage, mais ces lignes sont réparties un peu partout.
Dans mon cas, j'ai une plage de 200 cellules. J'en rempli seulement une partie en partant du début et j'aimerais supprimer toutes celles suivantes dont la cellule est vide.
j'ai essayé avec une boucle for each.... next, mais ça m'en supprime seulement une sur 2.



J'ai trouvé ce code dans une autre discussion mais j'aimerais en fait lui faire chercher la dernière ligne remplie (à la place de "period") et lui faire supprimer toutes les lignes suivantes dans la plage donnée.

Code :

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

1
2
 range(range("A" & range("A1:A65536").Find("period").Row), _
                     range("A65536").End(xlUp)).entirerow.Delete

Mais je coince un peu.

[ML0808]

Bonjour,

Je ne suis pas sur mais je pense que ton problème vient du fait que tu pars du début et tu vas vers la fin, genre :

For i = 1 to 200
Si cellule de la ligne i est vide alors supprime ligne i
Next i

le problème est qu'en supprimant la ligne i, toutes les autres reculent d'un cran et du coup, après ton Next i tu es en i + 2 et pas en i + 1.

La solution serait de partir de la fin
For i = 0 to 199
Si cellule de la ligne (200 - i) est vide alors supprime ligne (200 - i)
Next i

[buhrne]

J'ai essayé de faire un code avec les éléments que tu m'as donné mais ce que j'ai obtenu c'est qu'il me supprime toutes les lignes en partant de la dernière (même les lignes remplies), et arrivé à la première le code plante.

Voici mon code:

Code :

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

1
2
3
4
5
6
 
For i = 0 To 199
If Cells(200 - i) = 0 Then
Rows(200 - i).delete
End If
Next i

Mais j'ai du rater un truc ou faire une fausse manip.

remarque : j'ai pas un super niveau en vba

[tomy7]

tiens regarde si sa te convientPièce jointe 26574

[cafeine]

Hello,

peut-on résumer ton problème à supprimer toutes les lignes vide d'une plage ?
si oui :

Code :

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

range("A1:A10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[ML0808]

La réponse de caféine est plus jolie que la mienne!

Cependant, voilà la correction du code que tu a posté :

Code :

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

1
2
3
4
5
For i = 0 To 199
If Cells(200 - i) = "" Then
Rows(200 - i).delete
End If
Next i

si jamais tu veux garder des lignes vides au début ou au milieu du document, voilà comment le faire :

Code :

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

1
2
3
4
5
6
7
 
Dim i as integer
i = 0
Do While Cells(200 - i) = "" 
Rows(200 - i).delete
i = i + 1 
Loop

Ca devrait marcher (pas testé)

[buhrne]

Nickel chrome!!!!

Çà marche impec avec le code de CAFEINE.
Désolé ML0808 mais en fait je n'aurais jamais besoin de laisser des lignes vides au milieu ou ailleurs du document. Mais comme mémé dit toujours, il ne faut jamais dire jamais!!! Donc je garde ton code en stock pour le tester et si un jour j'en ai besoin pour un autre projet, et ben je saurais où taper!!!

Merci à tous