Suppression de lignes vides

[Florent]

Bonjour,

j'aimerais avoir votre aide sur un petit pb qui me bloque:
j'ai un tableau qui contient différentes infos: nom, date,...
mais ce tableau contient des lignes vides,
je voudrais les supprimer (remonter les lignes pleines).

Ca doit pas très compliqué mais bon...

merci

 

[C@thy]

Salut Florent,

voici un petit code :

Sub SupprimeLigneVide()
Dim Der As Integer
Dim i As Integer

i = 0
der = Sheets("feuil1").Range("A32767").End(xlUp).Row
While i < Der
i = i + 1
If Range("A" & i).Value = 0 Then
Range("A" & i).EntireRow.Delete
Der = Der - 1
i = i - 1
End If
Wend
End Sub

 

[C@thy]

P.S. ce petit programme teste si la colonne A est vide, dans ce cas il y a suppression de toute la ligne. Je ne sais pas si c'est ce que tu souhaites exactement.

 

[Florent]

ouais je vais essayer merci!!

 

[andré]

Salut Florent, salut C@thy,

Il y a aussi :

Sélectionner la colonne A, puis F5 / Cellules / Cellules vides / OK / Edition / Supprimer / Lignes entières / OK.

Eventuellement à enregistrer sous une petite macro avec bouton ou touche de raccourci.

Ândré.