Discussion :

[Henri1830]

Bonjour,

Le code ci-dessous fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("2017").Sort.SortFields.Add Key:=Range("C2:C234"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Tandis que celui-ci se plante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("2017").Sort.SortFields.Add Key:=Range(Cells(2, 3), Cells(NbMaxLigne, 3)).Address(RowAbsolute:=False, ColumnAbsolute:=False), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Quelqu'un a une idée de ce qui manque ? des guillemets ? Si oui, je ne vois pas comment les ajouter.

Merci d'avance pour votre réponse.

Henri

[mjpmjp]

bonjour,

dans ton code qui fonctionne, pourquoi tu ne remplaces pas que Range("C2:C234") par Range(Cells(2, 3), Cells(NbMaxLigne, 3)) ?

@+JP

[Henri1830]

Tu as raison, merci.
Il suffisait d'enlever .Address(RowAbsolute:=False, ColumnAbsolute:=False) et ça fonctionne.

Bonne soirée et encore merci.

Henri