Comment bloquer les message d'excel dans la statusbar ?

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:

---

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"

Citation:

---

Envoyé par a_centaure

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

effectivement

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

Code:

---

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

---

c'est pareil que

Code:

---

Range(xx,yy).Copy

---

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

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

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/

Citation:

---

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

Citation:

---

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

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

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.

Citation:

---

Envoyé par 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.

---

J'ai essayé la solution du

Code:

---

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:

---

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+

Citation:

---

Envoyé par JackOuYA

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

---

Citation:

---

Envoyé par a_centaure

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. :D

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... ;)

Citation:

---

Envoyé par laloune

effectivement

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

Code:

---

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

---

c'est pareil que

Code:

---

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

Citation:

---

Envoyé par 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... ;)

---

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

Code:

---

1 2 3

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

---

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

Citation:

---

Envoyé par a_centaure

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

...

---

:nono: 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 .