Autofiltre
Résolu/Fermé
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
-
19 juil. 2013 à 14:58
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 31 juil. 2013 à 14:50
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 31 juil. 2013 à 14:50
Bonjour,
Je suis novice et VBA et j'aimerais implanter une macro afin de gagner un peu de temps.
Enfaîte j'ai des infos dans ma colonnes A qui sont rentrées de façon aléatoire.
J'aimerais que lorsque je clique sur un bouton (que j'ai créé) ma macro s'active et :
1. Mette en place un filtre sur la case A6
2. Tri la colonne de A --> Z (de la ligne 7 à 43)
3. Supprime le filtre mis en place à l'étape 1
Merci d'avance.
Je suis novice et VBA et j'aimerais implanter une macro afin de gagner un peu de temps.
Enfaîte j'ai des infos dans ma colonnes A qui sont rentrées de façon aléatoire.
J'aimerais que lorsque je clique sur un bouton (que j'ai créé) ma macro s'active et :
1. Mette en place un filtre sur la case A6
2. Tri la colonne de A --> Z (de la ligne 7 à 43)
3. Supprime le filtre mis en place à l'étape 1
Merci d'avance.
2 réponses
f894009
Messages postés
17239
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 février 2025
1 713
19 juil. 2013 à 15:28
19 juil. 2013 à 15:28
Bonjour,
Pas besoin de filtre, un simple tri ira tres bien:
fait avec l'enregistreur de macro
Bonne suite
Pas besoin de filtre, un simple tri ira tres bien:
fait avec l'enregistreur de macro
Sub Macro1() ' ' Macro1 Macro ' ' Range("A7:A43").Select ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A6"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").Sort .SetRange Range("A7:A43") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Bonne suite
f894009
Messages postés
17239
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 février 2025
1 713
22 juil. 2013 à 14:24
22 juil. 2013 à 14:24
Re,
A+
Sub Macro1() ' ' Macro1 Macro ' Dim table 'mise en memoire des valeurs d'origines table = Worksheets("Feuil1").Range("A7:A43") 'code tri Range("A7:A43").Select ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A6"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").Sort .SetRange Range("A7:A43") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 'Reecriture cellules d'origines Worksheets("Feuil1").Range("A7") = Application.Transpose(table) End Sub
A+
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
28
22 juil. 2013 à 16:20
22 juil. 2013 à 16:20
Re,
A première vue ça semble correspondre.
Je ne peux pas l'essayer aujourd'hui, je te tiens au courant dès demain matin
En attendant merci, et bonne fin de journée.
A première vue ça semble correspondre.
Je ne peux pas l'essayer aujourd'hui, je te tiens au courant dès demain matin
En attendant merci, et bonne fin de journée.
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
28
31 juil. 2013 à 14:50
31 juil. 2013 à 14:50
Bonjour,
Désolé de ne répondre que maintenant.
Cette solution ne s'avère pas être la plus efficace je crains (une fois la macro activée, mes formules ne fonctionnent plus) je vais chercher une solution alternative.
En tout cas, je te remercie pour ton implication.
Bonne journée
Désolé de ne répondre que maintenant.
Cette solution ne s'avère pas être la plus efficace je crains (une fois la macro activée, mes formules ne fonctionnent plus) je vais chercher une solution alternative.
En tout cas, je te remercie pour ton implication.
Bonne journée
22 juil. 2013 à 10:22
Déjà merci pour ton aide,
Effectivement je n'avais pas pensé à l'enregistreur de macro.
Cela fonctionne pour le tri en revanche, cela ne "rétabli" pas comme à l'origine après le filtre.
J'explique : Je souhaite que le tri s'applique (puis ma macro exporte le fichier en PDF avec la ligne triées par ordre alphabétique) et une fois que le fichier à été exporté j'aimerais que le tri s'annule (l'enregistreur ne prend pas en compte Ctrl+Z). Il faut que cela s'annule pour des correspondances de formule.
Merci d'avance
22 juil. 2013 à 11:27
Sauf erreur de ma part, un filtre ne fait pas de tri par ordre alphabetique!!!!
22 juil. 2013 à 13:50
La seule chose dont j'ai besoin c'est d'une macro capable de m'appliquer un tri A --> Z, (effectuer d'autres actions mais cette partie est OK) et après d'annuler le tri.