Patricia25
XLDnaute Nouveau
Bonjour le Forum,
Je viens de nouveau appeler à l'aide !
J'aimerais exécuter deux macros simultanément.
J'ai une macro Attente qui me permet de faire progresser une barre :
La sous macro Temporisation permet de faire une intéruption de quelques secondes avant la prochaine boucle. La durée totale de la boucle est identique au temps d'éxécution de la macro2.
La macro2 fait appel à plusieurs sous macros :
J'aimerais que dans un userform, mon bouton "Démarrer" fasse appel à la macro2 et en même temps qu'à Attente (ce qui permet à l'utilisateur de voir la progression). Voici mon code :
Mais le problème, c'est que là, la macro Attente s'exécute à la fin de macro2 et non en même temps !
Auriez vous une idée ?
Merci beaucoup
Je viens de nouveau appeler à l'aide !
J'aimerais exécuter deux macros simultanément.
J'ai une macro Attente qui me permet de faire progresser une barre :
Code:
Sub Attente()
F_BarreAttente.Caption = "Attendre"
For x = 0 To 100 Step 1
With F_BarreAttente
.Label1.Caption = "Traitement en cours : " & x & " %"
.LabelProgress.Width = .LabelProgress.Width + 1.6
.Repaint
End With
Call Temporisation
Next x
F_BarreAttente.Caption = "Mise à jour terminée"
End Sub
La sous macro Temporisation permet de faire une intéruption de quelques secondes avant la prochaine boucle. La durée totale de la boucle est identique au temps d'éxécution de la macro2.
La macro2 fait appel à plusieurs sous macros :
Code:
Sub macro2()
Call macro1
Call test
End Sub
J'aimerais que dans un userform, mon bouton "Démarrer" fasse appel à la macro2 et en même temps qu'à Attente (ce qui permet à l'utilisateur de voir la progression). Voici mon code :
Code:
Private Sub CommandButton1_Click()
CommandButton2.Visible = False
CommandButton1.Caption = "Patienter"
Application.ScreenUpdating = False
Call macro2
Call Attente
CommandButton2.Visible = True
CommandButton1.Visible = False
TextBox2 = "Vous pouvez cliquer sur Terminer"
Application.ScreenUpdating = True
End Sub
Mais le problème, c'est que là, la macro Attente s'exécute à la fin de macro2 et non en même temps !
Auriez vous une idée ?
Merci beaucoup