Debogage au niveau de la temporisation d'un code VBA
Bonjour à tous
J'ai un léger soucis.... je m'explique :
Sur un code VBA (permettant de lancer l'impression d'une feuille) qui fonctionne, j'ai voulu rajouter une temporisation à chaque fin d'impression vu que c'est une boucle... j'aurais aimer laisse une temporisation de 2-3 secondes...
donc j'ai voulu rajouter cette ligne à mon code VBA mais sa ne fonctionne pas ... :
t = Timer + 2: Do Until Timer > t: DoEvents: Loop
Mon code vba que j'utilise pour le lancement de ma macro :
Option Explicit
Sub Création()
Dim Derl&, Lig&
Derl = Sheets("Saisie").Range("A" & Rows.Count).End(xlUp).Row
For Lig = 4 To Derl
Sheets("Attestation").Range("B9") = Sheets("Saisie").Cells(Lig, 4)
Sheets("Attestation").Range("E24") = Sheets("Saisie").Cells(Lig, 6)
Sheets("Attestation").Range("F9") = Sheets("Saisie").Cells(Lig, 1)
'Sheets("Attestation").PrintPreview
Sheets("Attestation").PrintOut
t = Timer + 2: Do Until Timer > t: DoEvents: Loop
Next Lig
End Sub
Merci d'avance pour votre aide...
Bonjour,
j'utilise Application Wait plus facile.
a+
C'est à dire ?
pourrait tu apporter la modification nécessaire sur mon code ?
Application.Wait(Now + TimeValue("0:00:2"))
a+
super sa fonctionne