Tri sur 3 colonnes

[ThierryR]

Bonjours à tous,

Je viens vous soumettre ces quelques lignes de codes ayant besoin de savoir ce qui ne fonctionne pas. J'aimerais trier une zone dont le nombre de lignes est variable et ceci des critères de tri sur 3 colonnes.
Merci beaucoup d'avance.
ThierryR

'Tri de la liste des immobilisations pour la présentation du tableau

Worksheets("Liste Immobilisations").Activate
Worksheets("Liste Immobilisations").AutoFilter.Sort.SortFields.Clear
Worksheets("Liste Immobilisations").AutoFilter.Sort.SortFields. _
Add Key:=Range("B2:B" & I), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
Worksheets("Liste Immobilisations").AutoFilter.Sort.SortFields. _
Add Key:=Range("E2:E" & I), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
Worksheets("Liste Immobilisations").AutoFilter.Sort.SortFields. _
Add Key:=Range("H2:H" & I), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal

With Worksheets("Liste Immobilisations").AutoFilter.Sort
.SetRange Range("A1:Y" & I)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[THE CAT 2007]

Re : Tri sur 3 colonnes

Bonjour,

La macro fait référence à une variable I à différents endroits

Range("B2:B" & I)
SetRange Range("A1:Y" & I)

etc.....

I restant vide ( ou j'ai raté l'endroit où elle évolue ... :-( )
le range ne doit pas être défini ...

il n'y a pas d'erreur à l'exécution ?

 

[ThierryR]

Re : Tri sur 3 colonnes

Bonjour à tous,

Effectivement la variable n'est pas valorisée dans ce que j'ai transmis.
Voici donc les lignes complémentaires :

Dim I as Integer

I = Sheets("Liste Immobilisations").Cells(1, 1).End(xlDown).Row

Ces deux sont bien présentes dans mon fichier.

J'ai comme erreur : "Erreur d'exécution 91 : variable objet ou variable bloc With non définie"
Merci pour votre aide.

ThierryR

 

[THE CAT 2007]

Re : Tri sur 3 colonnes

Re bj,

Le bloc suivant a un pb :

With Worksheets("Liste Immobilisations").AutoFilter.Sort
.SetRange Range("A1:Y" & I)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

la syntaxe de la 1 ere ligne :
dans les exemples excel, il n'y a jamais 2 points consécutifs, enfin je n'ai pas encore vu ... je propose une syntaxe, mais pas sur qu'elle fonctionne ....

With Worksheets("Liste Immobilisations")
.AutoFilter.Sort
.AutoFilter
.Sort
.SetRange Range("A1:Y" & I)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[ThierryR]

Re : Tri sur 3 colonnes

Merci beaucoup pour ton aide. J'ai fait la modification mais j'ai le même message d'erreur.

ThierryR