N
nanard
Guest
Bonjour à tous :
je fais encore appel avos services car après avoir essayé plusieurs manip je n'ai pas avancé d'un pouce
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
je fais encore appel avos services car après avoir essayé plusieurs manip je n'ai pas avancé d'un pouce
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