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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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