Tri en Vba
Résolu
thibaut_francois
Messages postés
96
Date d'inscription
Statut
Membre
Dernière intervention
-
thibaut_francois -
thibaut_francois -
Bonjour,
Je reçois régulièrement un tableau excel, avec un jour et des noms de personnes (Cf fichier).
Mais les noms ne sont pas toujours triés par ordre alphabétique.
https://www.cjoint.com/c/KDnrkJp3Diu
J'aimerais pouvoir faire ce tri via un bouton relié à un code VBA qui :
- trie par ordre alphabétique
- que la sélection qui aura été au préalable faite (peu importe où je me trouve sur la feuille, et peu importe le nom de la feuille car j'en ai une chaque semaine)
Par exemple, je sélection C12:C18... clic le bouton pour trier... puis je sélectionne G12:G19... clic le bouton pour trier... puis je sélectionne C3:C10... clic le bouton pour trier... etc
Merci pour votre aide
Je reçois régulièrement un tableau excel, avec un jour et des noms de personnes (Cf fichier).
Mais les noms ne sont pas toujours triés par ordre alphabétique.
https://www.cjoint.com/c/KDnrkJp3Diu
J'aimerais pouvoir faire ce tri via un bouton relié à un code VBA qui :
- trie par ordre alphabétique
- que la sélection qui aura été au préalable faite (peu importe où je me trouve sur la feuille, et peu importe le nom de la feuille car j'en ai une chaque semaine)
Par exemple, je sélection C12:C18... clic le bouton pour trier... puis je sélectionne G12:G19... clic le bouton pour trier... puis je sélectionne C3:C10... clic le bouton pour trier... etc
Merci pour votre aide
A voir également:
- Tri en Vba
- Comment faire un tri personnalisé sur excel - Guide
- Logiciel tri photo - Guide
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
4 réponses
Bonjour
Pas besoin de bouton, on peut faire avec un raccourci clavier (indépendant de la feuille)
https://www.cjoint.com/c/KDnsg7ux8ZB
Cdlmnt
Pas besoin de bouton, on peut faire avec un raccourci clavier (indépendant de la feuille)
https://www.cjoint.com/c/KDnsg7ux8ZB
Cdlmnt
Public Sub tri()
Dim plage As Range, cel As Range
' plage est la plage selectionnée
Set plage = Selection
' cel est la première cellule de plage
Set cel = Selection.Cells(1, 1)
' plage est triée
' Header := xlNo pour pas de titre en premiere cellule de plage
plage.Sort key1:=cel, Header:=xlNo
End Sub
Cdlmnt
Si c'est fini, mets le sujet à Résolu (en haut à droite dans ton premier message)
Dim plage As Range, cel As Range
' plage est la plage selectionnée
Set plage = Selection
' cel est la première cellule de plage
Set cel = Selection.Cells(1, 1)
' plage est triée
' Header := xlNo pour pas de titre en premiere cellule de plage
plage.Sort key1:=cel, Header:=xlNo
End Sub
Cdlmnt
Si c'est fini, mets le sujet à Résolu (en haut à droite dans ton premier message)