Problème de tri d'un tableau nommé dans une macro

[Magic_Doctor]

Bonsoir à tous,

J'essaie de réaliser un tri au moyen d'une macro.
Pour ce faire, j'ai tout bêtement utilisé l'enregistreur de macro.
J'y ai fait quelques modifications, à savoir que dans ma feuille le tableau que je veux trier est nommé. Je l'ai tout simplement baptisé "Tableau".
Seulement voilà, quand, au lieu de "ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("B6:B64"),..." je mets "ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=[Tableau],..." et bien ça ne marche plus.
Comment y remédier tout en conservant la plage nommée ?

Merci d'avance pour tout commentaire.

La macro :

Sub Trier()

[Tableau].Select
ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("B6:B64"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

'******************* Ça marche ****************

'ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=[Tableau], _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

'******************* Ça ne marche pas ****************

With ActiveWorkbook.Worksheets("Hoja1").Sort
.SetRange [Tableau]
.Header = xlYes
.Orientation = xlTopToBottom
.Apply
End With

End Sub

 

[job75]

Re : Problème de tri d'un tableau nommé dans une macro

Bonjour Magic_Doctor, heureux de te retrouver 🙂

Dans le tri Key doit être une colonne, donc par exemple Key:=[Tableau].Columns(1)

Je n'ai rien testé...

A+

 

[Magic_Doctor]

Re : Problème de tri d'un tableau nommé dans une macro

¡Hola amigo job75, tanto tiempo!

Effectivement je m'étais rendu compte que je m'étais planté en confondant tableau et colonne.
Ça fait un moment que j'avais un peu déconnecté...
Ta syntaxe marche au poil.

Muchas gracias job y feliz año nuevo a todos.

 

[job75]

Re : Problème de tri d'un tableau nommé dans une macro

Re,

Oui ça fait un bon bout de temps, bonne et heureuse année à toi aussi.

Le tri classique pour toutes versions :

Sub Trier()
[Tableau].Sort [Tableau].Columns(1), xlAscending, Header:=xlYes 'adapter la colonne
End Sub

A+

 

[Magic_Doctor]

Re : Problème de tri d'un tableau nommé dans une macro

Merci job pour ton raccourci que j'adopte ipso facto !