DonBeuBeu XLDnaute Junior 4 Mars 2016 #1 Bonjour, J'ai fait une petite macro pour trier deux colonnes par ordre alphabétique quand je quitte l'onglet, sa donne sa: Code: Private Sub Worksheet_Deactivate() Range("B2:B" & Rows.End(xlDown).Row).Select Range("A2:A" & Rows.End(xlDown).Row).Sort Range("A1"), xlAscending '.Sort Range("B1"), xlAscending End Sub Problème! La deuxième sélection que je fait, se fait de la même taille que la première... Voir le fichier pour plus d'explications Merci!!! Pièces jointes Classeur1.xlsm 13.8 KB · Affichages: 45 Classeur1.xlsm 13.8 KB · Affichages: 42 Dernière édition: 4 Mars 2016
Bonjour, J'ai fait une petite macro pour trier deux colonnes par ordre alphabétique quand je quitte l'onglet, sa donne sa: Code: Private Sub Worksheet_Deactivate() Range("B2:B" & Rows.End(xlDown).Row).Select Range("A2:A" & Rows.End(xlDown).Row).Sort Range("A1"), xlAscending '.Sort Range("B1"), xlAscending End Sub Problème! La deuxième sélection que je fait, se fait de la même taille que la première... Voir le fichier pour plus d'explications Merci!!!
pierrejean XLDnaute Barbatruc 4 Mars 2016 #2 Re : [Excel 2007] VBA - Tri alphabétique lorsque l'on quitte l'onglet Bonjour DonBeuBeu A tester: Code: Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Sort Range("A1"), xlAscending Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).Sort Range("B1"), xlAscending Vote positif 0 Vote négatif
Re : [Excel 2007] VBA - Tri alphabétique lorsque l'on quitte l'onglet Bonjour DonBeuBeu A tester: Code: Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Sort Range("A1"), xlAscending Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).Sort Range("B1"), xlAscending
Lone-wolf XLDnaute Barbatruc 4 Mars 2016 #3 Re : [Excel 2007] VBA - Tri alphabétique lorsque l'on quitte l'onglet Bonsoir DonBeuBeu, pierrejean en plus court Code: Range("A2:A65536").Sort [A2], xlAscending: Range("B2:B65536").Sort [B2], xlAscending A+ Vote positif 0 Vote négatif
Re : [Excel 2007] VBA - Tri alphabétique lorsque l'on quitte l'onglet Bonsoir DonBeuBeu, pierrejean en plus court Code: Range("A2:A65536").Sort [A2], xlAscending: Range("B2:B65536").Sort [B2], xlAscending A+