Adapter une macro (tri) en fonction du contenu d'une liste déroulante

Dranreb

XLDnaute Barbatruc

• 19 Octobre 2013

• #2

Re : Adapter une macro (tri) en fonction du contenu d'une liste déroulante

Bonjour.
Il faut se débrouiller pour remplacer Range("A5") par une cellule de la colonne de rang dépendant de la valeur de la liste déroulante.
Mais franchement, ce serait à la fois plus simple à programmer et plus pratique à utiliser d'effectuer le tri dès qu'on sélectionne un titre ! Parce qu'alors ce serait simplement la cellule Target de la Sub Worksheet_SelectionChange

Salut Pierre-Jean.

Je mets quand même mon code au cas où…

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Me.[A4:D4], Target) Is Nothing Then Exit Sub
Me.Range(Me.[I5], Me.[A65536].End(xlUp)).Sort Key1:=Target, Order1:=xlAscending, Header:=xlNo, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

Dernière édition: 19 Octobre 2013

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Octobre 2013

• #3

Re : Adapter une macro (tri) en fonction du contenu d'une liste déroulante

Bonjour Nougatine95

Vois si cela te convient

Edit : Salut Dranreb

 

Pièces jointes

• Macro_Tri_Liste_Deroulante.xls

  46 KB · Affichages: 31
• Macro_Tri_Liste_Deroulante.xls

  46 KB · Affichages: 39
• Macro_Tri_Liste_Deroulante.xls

  46 KB · Affichages: 41

Vote positif 0 Vote négatif

N

Nougatine95

XLDnaute Occasionnel

• 19 Octobre 2013

• #4

Re : Adapter une macro (tri) en fonction du contenu d'une liste déroulante

Dranreb à dit:

Mais franchement, ce serait à la fois plus simple à programmer et plus pratique à utiliser d'effectuer le tri dès qu'on sélectionne un titre ! Parce qu'alors ce serait simplement la cellule Target de la Sub Worksheet_SelectionChange

Cliquez pour agrandir...

Merci beaucoup Dranreb,
En effet, ce serait plus simple, bien que je ne sois pas capable actuellement de "programmer" tel que tu l'indiques. 🙂)
Si j'étais seule à l'utiliser ce serait OK, mais là je cherche à faire simple sans avoir à expliquer...
Je pense que pour les utilisateurs qui ne connaissent pas Excel, ils comprendront qu'ils ont un choix avec le menu déroulant.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Octobre 2013

• #5

Re : Adapter une macro (tri) en fonction du contenu d'une liste déroulante

Après tout les 2 systèmes peuvent coexister. Voir mon code ajouté en édit au post #2, à mettre dans le module Feuil1 (Feuil1)

 

Vote positif 0 Vote négatif

N

Nougatine95

XLDnaute Occasionnel

• 19 Octobre 2013

• #6

Re : Adapter une macro (tri) en fonction du contenu d'une liste déroulante

Merci pierrejean

J'ai consulté la macro que tu as saisie:

Sub Macro1()
x = Range("B3")
Range("A4:I12").Select
Selection.Sort Key1:=Cells(5, x), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Résultat: Ce que je recherchais.

Merci merci merci pierrejean!

 

Vote positif 0 Vote négatif

N

Nougatine95

XLDnaute Occasionnel

• 19 Octobre 2013

• #7

Re : Adapter une macro (tri) en fonction du contenu d'une liste déroulante

Merci Dranreb,

Sympa d'avoir indiqué le code.

Bonne journée.

 

Vote positif 0 Vote négatif