Discussion :

[pythagore3_14]

Bonjour,
Je cherche à trier un tableau dont je connais le nb de colonnes mais pas le nb de lignes. Il est rangé en feuille 2, commence en A1 et ne contient aucune cellule vide. Pour l'instant j'ai tapé :

Code :

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

Range("Feuil2!A1:D1000").Sort Range("B1"), xlAscending, , , , , , xlYes

mais ça ne marche pas, sans doute parce qu'il y a bcp de lignes vides en dessous du tableau en question. Comment faire pour saisir uniquement la plage dont j'ai besoin ?

Deuxième question : malgré le "xlYes" le code tri aussi la ligne de titre qui se retrouve en bas. Ce n'est pas ce que je veux !! Comment y remédier ?

[ouskel'n'or]

Si tu as un en-tête de colonne, tu mets

Code :

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

1
2
3
    ActiveSheet.UsedRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Si tu n'as pas d'en-tête

Code :

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

1
2
3
    ActiveSheet.UsedRange.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

C'est bien les "xlAscending, , , , , , xlYes" mais sais-tu à quoi tu mets xlYes ?

[pythagore3_14]

J'ai essayé votre premier code, dans une procédure où il n'y a QUE ce code , autrement dit :

Code :

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

1
2
3
4
5
Sub tri ()
ActiveSheet.UsedRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Mais mon ordi n'apprécie pas : "Erreur définie par l'application ou par l'objet"...

D'autre part, que signifie "Orientation:=xlTopToBottom" et "Orientation:=xlTopToBottom" ?

[Commodore]

D'autre part, que signifie "Orientation:=xlTopToBottom" et "Orientation:=xlTopToBottom" ?

Les 2 signifient la même chose
En fait il s'agit du sens de recherche de la dernière ligne: tu pars du haut pour aller vers le bas.

edit: si tu remplaces ActiveSheet par Worksheets("nom_de_ta_feuille"), ça fait la même erreur ?

[ouskel'n'or]

Mais mon ordi n'apprécie pas : "Erreur définie par l'application ou par l'objet"...

Test en remplaçant les arguments par leurs valeurs

Code :

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

1
2
3
    ActiveSheet.UsedRange.Sort  Key1:=Range("B2"), Order1:=1, Header:=1, _
        OrderCustom:=1, MatchCase:=False, Orientation:=1, _
        DataOption1:=0

Les arguments peuvent changer d'une version à l'autre. Les valeurs restent les mêmes.

[pythagore3_14]

Test en remplaçant les arguments par leurs valeurs

J'ai essayé, j'obtiens le même résultat.

si tu remplaces ActiveSheet par Worksheets("nom_de_ta_feuille"), ça fait la même erreur ?

Non; désormais mon ordi se plaint que "L'indice n'appartient pas à la sélection"... ?? Je ne sais pas de quoi il parle mais en tout cas ma feuille 2 existe bel et bien.

Les 2 signifient la même chose

Ok, ok, je ne suis pas bien réveillée... Je voulais dire : "Orientation:=xlTopToBottom et DataOption1:=xlSortNormal" !

[ouskel'n'or]

Fais précéder la ligne de la sélection de la feuille et teste

Code :

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

1
2
Worksheets("feuil2").select
ActiveSheet.UsedRange.Sort ........

Ta feuille n'est pas protégée par hasard ?
Pour les paramètres, tu as une touche magique : sur Sort, l'aide en ligne t'en dira plus que nous. Et en outre tu auras les arguments tels que tu dois les utiliser.
Bonne journée