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 ?

[levac]

oui mais je ne trouve pas ce que je cherche, j ai compris grace a toi qu il voulait trier les 3 premiere colonne du tableau sauf qu il me genere une erreur "erreur definie par l application ou par l objet" sur ce tri, j aimerais savoir comment refaire ce tri plus simplement car du au embrication je ne comprend pas pourquoi il a fait tout cela pour pouvoir trier

[zazaraignée]

Histoire de voir comment Excel crée un tri, Ouvre un classeur (celui-ci ou un autre, ou un nouveau, c'est toi qui vois) et tu enregistre une macro qui fait un tri, sur une ou plusieurs colonne. Ensuite, regarde le code. C'est une méthode qui s'avère toujours instructive.

[levac]

jai deja essayé mais le probleme revien quand je le met dans mon programme d origine et le probleme étant que mon visual basic 5 me permet aucune macro de VBA ce qui m embete un peu vu que je dois faire une mise en page pour mon tableau

[zazaraignée]

Bien sur que non! Tu ne peux pas mettre tel quel une macro d'Excel directement dans VB5 (ni les VB de toutes versions d'ailleurs). C'est juste que je voulais démontrer qu'il y a peut-être une façon d'écrire un tri (avec ou sans imbrication) qui est naturelle à VBA (Visual Basic pour Application, la version de VB utilisée pour les Macro-commandes de MsOffice).

Dans VB5 (ou autres versions), tu dois déclarer et utiliser des variables pour chaque type d'objets d'Excel que tu dois utiliser.

• L'application Excel elle-même (Excel.Application)
• Un classeur (WorkBook)
• Une Feuille de calcul (WorkSheet)
• Une cellule ou une plage de cellules (Range)

Le tri est une des méthodes de l'objet Range.

Si tu as l'aide de VB, regarde dans le Sommaire. Tu dois avoir une rubrique (livre) sur le développement avec Office et une sous rubrique (un autre livre) pour Excel. Du moins, ces rubriques sont présente pour la version MSDN de VB6. Pour VB5, faudrait vérifier.

[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.