Tri

[nanard]

bonsoir à tous me voilà de nouvea coincé avec:

Sub OrdreHierar() ' Cela ne fonctionne pas

PersDiv = Sheets('Données').Cells(12, 3).Value2 '

Worksheets('Personnels').Range(Cells(2, 1), Cells(PersDiv + 1, 7)).Sort _
Key1:=Worksheets('Personnels').Range(Cells(2, 1)), order1:=xlDescending, _
Key2:=Worksheets('Personnels').Range(Cells(2, 3)), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Sub OrdreHierar() 'cela fonctionne??????

PersDiv = Sheets('Données').Cells(12, 3).Value2 '


'Worksheets('Personnels').Range(Cells(“A2:G38”).Sort _
Key1:=Worksheets('Personnels').Range('A2'), Order1:=xlDescending, _
Key2:=Worksheets('Personnels').Range('C2'), Order2:=xlAscending ', _
'Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Je ne comprends pas quelle bourde je peux faire avec la procédure qui ne fonctionne pas. ainsi j'apelle AU SECOURS . mCI d'avance et JOYEUSES PAQUES A TOUS

 

[Robert]

Bonsoir Nanard, Bonsoir Tatiak, bonsoir le forum,

Tatiak a raison mais tu peux aussi conserver Cells(x,y) mais pas les deux à la fois. Range(Cells(x1,y1),Cells(x2,y2)) permet de sélectionner une plage de plusieurs cellules. Or Key1 et Key2 ne représentent chacun qu'une seule cellule donc dans ce cas il faut enlever Range à ton code pour qu'il fonctionne :

Worksheets('Personnels').Range(Cells(2, 1), Cells(PersDiv + 1, 7)).Sort _
Key1:=Worksheets('Personnels').Cells(2, 1), order1:=xlDescending, _
Key2:=Worksheets('Personnels').Cells(2, 3), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom

 

[nanard]

salut robert
Merci de tes conseils, j'ai esssayé mais en vain. au résultat un message d'erreur 1004 apparait. erreur définie par l'application ou par l'objet. je dois etre vraiment nul.
Merc encore et joyeusesPâques...