Discussion :

[a_centaure]

Bonjour,

Je suis en train de coder une macro pour rappatrier et traiter des fichiers de données. Le rappatriement étant long, j'affiche l'evolution dans la "statusbar" par un :

Code :

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

application.statusbar = "Fichier " & nom_fichier" & " en cours de traitement"

Jusque là tout va bien. Mais dans mon traitement, j'effectue des copier/coller qui s'affiche également dans ma statusbar et efface du coup mon message d'avancement.
Comment puis je bloquer ces messages automatiques d'excel ??

Merci d'avance de votre aide

EDIT : Apparemment, mon message d'avancement disparait des que je selectionne une zone par "range(xx,yy).select"

[JackOuYA]

....
EDIT : Apparemment, mon message d'avancement disparait des que je selectionne une zone par "range(xx,yy).select"

bonsoir, et bien ne fait pas de select, dans la plus part des cas c'est inutile.

[laloune]

effectivement

si je peux me permettre de mettre mon grain de sel...

Code :

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

1
2
Range(xx,yy).Select
Selection.Copy

c'est pareil que

Code :

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

Range(xx,yy).Copy

sauf que le premier prend 2 lignes, et le second 1

[decondelite]

Pourquoi ne pas afficher un formulaire qui se met à jour? Ca se voit mieux, c'est à peine plus compliqué, et ça se voit mieux!

Les objets Shape pourraient aussi t'être utile (mais bon perso je trouve pas ça très pratique):
http://www.developpez.net/forums/d52...-just-for-fun/

[a_centaure]

bonsoir, et bien ne fait pas de select, dans la plus part des cas c'est inutile.

En fait je suis en train de debugguer une version de macro deja assez complexe. Je ne reprends pas tout... j'essayerai ta methode

Pourquoi ne pas afficher un formulaire qui se met à jour? Ca se voit mieux, c'est à peine plus compliqué, et ça se voit mieux!

Les objets Shape pourraient aussi t'être utile (mais bon perso je trouve pas ça très pratique):
http://www.developpez.net/forums/d52...-just-for-fun/

le formulaire qui se met à jour, c'est une barre de progression c'est ca?
sinon je regarderai les objet sharp.
En tout cas merci

[decondelite]

Le formulaire que tu mets à jour, ça peut être ce que tu veux.

Mettre une barre de progression dedans, je sais pas si c'est faisable, mais quand on voit comment fring a fait sa progressbar je me dis que ça doit pas être impossible de faire d'une façon similaire dans un formulaire.

[a_centaure]

Le formulaire que tu mets à jour, ça peut être ce que tu veux.

Mettre une barre de progression dedans, je sais pas si c'est faisable, mais quand on voit comment fring a fait sa progressbar je me dis que ça doit pas être impossible de faire d'une façon similaire dans un formulaire.

J'ai essayé la solution du

Code :

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

Range(Cells(a, b), Cells(c, d)).Copy

ca marche bien. Sauf qu'un peu plus loin, je refixe mon courseur en haut de la page avec

Code :

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

Sheet_toto.Cells(1, 1).Select

et là rebelotte (en fait c'est une sous routine d'une autre routine, et cette instruction est à la finde la sous routine...)

Y a t-il une autre instruction que celle ci pour repositionner mon curseur en 1-1?

Pour la barre, j'ai regardé, ce qui me gene c'est qu'il ecrit des infos dans la feuille (ca j'en veut pas, et j'ai deja 100 feuilles dans mon classeur (je ne sais pas jusqu'a quand je peux en mettre), faudrait que je modifie pour tout passer en variable et pour si peut, je n'ai pas franchement le temps..
J'ai deja vu les formulaire avec une barre de progression, le probleme c'est que quand tu zappes la fenetre et que tu reviens dessus, ca devient blanc (ou gris, enfin plus de barre)

donc pas top...

merci

a+

[ouskel'n'or]

bonsoir, et bien ne fait pas de select, dans la plus part des cas c'est inutile.

[decondelite]

J'ai deja vu les formulaire avec une barre de progression, le probleme c'est que quand tu zappes la fenetre et que tu reviens dessus, ca devient blanc (ou gris, enfin plus de barre)

donc pas top...

merci

a+

Userform.Repaint ou DoEvents à mettre au bon endroit.

[a_centaure]

oui enfin il y un minimum tout de meme, je ne peux pas mettre sheet(1).cells(1,1) tout seul, il lui faut le select derriere...

[decondelite]

effectivement

si je peux me permettre de mettre mon grain de sel...

Code :

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

1
2
Range(xx,yy).Select
Selection.Copy

c'est pareil que

Code :

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

Range(xx,yy).Copy

sauf que le premier prend 2 lignes, et le second 1

Et ça tu l'as lu?
Je pense que c'était assez clair sur la manière de ne plus mettre de Select.

Si on te conseille de bannir autant que possible les Select, c'est pour deux raisons:
-1: tu n'as plus le curseur qui se balade de partout dans Excel
-2: le programme est plus clair et plus rapide

[fring]

oui enfin il y un minimum tout de meme, je ne peux pas mettre sheet(1).cells(1,1) tout seul, il lui faut le select derriere...

pas besoin de Select (comme cela a été dit plusieurs fois)

Code :

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

1
2
3
With Sheets(2)
    .Range(.Cells(1, 1), .Cells(10, 10)).Copy Sheets(1).Cells(1, 1)
End With

[a_centaure]

non non, vous n'avez pas compris mon dernier post.

Effectivement, j'avais bien compris pour le "copy", mais je ne parlais plus de ca.

En fait à la fin de ma routine je replace le curseur en haut de ma feuille (cette routine pouvant etre la fin d'un processus ou au milieu d'autres routine).
D'où l'utilisation su "select". Il n'y a pas d'uinstruction "copy" derriere.

Sinon c'est bon j'ai resolu ce probleme. J'ai tout ce que je veux dans ma barre

merci beaucoup

[JackOuYA]

non non, vous n'avez pas compris mon dernier post.

...

c'est toi qui n'as rien compris, nous sommes en train de te dire que cela ne sert à rien de bouger le curseur ! laisse le dans ta cellule A1 , tu n'aura pas à l'y replacer à nouveau .