Macro autoexec pour supprimer les lignes blanches

Macro autoexec pour supprimer les lignes blanches - VB/VBA/VBS - Programmation

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?

Reply

Marsh Posté le 03-06-2005 à 10:11:20   

Reply

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+
 

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed