Discussion :

[levac]

jai un souci le créateur du programme a écrit une instruction et j y comprend rien si vous pouviez m aider sa m arrangeré, voici l instruction

Code :

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

1
2
3
4
5
6
7
monclasseur.ActiveSheet.Range(monclasseur.ActiveSheet.Range(monclasseur.ActiveSheet.Range("A1"), _
monclasseur.ActiveSheet.Range("A1").End(xlToRight)), _
monclasseur.ActiveSheet.Range(monclasseur.ActiveSheet.Range("A1"), _
monclasseur.ActiveSheet.Range("A1").End(xlToRight)).End(xlDown)).Sort Key1:=monclasseur.ActiveSheet.Range("A2"), _
Order1:=xlAscending, Key2:=monclasseur.ActiveSheet.Range("B2") _
, Order2:=xlAscending, Key3:=monclasseur.ActiveSheet.Range("C2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

[zazaraignée]

Pas évident, avec toutes ces imbrication de 'monClasseur.ActiveSheet.Range(...)', y'a d'quoi devenir chèvre! Mais comme je suis une bonne pâte, je ne te laisserai pas dans l'fromage...

Ça ressemble à une forme de tri à deux critères. C'est tout ce que j'ai pu en comprendre.

[levac]

c est justement du a toute ces imbrications que ma comprehension a du mal se faire, y a t-il un systeme pour faire un tri plus simple que celui la ?du genre tri a bulle ou un autre du genre plutot que celui-ci ?

j adore ton humour lol

[DarkVader]

T'aime pas l'humour ?

L'entête qui adresse le tri «sort» semble indiquer que celui qui a écrit le code ne savait pas comment définir une plage.

Dans un premier temps pour faire plus propre et surtout plus lisible
(en supposant que monclasseur ne soit pas le classeur actif

Code :

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

1
2
Dim sh as worksheet
set sh=monclasseur.activesheet

puis essayer de remplacer l'entête avec

Code :

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

1
2
 
sh.range("A1").currentregion.sort ....

ça devrait le faire

[levac]

si j aime l humour c était pas ironique mais sincere, sinon le currentregion.sort remplaceré mes 5 ou 6 lignes de codes ?car je vois pas vraiment quel ligne je dois remplacer par ta solution a part le fait de remplacer tout les monclasseur.activesheets par sh mais le

Code :

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

dim sh as whorksheet

le worksheet comme type n est pas reconnu par le compilateur
avec ta solution sa se reduit a sa

Code :

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

1
2
3
4
sh.Range(sh.Range(sh.Range("A1"), sh.Range("A1").End(xlToRight)), sh.Range(sh.Range("A1"), _
sh.Range("A1").End(xlToRight)).End(xlDown)).Sort Key1:=sh.Range("A2"), _
Order1:=xlAscending, Key2:=sh.Range("B2"), Order2:=xlAscending, Key3:=sh.Range("C2"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

mais moi y a toujours certaine chose que je saisis pas du genre pourquoi c est toujours la meme cellule range("A1") qui est selcetionné

[zazaraignée]

T'as regardé les tutoriels ?

[LeForestier]

si j aime l humour c était pas ironique mais sincere, sinon le currentregion.sort remplaceré mes 5 ou 6 lignes de codes ?car je vois pas vraiment quel ligne je dois remplacer par ta solution a part le fait de remplacer tout les monclasseur.activesheets par sh mais le

Code :

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

dim sh as whorksheet

le worksheet comme type n est pas reconnu par le compilateur
avec ta solution sa se reduit a sa

Code :

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

1
2
3
4
sh.Range(sh.Range(sh.Range("A1"), sh.Range("A1").End(xlToRight)), sh.Range(sh.Range("A1"), _
sh.Range("A1").End(xlToRight)).End(xlDown)).Sort Key1:=sh.Range("A2"), _
Order1:=xlAscending, Key2:=sh.Range("B2"), Order2:=xlAscending, Key3:=sh.Range("C2"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

mais moi y a toujours certaine chose que je saisis pas du genre pourquoi c est toujours la meme cellule range("A1") qui est selcetionné

Bonsoir,

"A1" est le début de la sélection et la fonction excel

Code :

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

sh.Range("A1").End(xlToRight)).End(xlDown)).

sélectionne la plage A1 jusque la dernière ligne INITIALISEE et idem pour les colonnes
Ce qui revient à faire une plage en étant certain qu'il n'y a pas de test inutile
tout en ne connaissant pas la fin des lignes et des colonnes ce qui peut changer d'une fois à l'autre.
J'ai un peur regarder cette fonction, il me semble qu'elle fait un genre de tri que je n'ai pas bien compris pour les références A2,B2 et C2

De plus, j'ai testé le fonction ci-dessus et la double direction renvoi 0 ou ""
il faut donc divisé cette fonction, elle vient peut-être de la derniere version d' Excel. Et je pencherai plutôt pour cette alternative et que c'est pour cela que la fonction plante.