Discussion :

[yaya_la_rafale]

Bonjour,
j'ai une macro qui prend du temps à s'executer.
Je voudrais informer l'utilisateur que la macro est en train de jouer, puis fini.
L'utilisateur doit attendre.

j'ai trouvé le code suivant qui fonctionne mais pas chez moi
j'obtiens une erreur 424, objet recquis sur UserForm1
mais c'est quoi ce userform1 ? le nom de ma feuille ?
question basique desolee, mùais je ne comprend pas ?

merci d'avance

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
 
'Pour Barre de progression
Public xCompteurX As Variant
Public xPour100X As Single
 
sub magrossemacro()
    UserForm1.Show vbModeless 'Affiche Barreprogression dans état modeless
    xCompteurX = 0
 
'dans ma boucle
     Call BarreDeProgression
'fin ma boucle
 
End Sub
 
Sub BarreDeProgression()
    Application.ScreenUpdating = False
    xCompteurX = xCompteurX + 5 'Le nombre est à régler en fonction de votre routine. De la durée de votre routine
                                'En lieu et place de 5 vous pouvez mettre 1 ou 2 ou 3.5 ou 12 ou 7.1 ou 20 etc..
    xPour100X = xCompteurX / 100
    With UserForm1
        .FrameProgress.Caption = Format(xPour100X, "0%")
        .LabelProgress.Width = xPour100X * (.FrameProgress.Width - 10)
    End With
    DoEvents 'L'instruction DoEvents est responsable de la mise à jour de l'Userform
End Sub

[patricktoulon]

bonjour regarde ceci:
http://www.developpez.net/forums/d12...ht=progressbar

[yaya_la_rafale]

merci patricktoulon bien ta progress bar, mais trop pour moi.

le truc est que j'essaie de laisser mon code le plus simple possible, de coder le moins possible et d'utiliser du natif.
Si j'arrivais simplement a comprendre ce que UserForm1 est, je n'aurai qu'une ligne à adapter, et beaucoup moins de code.
je continue mes recherches mais merci de ton idée.

[patricktoulon]

re
soit comme tu veux
peut etre que cet exemple t'apportera la lumiere
il y a 2 userfoms en exemple
l'un avec un label qui me sert de progressbar
et l'autre avec un vrai control progressbar
ya pas plus simple comme code

[yaya_la_rafale]

merci.
ton code marche bien dans ton fichier.
J'ai copié ta sub TESTBARRE1 dans mon fichier, et je l'appelle depuis ma fonction, et là pareil, erreur 424 sur
"With UserForm1
.Show 0"

dois je initialiser ce UserForm1, c'est quoi ? mon fichier ? ma feuille ? c'est très abstrait pour moi..
désolée, ce doit être basique mais je bloque :'(

[SfJ5Rpw8]

bonjour,

tiens un peu de lecture sur les UserForm devrais t'aider :

http://silkyroad.developpez.com/VBA/UserForm/