Barre de progression et apparition de userforms
Bonjour,
Je me dis toujours qu il a une solution mais la je ne comprends vraiment pas !
J ai ecris ce code ci dessous :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Sub Coucou()
ProgressForm.Show
End Sub
Sub CoucouWeiter()
NormalisierungAnweisungForm.Show
InfoForm.Show
Unload (ProgressForm)
End Sub |
Le Code de ProgressForm est celui ci
Code:
1
2
3
4
5
|
Private Sub UserForm_Activate()
Me.ProgressionBar.Width = 0
Call CoucouWeiter
End Sub |
Le Code des deux autres UserForms est basique. Quand j execute coucou(), je me retrouve avec une boucle infini d apparition du NormalisierungAnweisungForm. Je comprends vraiment pas.
Si vous pouviez m aider j en serais tres reconnaissant
