Suppression ligne multi classeur
Résolu
stitchbouck
Messages postés
135
Date d'inscription
Statut
Membre
Dernière intervention
-
stitchbouck Messages postés 135 Date d'inscription Statut Membre Dernière intervention -
stitchbouck Messages postés 135 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Suppression ligne multi classeur
- Forcer suppression fichier - Guide
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
2 réponses
Bonjour
Heureux que mon travail ait pu t’être utile
Pour boucler sur toutes les feuilles d'un classeur :
For n = 1 To Sheets.Count Sheets(n).Select Next
Il suffit ensuite d'insérer ta macro d'effacement avant le Next
Pour boucler sur tous les classeurs d'un dossier :
https://excelcorpo.com/ouverture-de-tous-les-classeurs-a-partir-dun-dossier-avec-excel-vba/
Cdlmnt
Via
Bonjour,
super merci beaucoup !!
Au final ça donne :
Sub OuvertureTousClasseurs()
'Étape 1: Déclaration des variables
Dim MesFichiers As String
'Étape 2: Indication du répertoire cible
MesFichiers = Dir("chemin accès jusqu'au dossier\*.xlsx")
Do While MesFichiers <> ""
'Étape 3: Ouvrez plus de classeurs
Updatingscreen = False
Workbooks.Open "chemin accès jusqu'au dossier\" & MesFichiers
For b = 1 To Sheets.Count
Sheets(b).Select
dl = Range("A1048576").End(xlUp).Row
For n = dl To 2 Step -1
If Range("A" & n) <> "01" Then Range("A" & n).EntireRow.Clear 'clear va plus vite que delete, dans mon cas ça suffit car tout est trié
Next n
Next b
'Exécution de certains codes
MsgBox ActiveWorkbook.Name 'perso je l'ai désactivé
ActiveWorkbook.Close SaveChanges:=True
'Étape 4: Le fichier suivant du dossier
MesFichiers = Dir
Loop
End Sub
Ca fonctionne très bien. par contre une fois fait, vaut mieux que je relance mon pc car je me retrouve avec des lenteurs...
Merci à tous !
