Code RANGE avec SORT

Bonjour

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

Code:

---

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:

---

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

---

Merci pour toute suggestion utile à mon problème.

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:

---

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:

---

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:

---

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:

---

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:

---

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

---

Bonjour Alex 020181

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

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