Barre de progression et traitement , en VBA

yo1333 Messages postés 8 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 8 juillet 2005 - 22 juin 2004 à 11:04
yo1333 Messages postés 8 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 8 juillet 2005 - 22 juin 2004 à 12:37
Bonjour , j'ai utiliser une barre de progression dans le cadre d'un formulaire d'attente.
le problème est que j'arrive pas à repasser la main pour que mon appli ce traite en même temps qu'il y ai ma barre de progression.
ma barre s'execute , puis mon appli... ?
pourtant j'utilise un DoEvents.

si qq1 sait .

merci d'avance

2 réponses

cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
22 juin 2004 à 11:43
Tu l'Utilises ou ton DoEvents ???

For i=1 to 100
MaBarre.value=i
DoEvents
Next

C aprés l'Attribution de valeur qu'il faut mettre ton DoEvents

It@li@
0
yo1333 Messages postés 8 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 8 juillet 2005
22 juin 2004 à 12:37
'ça c'est le code de mon formulaire d'attente
'Form_Saisie_auto.nb représente le nb de ligne
'le pb, c'est que le formulaire s'execute, il attend, et tombe dans la Else, il s'arrete et ce n'est qu'à partir de ce moment là que l'appli commence??

Private Sub Form_Load()

ProgressBar4.Min = 0
ProgressBar4.Max = 100
ProgressBar4.Value = 0

TimerInterval = 200
Texte6.Value = Form_Saisie_auto.nb

End Sub

Private Sub Form_Timer()

If ProgressBar4.Value <= (ProgressBar4.Max - (ProgressBar4.Max / Form_Saisie_auto.nb)) Then
ProgressBar4.Value = ProgressBar4.Value + (100 / Form_Saisie_auto.nb)
DoEvents
Else
DoCmd.Close
End If

End Sub
0