Bonsoir le Forum
Comment identifier sur quel Label l'utilisateur à cliqué et lui attribuer une procédure
J'ai une vingtaine de Label (Label1, Label2, etc)
Sur Label1 ==> Tri de la colonne A
Sur Label2==> Tri sur la colonne B
Etc...
Comment éviter de faire 20 fois le même code ?
Merci de votre aide
David
Comment identifier sur quel Label l'utilisateur à cliqué et lui attribuer une procédure
J'ai une vingtaine de Label (Label1, Label2, etc)
Sur Label1 ==> Tri de la colonne A
Sur Label2==> Tri sur la colonne B
Etc...
Comment éviter de faire 20 fois le même code ?
Merci de votre aide
David
Dim sens As Boolean
Private Sub Label101_Click()
'Trie de la feuille en ordre croissant ou décroissant
Dim Tri As Integer
Dim Plage As Range
Tri = Feuil1.Range("A65536").End(xlUp).Row
Set Plage = Feuil1.Range("A1:T" & Tri)
sens = Not sens
Plage.Sort Feuil1.Columns("A"), IIf(sens, 1, 2), Header:=xlYes
End Sub
Private Sub Label102_Click()
'Trie de la feuille en ordre croissant ou décroissant
Dim Tri As Integer
Dim Plage As Range
Tri = Feuil1.Range("A65536").End(xlUp).Row
Set Plage = Feuil1.Range("A1:T" & Tri)
sens = Not sens
Plage.Sort Feuil1.Columns("B"), IIf(sens, 1, 2), Header:=xlYes
End Sub