Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
965 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro autoexec pour supprimer les lignes blanches

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro autoexec pour supprimer les lignes blanches

n°1106594
Porter1
Aide toi et le ciel t\\\'aidera!
Posté le 03-06-2005 à 10:11:20  profilanswer
 

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?

mood
Publicité
Posté le 03-06-2005 à 10:11:20  profilanswer
 

n°1110118
galopin01
Posté le 06-06-2005 à 18:16:29  profilanswer
 

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+
 

n°1110637
Gusdabo
Posté le 07-06-2005 à 10:24:15  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro autoexec pour supprimer les lignes blanches

 

Sujets relatifs
Pbme Macro VBA Excel avec Format Nombre limitéPbme Macro VBA Excel avec Format Nombre limité
Débutant en macro sur excel!lister et supprimer le contenu d'un dossier
Lignes vides lors d'une transformation XSLTbouton sous excel et macro [résolu]
supprimer certain retour chariotsupprimer les "trous" d'un tableau ?
Récupération de x fois 4 lignes dans un fichier log[html] Comment supprimer les selectionnés ? (Formulaires)
Plus de sujets relatifs à : Macro autoexec pour supprimer les lignes blanches


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR