Bonjour cousinhub,
j'utilise bien exel 97, pour l'extension, il me propose toujours ".xlsx". Tu veux une autre extension?
en utilisant l'enregistreur, cela me donne le code suivant:
Sub Tri()
'
' Tri Macro
'
' Touche de raccourci du clavier: Ctrl+t
'
Range("B12:D12").Select
ActiveWorkbook.Worksheets("données").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("données").Sort.SortFields.Add Key:=Range("B12:D12" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("données").Sort
.SetRange Range("B12:D12")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
le pb c'est que je voudrais que cela se face de Range("B12:D12") à Range("B20:D20 par exemple")