Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Tri personnalise par macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion whooki
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

whooki

XLDnaute Occasionnel
Bonjour à tous,

Je souhaiterais réaliser un filtre élaboré par macro avec un bouton de commande, avec lequel je souhaiterais filtrer les valeurs supérieures ou égales à la valeur de la cellule C2, filtré également les valeurs inférieures ou égales de la cellule C3.

Ensuite j’aimerais que ça me trie les valeurs de la colonne B du plus petit au plus grand, et la colonne C du plus grand au plus petit, comme sur l’exemple ci-joint.

Merci par avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Tri personnalise par macro

Bonjour,

Voilà pour le tri, je crois que cela devrait fonctionner. Chez moi c'est tout bon.

Pour le reste il faut que je relise ton post car je n'ai pas tout compris.

Code: 
Range("A3").Select
    ActiveWorkbook.Worksheets("nom de ta feuille").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("nom de ta feuille").Sort.SortFields.Add Key:=Range("B1:B10" _
        ), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("nom de ta feuille").Sort.SortFields.Add Key:=Range("C1:C10" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("nom de ta feuille").Sort
        .SetRange Range("A1:C10")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select

Cordialement
 
Vote positif 0 Vote négatif
Re : Tri personnalise par macro

Tu as bien changé les références, "nom de ta feuille", les cellules indiquées.
Ce n'est qu'un exemple que tu dois appliquer selon tes propres données.
 
Vote positif 0 Vote négatif
Re : Tri personnalise par macro

Voici le code adapté à ton exemple

Code: 
Range("B10:B20").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B11:B20") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("B14:B20")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C10:C20").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C11:C20") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("C14:C20")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A10").Select
 
Vote positif 0 Vote négatif
Re : Tri personnalise par macro

Oui, effectivement j'ai réadapté le code:

Application.ScreenUpdating = False
With ActiveWorkbook


ØEXT = Range("C2").Value
ØINT = Range("C3").Value



ActiveSheet.Range("$B$10:$C$21").AutoFilter Field:=1, Criteria1:=">=12 (ici je voudrais mettre range("c2").value a la place)", _
Operator:=xlAnd
ActiveSheet.Range("$B$10:$C$21").AutoFilter Field:=2, Criteria1:="<=10", _
Operator:=xlAnd
ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add Key:=Range _
("C10:C21"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Tri personnalise par macro

Merci de ta réponse mais j'ai réussi a faire ce que je voulais.
Ci-dessous mon code:

MErci encore

Application.ScreenUpdating = False
With ActiveWorkbook


ActiveSheet.Range("$B$10:$C$21").AutoFilter Field:=1, Criteria1:=">=" & [c2].Value, _
Operator:=xlAnd
ActiveSheet.Range("$B$10:$C$21").AutoFilter Field:=2, Criteria1:="<=" & [c3].Value, _
Operator:=xlAnd
ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add Key:=Range _
("C10:C21"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With

End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2019 trouver le plus grand numéro
Réponses
11
Affichages
719
Blafi
B
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
412
Thomas75
T
R
  • Résolu(e)
XL 2021 Affichage valeur selon Filtre et puis faire un Tri
2
Réponses
16
Affichages
1 K
Rabeto
R
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
573
fanch55
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
556
Phil69970
G
  • Question Question
Microsoft 365 Macro VBA - Excel
Réponses
12
Affichages
799
Dranreb
C
  • Question Question
XL 2010 Trier des lignes par nombre de mots pertinent
Réponses
3
Affichages
909
crocrocro
C
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
531
AtTheOne
  • Question Question
XL 2021 Couleur cellule selon condition par macro
Réponses
3
Affichages
484
gourdin
O
  • Question Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
468
Oddoneju
O
  • Question Question
Microsoft 365 Macro pour renvoyer la valeur par rapport à un intervalle
Réponses
6
Affichages
615
sylvanu
C
  • Question Question
Microsoft 365 VBA Moyennes avec conditions
Réponses
7
Affichages
812
AtTheOne
M
  • Résolu(e)
Microsoft 365 Filtrer deux tableaux par rapport aux critères
Réponses
9
Affichages
755
MJD001
M
M
  • Question Question
Microsoft 365 Problème macro sur la gestion des axes d'un graph par cellule.
Réponses
1
Affichages
412
Hasco
  • Question Question
Microsoft 365 Suivant une sélection filtré remplacer les formules par leurs valeurs
Réponses
2
Affichages
733
chris
J
  • Question Question
XL 2016 Création de boutons en boucle
Réponses
1
Affichages
709
sylvanu
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
671
Lu76Fer
S
  • Question Question
XL 2010 Résultats possibles d'une combinaison de nombres
Réponses
2
Affichages
2 K
Stellaire
S
  • Résolu(e)
XL 2016 Résolu: Cumul cellules selon test sur autres cellules
Réponses
11
Affichages
868
Olivier29b
J
  • Question Question
XL 2013 Comparaison de valeur suivant une autre valeur
Réponses
11
Affichages
1 K
julkien
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…