Suppression de lignes vides

C

C@thy

Guest

• 10 Juin 2003

• #2

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 10 Juin 2003

• #3

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.

 

Vote positif 0 Vote négatif

F

Florent

Guest

• 10 Juin 2003

• #4

ouais je vais essayer merci!!

 

Vote positif 0 Vote négatif

A

andré

Guest

• 10 Juin 2003

• #5

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

 

Vote positif 0 Vote négatif