OVH Cloud OVH Cloud

Macro trop rapide

5 réponses
Avatar
choke
Bonjour toutes et tous,

J'ai fait une petite macro pour imprimer un fichier XL et celle-ci
doit tout d'abord montrer un USF (écran total) pour cacher la misère en
arrière
plan de colonnes qui se cachent, se montrent etc...

ça imprime très bien mais le petit souci est que la macro s'exécute si vite
que mon USF n'a pas le temps ou plutôt il a le temps mais il sort fond blanc
au lieu du fond bleu préalablement configuré.

Pour une fois et contrairement à tous nos amis du forum, je voudrai que ma
macro
soit moins rapide. Que dois-je entrer comme code pour la ralentir un peu ?

Merci pour vos réponses

5 réponses

Avatar
FxM
Bonjour,

J'ai fait une petite macro pour imprimer un fichier XL et celle-ci
doit tout d'abord montrer un USF (écran total) pour cacher la misère en
arrière
plan de colonnes qui se cachent, se montrent etc...


Ca sent le :
application.screenupdating = false
bricolage
impression
bricolage inverse
application.screenupdating = true

@+
FxM



Bonjour toutes et tous,

J'ai fait une petite macro pour imprimer un fichier XL et celle-ci
doit tout d'abord montrer un USF (écran total) pour cacher la misère en
arrière
plan de colonnes qui se cachent, se montrent etc...

ça imprime très bien mais le petit souci est que la macro s'exécute si vite
que mon USF n'a pas le temps ou plutôt il a le temps mais il sort fond blanc
au lieu du fond bleu préalablement configuré.

Pour une fois et contrairement à tous nos amis du forum, je voudrai que ma
macro
soit moins rapide. Que dois-je entrer comme code pour la ralentir un peu ?

Merci pour vos réponses


Avatar
choke
Ne brûlez pas de gaz pour moi, j'ai trouvé !
Dans mon empressement je n'avais pas consulté des questions-réponses
équivalentes. C'est chose faite et ça marche.

Merci qd même
Avatar
Daniel
Bonjour.
Application.Wait Now +TimeValue("00:00:02")
introduit une tempo de 2 sec.
Cordialement.
Daniel
"choke" a écrit dans le message de news:

Bonjour toutes et tous,

J'ai fait une petite macro pour imprimer un fichier XL et celle-ci
doit tout d'abord montrer un USF (écran total) pour cacher la misère en
arrière
plan de colonnes qui se cachent, se montrent etc...

ça imprime très bien mais le petit souci est que la macro s'exécute si
vite
que mon USF n'a pas le temps ou plutôt il a le temps mais il sort fond
blanc
au lieu du fond bleu préalablement configuré.

Pour une fois et contrairement à tous nos amis du forum, je voudrai que ma
macro
soit moins rapide. Que dois-je entrer comme code pour la ralentir un peu ?

Merci pour vos réponses


Avatar
garnote
Bonjour choke,

Essaie ceci :
Copie cette déclaration en haut d'un module :
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
et insère dans ta macro des Sleep(nombre). Exemples :
Sleep(1000) : Pause de 1 seconde,
Sleep(5000) : Pause de 5 secondes ...

Serge

"choke" a écrit dans le message de news:
Bonjour toutes et tous,

J'ai fait une petite macro pour imprimer un fichier XL et celle-ci
doit tout d'abord montrer un USF (écran total) pour cacher la misère en
arrière
plan de colonnes qui se cachent, se montrent etc...

ça imprime très bien mais le petit souci est que la macro s'exécute si vite
que mon USF n'a pas le temps ou plutôt il a le temps mais il sort fond blanc
au lieu du fond bleu préalablement configuré.

Pour une fois et contrairement à tous nos amis du forum, je voudrai que ma
macro
soit moins rapide. Que dois-je entrer comme code pour la ralentir un peu ?

Merci pour vos réponses


Avatar
choke
Merci pour vos réponses,

en consultant le forum j'ai entré le code suivant "Application.Wait" dans ma
macro que voici :

Sub imprimjanvierCASH()
Impression.Show
Application.Wait (Now + TimeValue("00:00:02"))
CacheColonne
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate:=True
ActiveWindow.SelectedSheets.PrintOut From:, To:, Copies:=1,
Collate:=True
AfficheColonnes
Unload Impression
End Sub

ça marche bien mais vu vos réponses je doute sur ma solution ????