Plage de données variable sur trie dans macro

Fermé
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015 - 14 janv. 2015 à 23:01
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015 - 15 janv. 2015 à 15:42
Je suis à créer un tri sur une plage qui va varier dans sa longueur
Mon enregistreur me donne la commande ci-bas et je ne sais pas comment l'optimiser pour tenir compte d'une longueur variable

'ActiveWorkbook.ActiveSheet.Sort.SortFields. _
Add Key:=Range("Y7:Y530"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal

svp si vous pouvez m'aider

merci
A voir également:

2 réponses

via55 Messages postés 14477 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 3 octobre 2024 2 729
15 janv. 2015 à 00:18
Bonsoir

Ta plage est dans la colonne Y mais :
1) commence t elle toujours en Y7 ?
2) qu'est ce qui détermine la dernière cellule de la plage ? est le dernière ligne remplie de la colonne ?

Cdlmnt
0
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015
15 janv. 2015 à 14:21
1) oui la colonne Y commence à Y7 en tout temps mais je suis ouverte à une solution qui me permettrai de la rendre flexible :-)

2)Oui dernière ligne remplie pour la plage

merci bien
0
eriiic Messages postés 24597 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 22 septembre 2024 7 235
15 janv. 2015 à 00:22
Bonjour,

Dernière ligne occupée d'une colonne :
derlig=cells(rows.count,"Y").end(xlup).row

(tu peux remplacer Y par la colonne de ton choix s'il se peut qu'Y ne soit pas remplie jusqu'en bas))
d'où :
Add Key:=Range("Y7:Y" & derlig)

eric

0
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015
15 janv. 2015 à 14:33
je ne connais pas ce qu'est "derlig"?
c'est quoi au juste?
0
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015
15 janv. 2015 à 14:46
J'ai essayé ceci et le triage ascendant ne se fait pas

ActiveWorkbook.ActiveSheet.Sort.SortFields. _
Add Key:=Range("Y7:Y" & derlig), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
0
eriiic Messages postés 24597 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 22 septembre 2024 7 235
15 janv. 2015 à 14:47
une variable que tu peux nommer comme tu veux.
Mais là c'est le B.A.BA de VBA, si tu n'as pas les notions de base recherche-les sur internet pour acquérir le minimum.
eric
0
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015 > eriiic Messages postés 24597 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 22 septembre 2024
15 janv. 2015 à 15:42
merci
0