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

XL 2010 Ajouter un tri.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion DAVID-44-
  • 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

DAVID-44-

XLDnaute Occasionnel
Bonjour à tous,

J’ai un classeur avec une feuille stock. Quand j’utilise le bouton "trier" (macro : meszones), les lignes se trient par ordre alphabétique et c’est parfait.
J’aimerais aussi ajouter, en même temps, un tri par date (colonne « I ») de la plus récente à la plus ancienne.

Merci de votre aide.

Bon après-midi
 

Pièces jointes

Trier par date Trier par votes
Bonjour David44

Un lien qui te sera certainement fort utile

Trier l’objet (Excel)

Rubrique de référence sur Office VBA
docs.microsoft.com

Sinon pour le code, en voici un qui remplace celui du "Module2"
VB: 
Dim Zone As Range

Sub MesZones() 'recherche des zones à trier
  With Sheets("STOCK")
    deb = 8
    While .Cells(deb, 2) <> ""
      Set Zone = .Range(.Cells(deb + 1, 2), .Cells(deb + .Cells(deb, 2).CurrentRegion.Rows.Count - 1, .Cells(deb, 2).CurrentRegion.Columns.Count + 1))
      Zone.Select
      deb = .Cells(deb, 3).CurrentRegion.Rows.Count + 3 + deb
      Call trie(Zone)
    Wend
    'Retour début du tableau
    .Cells(8, 1).Select
  End With
End Sub

Sub trie(Zone)
  'Zone.Sort key1:=Zone.Columns(1), Orientation:=xlAscending
  With ActiveSheet.Sort
    With .SortFields
      .Clear
      ' Trier sur le produit
      .Add2 Key:=Zone.Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ' et trier sur la DLC
      .Add2 Key:=Zone.Columns(8), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
    .SetRange Zone
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
End Sub

@+
 
Vote positif 0 Vote négatif
Bonjour BrunoM45,
Merci beaucoup.
J'ai remplacé le code mais j'ai un bug sur la ligne :
.Add2 Key:=Zone.Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Je ne comprends pas.
Merci quand même.
Bonne journée à tous.
Merci de votre aide.
 
Vote positif 0 Vote négatif
Bonjour,

Enlève le 2 qui n'est sans doute pas reconnu dans ta version :
.Add Key:=Zone.Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' et trier sur la DLC
.Add Key:=Zone.Columns(8), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
 
Vote positif 0 Vote négatif
Bonjour à tous,
Du coup, je reviens vous demander de l'aide, car je viens de m'apercevoir quand utilisant la nouvelle macro (qui trie bien par ordre alphabétique puis par "dlc") mélange la colonne fournisseur et le produit ne correspond plus au bon fournisseur !!!!
Bonne journée à tous.
Merci de votre aide.
 
Vote positif 0 Vote négatif
Bonjour David44

Ne connaissant pas le fichier, j'ai trouvé étrange que la colonne B ne soit pas trier 🤔 mais apparemment il ne faut pas effectivement, il faut alors remettre le code initial de la définition de zone et modifier le numéro des colonnes triées

VB: 
Dim Zone As Range

Sub MesZones() 'recherche des zones à trier
  With Sheets("STOCK")
    deb = 8
    While .Cells(deb, 2) <> ""
      'Set Zone = .Range(.Cells(deb + 1, 2), .Cells(deb + .Cells(deb, 2).CurrentRegion.Rows.Count - 1, .Cells(deb, 2).CurrentRegion.Columns.Count + 1))
      Set Zone = .Range(.Cells(deb + 1, 3), .Cells(deb + .Cells(deb, 3).CurrentRegion.Rows.Count - 1, .Cells(deb, 2).CurrentRegion.Columns.Count + 1))
      Zone.Select
      deb = .Cells(deb, 3).CurrentRegion.Rows.Count + 3 + deb
      Call trie(Zone)
    Wend
    'Retour début du tableau
    .Cells(8, 1).Select
  End With
End Sub

Sub trie(Zone)
  'Zone.Sort key1:=Zone.Columns(1), Orientation:=xlAscending
  With ActiveSheet.Sort
    With .SortFields
      .Clear
      ' Trier sur le produit
      .Add2 Key:=Zone.Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ' et trier sur la DLC
      .Add2 Key:=Zone.Columns(7), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
    .SetRange Zone
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  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

A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
285
Dranreb
K
  • Résolu(e)
XL 2013 Problème de tri alphabétique avec scripting dictionary
2
Réponses
16
Affichages
353
ChTi160
K
  • Question Question
Problème de tri alphabétique sur scripting dictionary
Réponses
2
Affichages
110
kiko_23
K
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
188
Paulle
P
P
  • Résolu(e)
XL 2016 double filtre
Réponses
9
Affichages
555
Phil69970
G
  • Question Question
Microsoft 365 Trier les noms par dates dans Excel : gérer les doublons pour des dates identiques
Réponses
6
Affichages
239
C'est papy Mougeot !
F
  • Question Question
Microsoft 365 tri dans Excell
2
Réponses
19
Affichages
616
JHA
J
A
  • Résolu(e)
Autres Afficher le nombre de dates d'une colonne par rapport à une cellule
Réponses
4
Affichages
212
alain.pierrephie
A
S
  • Question Question
Power Query tri powerquery
Réponses
9
Affichages
988
JFL_XLD
J
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
490
telemarrk
T
  • Résolu(e)
XL 2019 Créer un lien Hypertexte ancré à un mot sur une autre feuille
Réponses
8
Affichages
493
sylvanu
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
152
patricktoulon
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
360
sousou
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
204
fanch55
  • Question Question
XL 2010 classer clé dico dans un ordre prédéfini
2
Réponses
25
Affichages
1 K
job75
G
  • Résolu(e)
XL 2019 Trier par ordre alphabétique de gauche à droite
Réponses
7
Affichages
468
Goffy
G
EXCEL :: TRIER - TRIER.PAR - SOMMEPROD - CHOISIR - INDEX - SOMME.SI - NB.SI - DECALER - SEQUENCE : Tris dynamiques, regroupements et somme
Réponses
0
Affichages
168
oguruma
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
468
desto
D
POWERQUERY :: Tris dynamiques, regroupements et somme
Réponses
1
Affichages
171
merinos-BernardEtang
C
  • Résolu(e)
XL 2021 Tri Excel vs Macro
Réponses
9
Affichages
579
claudio54
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…