Aide sur code VBA de Tri d'une plage

[hypo78]

Bonjour à tous,

est-il possible d'effectuer un tri à la fermeture d'un Userform dans une privateSub?

Mon code qui ne fonctionne pas :

 Private Sub CommandButton7_Click()
Dim DerLigne As Long
DerLigne = Sheets("Masques").Cells(65536, 1).End(xlUp).Row
Sheets("dossards").Activate
Sheets("dossards").Unprotect
Sheets("dossards").Range("A1:AK" & DerLigne).Select
    With Sheets("dossards")
        .Range("A7:AK" & DerLigne).Sort Key1:=.Range("A7") _
          , Order1:=xlAscending, Key2:=.Range("AK7"), Order2:=xlAscending, Header:=xlYes
    End With

Unload UserForm1
End Sub

Ce que je souhaite faire : Trier ma plage qui commence en A7 et se termine en AK (dernière ligne recherchée en colonne A) selon 2 critères; le 1er en colonne A (date) le second en AK (valeur numérique)

Meci d'avance

 

[Papou-net]

Re : Aide sur code VBA de Tri d'une plage

Bonsoir hypo78,

Pas sûr, mais essaie comme ceci :

Private Sub CommandButton7_Click()
Dim DerLigne As Long
DerLigne = Sheets("Masques").Cells(65536, 1).End(xlUp).Row
With Sheets("dossards")
  .Activate
  .Unprotect
  .Range("A7:AK" & DerLigne).Sort Key1:=.Range("A1") _
      , Order1:=xlAscending, Key2:=.Range("AK1"), Order2:=xlAscending, Header:=xlYes
End With

Unload UserForm1
End Sub

Espérant avoir répondu.

Cordialement.

 

[hypo78]

Re : Aide sur code VBA de Tri d'une plage

Bonsoir,

non toujours pas de tri....

Merci de ton aide

 

[Yaloo]

Re : Aide sur code VBA de Tri d'une plage

Bonsoir hypo, papou_net,

DerLigne = Sheets("Masques").Cells(65536, 1).End(xlUp).Row

Es tu sûr de cette ligne, car tu prends la dernière ligne d'une autre feuille pour sélectionner ta zone de tri. Cela ne me parait pas très logique.

A+

 

[hypo78]

Re : Aide sur code VBA de Tri d'une plage

Bonjour Yaloo,

😕 si il y avait le Smileys autruche....

J'ai honte...

Merci pour ton coup d'oeil avisé.