VBA problème macro et duplication de fichiers macro
Résolu/Fermé
caroouline
Messages postés
35
Date d'inscription
mardi 5 mai 2020
Statut
Membre
Dernière intervention
15 février 2024
-
5 juin 2020 à 09:30
f894009 Messages postés 17266 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 mars 2025 - 6 juin 2020 à 07:02
f894009 Messages postés 17266 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 mars 2025 - 6 juin 2020 à 07:02
A voir également:
- VBA problème macro et duplication de fichiers macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Duplication écran - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
4 réponses
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
167
Modifié le 5 juin 2020 à 10:16
Modifié le 5 juin 2020 à 10:16
Bonjour,
la macro fonctionne très bien.
Ce qui fait qu'elle ne fonctionne pas, c'est le fait qu'aucun filtre n'est appliqué sur la feuille.
Puisque dans le code, tu demandes à réinitialiser les filtres qui n'existent pas.
Si tu dupliques ton fichier, la macro reste avec, si elle est intégrée au classeur.
Au passage, j'ai légèrement allégé ton code :
Sans pointer un nom de Sheet, il faut le mettre dans la Feuil2 (ACHATS 2018)
Ainsi, si tu dupliques ton fichier, la macro sera associé à Feuil2
la macro fonctionne très bien.
Ce qui fait qu'elle ne fonctionne pas, c'est le fait qu'aucun filtre n'est appliqué sur la feuille.
Puisque dans le code, tu demandes à réinitialiser les filtres qui n'existent pas.
Si tu dupliques ton fichier, la macro reste avec, si elle est intégrée au classeur.
Au passage, j'ai légèrement allégé ton code :
Sans pointer un nom de Sheet, il faut le mettre dans la Feuil2 (ACHATS 2018)
Ainsi, si tu dupliques ton fichier, la macro sera associé à Feuil2
Sub Effacement() AutoFilter.Sort.SortFields.Clear Range("C5").ClearContents Range("E5").ClearContents Range("B2").ClearContents Range("I5").ClearContents Range("N5").ClearContents Rows("6:6").Select Range(Selection, Selection.End(xlDown)).Select Rows("6:132").FillDown ActiveWindow.LargeScroll Down:=-2 Range("C5").Select End Sub
f894009
Messages postés
17266
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 mars 2025
1 713
5 juin 2020 à 09:41
5 juin 2020 à 09:41
Bonjour,
A quelle ligne est l'erreur?
A quelle ligne est l'erreur?
caroouline
Messages postés
35
Date d'inscription
mardi 5 mai 2020
Statut
Membre
Dernière intervention
15 février 2024
5 juin 2020 à 09:50
5 juin 2020 à 09:50
Bonjour,
ActiveWorkbook.Worksheets("ACHATS 2018").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ACHATS 2018").AutoFilter.Sort.SortFields.Clear
f894009
Messages postés
17266
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 mars 2025
1 713
5 juin 2020 à 09:56
5 juin 2020 à 09:56
Re,
Avant de lancer la macro, c'est le bon nom de feuille et y a un flitre?
Avant de lancer la macro, c'est le bon nom de feuille et y a un flitre?
caroouline
Messages postés
35
Date d'inscription
mardi 5 mai 2020
Statut
Membre
Dernière intervention
15 février 2024
5 juin 2020 à 10:12
5 juin 2020 à 10:12
Bonjour yoyo01000,
Je te remercie beaucoup ça marche parfaitement.
Et j'ai compris l'erreur que je fais souvent.
Bonne journée à tous.
Je te remercie beaucoup ça marche parfaitement.
Et j'ai compris l'erreur que je fais souvent.
Bonne journée à tous.
5 juin 2020 à 10:09
Encore plus simple:
Ligne filtre a supprimer si en effet pas de filtre
5 juin 2020 à 10:21
Et pour pouvoir dupliquer son fichier/macro, sans l'attribuer à un nom de feuille spécifique :
6 juin 2020 à 07:02
lecture/compréhension du code
Tout a fait Thierry mais: l'efficacité d'execution, le moins de ligne possible et "élever" le niveau doivent être le but a atteindre
Pout duplication, faite le manip avec le avec l'enregistreur de macro et modifiez