pompaero
XLDnaute Impliqué
Bonjour le forum,
Je viens de créer une macro pour mettre par ordre alphabétique un tableau sur 3 colonnes.
J'essais d'activer cette macro en "Private Sub Worksheet_Deactivate()" mais cela ne fonctionne pas, quel est le souci que je rencontre ??
Je viens chercher un peu d'aide sur un quelque chose de simple j'imagine.
Voici la macro qui tri sur 3 colonnes :
puis le code la feuille concernée :
Merci à vous
Cdlt
pompaero
Je viens de créer une macro pour mettre par ordre alphabétique un tableau sur 3 colonnes.
J'essais d'activer cette macro en "Private Sub Worksheet_Deactivate()" mais cela ne fonctionne pas, quel est le souci que je rencontre ??
Je viens chercher un peu d'aide sur un quelque chose de simple j'imagine.
Voici la macro qui tri sur 3 colonnes :
VB:
Sub Trier()
With Sheets("Données")
Range("A1:I" & [A65536].End(3).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End With
End Sub
Code:
Private Sub Worksheet_Deactivate()
Call Trier
End SubMerci à vous
Cdlt
pompaero