Discussion :

[JahRastafari]

Bonjour, j'ai un problème pour afficher des contrôles dans un formulaire, j'ai en fait un formulaire qui affiche une barre de chargement, ce formulaire s'ouvre au lancement d'un module et ce module lance une macro Excel plusieurs fois de suite. Dans le module, a chaque fois que la macro est lancé le module fait apparaitre une nouvelle barre de chargement.
Voici une partie de mon code:

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
 
 
While
 
'''''''Autres actions....
 
'On lance la macro Excel
ApplicationExcel.Run "NomMacro"
 
'On fait avancer la barre de chargement d'une barre, en la rendant visible
Forms("NomFormulaire")("Barre" & icptBarre).Visible = True
 
'La prochaine fois on rendra visible la barre suivante
icptBarre = icptBarre + 1
 
Wend

Le problème est que les barres n'apparaisent pas à chaque boucle, mais à la fin de la boucle, et toutes d'un coup.

MERCI

[DMboup]

En mettant un Refresh (ou peut être un Requry) en entre les affichage qu'est ce que ca donne

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
 
 
While
 
'''''''Autres actions....
 
'On lance la macro Excel
ApplicationExcel.Run "NomMacro"
 
'On fait avancer la barre de chargement d'une barre, en la rendant visible
Forms("NomFormulaire")("Barre" & icptBarre).Visible = True
Me.Refresh
'La prochaine fois on rendra visible la barre suivante
icptBarre = icptBarre + 1
 
Wend

[Nohant]

ou un repaint ou un do events

@+

[JahRastafari]

Merci de vos reponses, j'ai essayé le code suivant :

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
17
18
19
20
21
22
23
24
25
26
 
 
While 
 
'''''''Autres actions.... 
 
'On lance la macro Excel 
ApplicationExcel.Run "NomMacro" 
 
'On fait avancer la barre de chargement d'une barre, en la rendant visible 
Forms("NomFormulaire")("Barre" & icptBarre).Visible = True 
Forms("F_Chargement").Requery
Forms("F_Chargement")("Barre" & icptBarre).Requery
'La prochaine fois on rendra visible la barre suivante 
icptBarre = icptBarre + 1 
 
Recommence:
If Forms("F_Chargement")("Barre" & icptBarre).Visible = True Then
   GoTo Suite
Else
   GoTo Recommence
End If
 
Suite:
 
Wend

[JahRastafari]

Et ces qoi ta solution "NoHANT"?

[JahRastafari]

MERCI NOHANT CA MARCHE AVEC UN REPAINT!!!!!!!!!!!!!!!!!!!!