Discussion :

[miopie]

bonjour,
voila j'essaye de faire un progressbar mais je commence a m'arracher les cheveux.
actuellement j'affiche ma progression via statusbar et ca marche
voici la fin du code dans le module1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Application.StatusBar = "test N° " & T & "  /  " & lignefin - 3 ' ca c'est OK
call Bar ' ca ca marche pas
Loop Until T = lignefin2 - 2

et voici le code dans l'userform

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
 
Private Sub bcapa_Click()
Call Capabilité
End Sub
 
 
Public Sub Bar()
Application.ScreenUpdating = False
  With ProgressBar
    .Min = 0
    .Max = lignefin - 3
    .Value = N
    Label1 = N
    DoEvents
  End With
  Application.ScreenUpdating = True
End Sub

pour expliquer un peu ma macro dans le module1
elle realise des test "N" de capabilité. "N" s'incremente a chaque test.
lignefin-3 represente le nombre total de test.
le probleme si je ne me trompe pas c'est que je n'arrive pas a recuperer la valeur de "N" et "lignefin-3" dans mon userform, mais la je métrise pas du tout

merci d'avance

[rvtoulon]

Salut,
tu dis çà marche pas? OK quel est le message d'erreur ?
je n'ai jamais fait de progressbar mais d'après tes explications dans le module1 tu vais appel à une macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call Bar ' ca ca marche pas

.
Si j'ai bien lu ton message cette macro serait dans un userform ?

et voici le code dans l'userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Sub Bar()
Application.ScreenUpdating = False
  With ProgressBar
    .Min = 0
    .Max = lignefin - 3
    .Value = N
    Label1 = N
    DoEvents
  End With
  Application.ScreenUpdating = True
End Sub

.
Il me semble que tu ne peux pas faire appel a cette macro. Elle devrait être aussi dans le module1 ou autre non?
Regarde le lien ci dessous il pourras t'aider je pense.http://www.developpez.net/forums/d19...l-progressbar/

[miopie]

merci pour le lien,
j'ai appliqué la methode decrite , y a du mieux mais j'ai du oublier quelque chose car j'ai un probleme avec la ligne ( avec le .FrameProgress)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .LabelPROGBAR.Width = (.FrameProgress.Width - 10) * Avancement 'TAILLE de la bar

erreur de compilation
membre de méthode ou de données introuvable

[rvtoulon]

En fait dans la méthode proposée il faut rectifier quelques lignes.
tout d'abord :

=> CREER UN USERFORM AVEC UNE BARRE ET UN LABEL !
Elle contient :
- une textbox qui doit s'appeller FramePROGBAR
- une barre qui doit s'appeller LabelPROGBAR

c'est plutot :
=> CREER UN USERFORM AVEC UNE BARRE ET UN LABEL !
Elle contient :
- un Frame : qui doit s'appeller FramePROGBAR
- dans le Frame, un Label : qui doit s'appeller LabelPROGBAR

ensuite :
dans le code il s'est trompé dans le nom des controles d'ou l'erreur que tu as eu donc avec les rectifications , dans un module standard :

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
27
28
29
30
31
Sub gestionProgbar(Avancement)
' Ze progress bar !!!!
 
AvancementColor= 255 - Round(255 * Pct, 0) 'pour colorier ;)
 
    With UserForm1
        .FramePROGBAR.Caption = Format(Avancement, "0%")
        .LabelPROGBAR.Width = (.FramePROGBAR.Width - 10)*Avancement  'TAILLE de la bar
        .LabelPROGBAR.BackColor = RGB(0, AvancementColor/ 3, AvancementColor) 'pour du bleu
        .Repaint
    End With
End Sub
 
sub main()
for I = 1 to 100
'Call actionalacon
Call gestionProgbar(I/100)
next I
 
'a la fin du code il faut (evidement !) :!
unload userform1
End Sub
 
Sub launcher()
 
'Facultatif : 
UserForm1.LabelPROGBAR.Width = 0'(initialize la bar à zero)
'c'est utile si on affiche une msgbow juste avant...
'
userform1.show
End Sub

EDIT:
Ne pas oublier dans le code de l'userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_activate()
    Call main
'ou main est ta marco principale
End Sub

NOTE: ici tu n'utilises pas le controle progressbar mais tu en simules une.
Si tu veux utiliser le controle progressbar regarde ici :http://excel.developpez.com/sources/?page=UserForm
Il y a un exemple de fichier proposé par Silkyroad tu peux l'analyser pour comprendre l'utilisation de la progressbar.

[miopie]

super ca marche, c'était ca,
ma progressbar fonctionne nikel
merci beaucoup