[excel] supprimer 99 lignes sur 100
Résolu/Fermé
A voir également:
- [excel] supprimer 99 lignes sur 100
- Comment supprimer une page sur word - Guide
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
5 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
31 mars 2009 à 13:00
31 mars 2009 à 13:00
bonjour,
essaies cette macro (réalisée sous XL2003):
essaies cette macro (réalisée sous XL2003):
Option Explicit
Const vide As Byte = 99 'nombre de lignes à supprimer par pas
Const lig_dep As Byte = 7 'ligne de départ
'
Sub nettoyer()
Dim lig As Long, nbre As Long, pas As Long, cptr As Long
'initialisation
lig = lig_dep
nbre = Application.CountA(Range(Cells(lig, 1), Cells(65536, 1))) ' >65536 si XL2007
pas = Int(nbre / vide)
Application.ScreenUpdating = False
'destruction lignes
For cptr = 1 To pas
Rows(lig + 1 & ":" & lig + vide).Delete
lig = lig + 1
Next
End Sub
Mabelle60
Messages postés
469
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
21 juin 2017
130
31 mars 2009 à 12:02
31 mars 2009 à 12:02
Bonjour
Sans macro mais un peu à la barbare
Insère une colonne à gauche de sorte que cela devienne la colonne A
Tu met "x" sur la première ligne souhaitée
Tu selectionnes 100 celulles "x" compris
Tu tires vers le bas jusque ta dernière ligne
Tu ajoutes des filtres auto
Tu filtres su "vide" en colonne A
Tu selectionnes tes lignes
Tu supprimes les lignes
Tu supprimes ta colonne A
A toi de voir si tu préfères attendre une réponse plus conventionnelle
Sans macro mais un peu à la barbare
Insère une colonne à gauche de sorte que cela devienne la colonne A
Tu met "x" sur la première ligne souhaitée
Tu selectionnes 100 celulles "x" compris
Tu tires vers le bas jusque ta dernière ligne
Tu ajoutes des filtres auto
Tu filtres su "vide" en colonne A
Tu selectionnes tes lignes
Tu supprimes les lignes
Tu supprimes ta colonne A
A toi de voir si tu préfères attendre une réponse plus conventionnelle
Je suis en train de faire une macro de ce genre :
Selection.Delete Shift:=xlUp
Range("A13:E111").Select
Selection.Delete Shift:=xlUp
Range("A14:E112").Select
Selection.Delete Shift:=xlUp
Range("A15:E113").Select
Selection.Delete Shift:=xlUp
Range("A16:E114").Select
Selection.Delete Shift:=xlUp
Range("A17:E115").Select
Selection.Delete Shift:=xlUp
Range("A18:E116").Select
Selection.Delete Shift:=xlUp
Range("A19:E117").Select
Selection.Delete Shift:=xlUp
Range("A20:E118").Select
Selection.Delete Shift:=xlUp ....
cela me prend un temps fou pour la faire, sachant que au bout de 30 minutes je ne suis même pas arrivée à la moitié de mes valeurs ...
je ne sais plus quoi faire
Selection.Delete Shift:=xlUp
Range("A13:E111").Select
Selection.Delete Shift:=xlUp
Range("A14:E112").Select
Selection.Delete Shift:=xlUp
Range("A15:E113").Select
Selection.Delete Shift:=xlUp
Range("A16:E114").Select
Selection.Delete Shift:=xlUp
Range("A17:E115").Select
Selection.Delete Shift:=xlUp
Range("A18:E116").Select
Selection.Delete Shift:=xlUp
Range("A19:E117").Select
Selection.Delete Shift:=xlUp
Range("A20:E118").Select
Selection.Delete Shift:=xlUp ....
cela me prend un temps fou pour la faire, sachant que au bout de 30 minutes je ne suis même pas arrivée à la moitié de mes valeurs ...
je ne sais plus quoi faire
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question