Difficulté de paramétrage d'une Progressbar

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:

---

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:

---

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

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:

---

call Bar ' ca ca marche pas

---

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

Citation:

---

et voici le code dans l'userform

Code:

---

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/

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:

---

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

---

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

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

Citation:

---

=> 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:

---

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:

---

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.

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