instruction non comprise

Version imprimable

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:

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

05/06/2007, 17h24
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.
06/06/2007, 08h29
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
06/06/2007, 08h40
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:

1 2 Dim sh as worksheet set sh=monclasseur.activesheet
puis essayer de remplacer l'entête avec
Code:

1 2 sh.range("A1").currentregion.sort ....
ça devrait le faire

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:

dim sh as whorksheet

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

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é

06/06/2007, 14h28
zazaraignée

T'as regardé les tutoriels ?
07/06/2007, 10h31
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
07/06/2007, 14h26
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.
07/06/2007, 14h57
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
07/06/2007, 17h42
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.

Citation:
Envoyé par 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:

dim sh as whorksheet

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

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, :lol:

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

Code:

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.