Suppression de lignes inutiles Excel VBA
Grobibi34
Messages postés
83
Date d'inscription
Statut
Membre
Dernière intervention
-
aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention -
aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour, tout le monde.
Bon voila je suis en train d'éditer un petit outil qui permettra de faire automatiquement un planning, je ne rentre pas dans les détails...
La taille du tableau ainsi édité est donc variable.
Je pense que j'ai un petit pb de programation dans mon code mais à l'impression il y a systématiquement 200 lignes et bien sur les dernières sont vides et donc pour l'imprimer c'est pas top.
La seule solution, si je ne veu pas me relancer dans mon code, est de selectionner la dernière ligne de mon tableau jusqu'en bas de ma page est de les supprimer. J'arrive à faire cette opération quand ce sont des lignes fixes grâce à ces deux petites lignes:
Rows("50:65536").Select
Selection.Clear
Donc ici de la ligne 50 à la ligne 65536.
Je voudrai que le 50 soit la valeur de ma variable r.
Quel syntaxe dois-je mettre ?
Cordialement,
Grobibi34
Bon voila je suis en train d'éditer un petit outil qui permettra de faire automatiquement un planning, je ne rentre pas dans les détails...
La taille du tableau ainsi édité est donc variable.
Je pense que j'ai un petit pb de programation dans mon code mais à l'impression il y a systématiquement 200 lignes et bien sur les dernières sont vides et donc pour l'imprimer c'est pas top.
La seule solution, si je ne veu pas me relancer dans mon code, est de selectionner la dernière ligne de mon tableau jusqu'en bas de ma page est de les supprimer. J'arrive à faire cette opération quand ce sont des lignes fixes grâce à ces deux petites lignes:
Rows("50:65536").Select
Selection.Clear
Donc ici de la ligne 50 à la ligne 65536.
Je voudrai que le 50 soit la valeur de ma variable r.
Quel syntaxe dois-je mettre ?
Cordialement,
Grobibi34
A voir également:
- Suppression de lignes inutiles Excel VBA
- Forcer suppression fichier - Guide
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
3 réponses
Bonsoir,
Cette macro supprime les lignes vides de la feuille active.
Bonne nuit
Cette macro supprime les lignes vides de la feuille active.
Sub SupprimerLigneVide()
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Bonne nuit
bonjour,
Supposons que tu recherche la dernière ligne valide (remplie) et la dernière colonne serrait par Ex: G
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
ZoneAimprimer="A1:G" & DerniereLigne
ActiveSheet.PageSetup.PrintArea = ZoneAimprimer
A+
Supposons que tu recherche la dernière ligne valide (remplie) et la dernière colonne serrait par Ex: G
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
ZoneAimprimer="A1:G" & DerniereLigne
ActiveSheet.PageSetup.PrintArea = ZoneAimprimer
A+
Oui pas mal l'idée mais j'aimerai faire un fichier réelement simple pour l'utilisateur sans aucune formation, donc j'aimerai essayé de supprimé automatiquement "tout ce qui dépasse"
