Discussion :

[Jacksun]

Bonjour

J’essaie de trier un tableau de 12 colonnes sur( actuellement) 195 lignes en utilisant le code suivant.

Code :

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

1
2
 ActiveWorkbook.Worksheets("Source").Sort.SortFields.Add2 Key:=Range("G2:G195") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Mais le nombre de lignes est variable et je ne trouve pas la notation de ‘Range’ correcte pour tenir compte du nombre actuel (variable) de lignes.

En utilisant par exemple le code suivant cela ne fonctionne (bien-sûr) pas.

Code :

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

1
2
 Endrow = Range("A" & "65536").End(xlUp).Row
 Range("G2:G" & Endrow)

Merci pour toute suggestion utile à mon problème.

[Alex020181]

Bonjour,

Vu ton essai de code je pense que tu as compris l'idée; remplacer le numéro de ligne 195 par le numéro de la dernière ligne via une variable.

Dans cette ligne il te faut remplacer 195 par une variable

Code vba :

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

1
2
 
ActiveWorkbook.Worksheets("Source").Sort.SortFields.Add Key:=Range("G2:G195"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Pour trouver le numéro de la dernière ligne d'une colonne complétée l'une des possibilités est celle que tu utilises mais il te faut revoir la syntaxe

Code vba :

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

1
2
3
 
Dim Endrow as long
Endrow = ActiveWorkbook.Worksheets("Source").Range("A" & 65536).End(xlUp).Row

A partir de ce moment la variable Endrow vaut le numéro de la dernière ligne en A. Il ne te reste plus qu'à adapter ta ligne de code de tri en intégrant l'utilisation de la variable

Code vba :

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

1
2
 
ActiveWorkbook.Worksheets("Source").Sort.SortFields.Add  Key:=Range("G2:G" & Endrow), SortOn:=xlSortOnValues, Order:=xlAscending,  DataOption:=xlSortNormal

Et donc ce qui te donne

Code vba :

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

1
2
3
4
5
6
 
Dim Endrow as long
 
Endrow = ActiveWorkbook.Worksheets("Source").Range("A" & 65536).End(xlUp).Row
 
ActiveWorkbook.Worksheets("Source").Sort.SortFields.Add  Key:=Range("G2:G" & Endrow), SortOn:=xlSortOnValues, Order:=xlAscending,  DataOption:=xlSortNormal

Sinon le tout en même temps mais tu perds en lisibilité de code

Code vba :

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

1
2
 
ActiveWorkbook.Worksheets("Source").Sort.SortFields.Add  Key:=Range("G2:G" & ActiveWorkbook.Worksheets("Source").Range("A" & 65536).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending,  DataOption:=xlSortNormal

[Jacksun]

Bonjour Alex 020181

Merci pour ta réponse super rapide qui résout mon problème.

Jacksun

[Jacksun]

Re-bonjour Alex20181

Ce problème est résolu, bien-entendu, j'avais oublié de le marquer "Résolu" avant d'envoyer ma réponse.
Sorry

Jacksun