Bouton de macro pour trier
Résolu
thezipper
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
thezipper Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
thezipper Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Hello a tous!!!
Je suis sur Excel et je galère à trouver une macro associé a un code VBA pour trier de façon croissante une colonne.
Sur ma feuille 1 j'aimerai avoir par clique sur un bouton commande trier la colonne D1 :D660 de ma feuille 2.
Quelle est le code VBA à mettre sur le bouton de commande pour faire cela SVP ????
Au bord de la crise !!!
Un utilisateur m'a donné la reponse ci dessous mais le probleme est que je voudrais metre mon bouton sur une autre feuille (1)...
Private Sub CommandButton1_Click()
[D1:D660].Select
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending
[D1].Select
End Sub
merci beaucoup de votre aide
Je suis sur Excel et je galère à trouver une macro associé a un code VBA pour trier de façon croissante une colonne.
Sur ma feuille 1 j'aimerai avoir par clique sur un bouton commande trier la colonne D1 :D660 de ma feuille 2.
Quelle est le code VBA à mettre sur le bouton de commande pour faire cela SVP ????
Au bord de la crise !!!
Un utilisateur m'a donné la reponse ci dessous mais le probleme est que je voudrais metre mon bouton sur une autre feuille (1)...
Private Sub CommandButton1_Click()
[D1:D660].Select
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending
[D1].Select
End Sub
merci beaucoup de votre aide
A voir également:
- Bouton de macro pour trier
- Excel trier par ordre croissant chiffre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Logiciel pour trier les photos automatiquement - Guide
- Diagnostic bouton photo - Accueil - Outils
- Bouton reinitialisation pc - Guide
8 réponses
Merci pour ta reponse mais cela ne marche pas la macro bloque sur la ligne:
Sheets("feuille2").Range(D1:D660).Select
Pourtant j'ai bien fait attention avec le nom de la feuille ....
Sheets("feuille2").Range(D1:D660).Select
Pourtant j'ai bien fait attention avec le nom de la feuille ....
Bonjour,
si tu veux trier la colonne D sur la feuille 2 alors que ton bouton est sur la feuille 1, tu peux faire comme suit :
Si besoin, remplacer "feuille2" par le nom de cette feuille.
Cordialement.
si tu veux trier la colonne D sur la feuille 2 alors que ton bouton est sur la feuille 1, tu peux faire comme suit :
Private Sub CommandButton1_Click()
Sheets("feuille2").Range(D1:D660).Select
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending
[D1].Select
End Sub
Si besoin, remplacer "feuille2" par le nom de cette feuille.
Cordialement.
Bonjour,
Petit cour tout en video et simple
http://www.polykromy.com/blog/excel-video-f10.html
Amicalement Marc
Petit cour tout en video et simple
http://www.polykromy.com/blog/excel-video-f10.html
Amicalement Marc
bonsoir,
A testé cela tri toute la colonne D en feuil1 le bouton est en feuil 2
http://www.cijoint.fr/cjlink.php?file=cj201108/cijTJOb1Mv.xls
Marc
A testé cela tri toute la colonne D en feuil1 le bouton est en feuil 2
http://www.cijoint.fr/cjlink.php?file=cj201108/cijTJOb1Mv.xls
Marc
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonsoir,
Ce code peut vous être utile sans bouton:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Range("maplage").Sort Key1:=Range("D1"), Order1:=xlAscending, Header:= xlGuess, OrderCustom:=1, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
End Sub
- Commence par nommer ta base de données en feuille2.
- Copie le code
- Clique avec le bouton droit sur l'onglet de ta feuille et choisis "Visualiser le code"
- Colle le code et remplace "maplage" par le nom que tu as donné à ta base.
Ce code n'est pas le mien, c'est celui de m@rina envoyé à Pixou, je l'est essayé et il fonctionne bien, il suffit ensuite de cliquer sur une cellule du colonne D dans la feuille2
Ce code peut vous être utile sans bouton:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Range("maplage").Sort Key1:=Range("D1"), Order1:=xlAscending, Header:= xlGuess, OrderCustom:=1, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
End Sub
- Commence par nommer ta base de données en feuille2.
- Copie le code
- Clique avec le bouton droit sur l'onglet de ta feuille et choisis "Visualiser le code"
- Colle le code et remplace "maplage" par le nom que tu as donné à ta base.
Ce code n'est pas le mien, c'est celui de m@rina envoyé à Pixou, je l'est essayé et il fonctionne bien, il suffit ensuite de cliquer sur une cellule du colonne D dans la feuille2
Bonjour,
puisque vous tenez tant à votre Bouton, essaye cette méthode: un bouton affecté à une macro (que vous devez enregistrer).
je l'ai essayé et ça marche.
En feuille 1 :
- Développeur.
- Insérer un Bouton (contrôle de formulaire).
- Enregistrer une Macro : Nom, sans touche de raccourci, ce classeur, description, ensuite OK.
- Sélectionner la Feuille 2.
- Sélectionner le tableau à partir de la colonne D.
- Sélectionner Accueil ensuite Trier et Filtrer et du plus petit au plus grand.
- Arrêter l'enregistrement.
- Revenir à la feuille 1.
- Sélectionner le Bouton clic droit.
- Affecter une macro (celle créée)
- Ensuite OK.
- Tester votre Bouton : vous devez être sur la feuille 2 triée.
Vous pouvez à tout moment remplacer votre bouton par la touche de raccourci.
puisque vous tenez tant à votre Bouton, essaye cette méthode: un bouton affecté à une macro (que vous devez enregistrer).
je l'ai essayé et ça marche.
En feuille 1 :
- Développeur.
- Insérer un Bouton (contrôle de formulaire).
- Enregistrer une Macro : Nom, sans touche de raccourci, ce classeur, description, ensuite OK.
- Sélectionner la Feuille 2.
- Sélectionner le tableau à partir de la colonne D.
- Sélectionner Accueil ensuite Trier et Filtrer et du plus petit au plus grand.
- Arrêter l'enregistrement.
- Revenir à la feuille 1.
- Sélectionner le Bouton clic droit.
- Affecter une macro (celle créée)
- Ensuite OK.
- Tester votre Bouton : vous devez être sur la feuille 2 triée.
Vous pouvez à tout moment remplacer votre bouton par la touche de raccourci.
Bonjour
maquette
https://www.cjoint.com/?AHCknceef06
le code:
maquette
https://www.cjoint.com/?AHCknceef06
le code:
Sheets(2).Range("D1:D660").Sort Sheets(2).Range("D1")
MsgBox "la colonne D de la feuille 2 a été triée avec succès"
Sheets("feuille2").Range("D1:D660").Selecttout le probleme est de mettre le bouton sur une feuille et l'action sur une autre .....
je n'y arrive pas !!!
en fait j'ai fait un petit test, et il semblerait que pour que ça marche, vous devriez d'abord activer la feuille sur laquelle se fera la sélection, puis sélectionner les cellules voulues :
Sheets("Feuil2").Activate Range("D1:D660").SelectCdt.