Macro autoexec pour supprimer les lignes blanches - VB/VBA/VBS - Programmation
Marsh Posté le 06-06-2005 à 18:16:29
bonjour,
Cette macro supprime les lignes vides (de 1 a 100) :
Sub test()
For i = 100 To 1 Step -1 'à adapter à ta situation...
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next
End Sub
A+
Marsh Posté le 07-06-2005 à 10:24:15
Si tu ne sais pas combien de lignes il y a, et poour éviter de faire dérouler la macro pendant trop longtemps, tu peux changer le 'For i = 100 to 1' par
for i = Range("A65536" ).End(xlUp).Row to 1
(en partant du principe que la colonne est forcément renseignée si la ligne n'est pas vide...)
Marsh Posté le 03-06-2005 à 10:11:20
Je cherche une macro auto exécutable qui me permet de regrouper toutes les lignes de mon tableau(ou supprimer les lignes vierges).
J'ai fais une extraction qui me récupère que les lignes correspondant à mon critère. Cependant, les lignes qui ne correspondent pas restent vierges.
Y a -t-il un moyen de les supprimer?