Pb de barre de progression

[Gorgias]

Bonsoir le Forum, bonsoir les amis,

je voudrais intégrer dans un USF une barre de progression avec un niveau allant de 0 à 20. j'ai réussi à insérer la barre de progression, mais je n'arrive pas à faire fonctionner avec un niveau supérieu à 0.

 

[Softmama]

Re : Pb de barre de progression

Salut Gorgias,

C'est pas très clair, ce que tu souhaites faire. Si tu veux faire afficher une barre de progression dans une userform, tu peux t'inspirer du fichier que je te mets en exemple (ctrl W pour lancer un exemple d'écriture de plage)

 

[Gorgias]

Re : Pb de barre de progression

Bonjour Forum,

en fait je me suis mal exprimée. lorsque je choisis dans une liste déroulante un niveau de satisfaction, le niveau est indiqué sur la barre de progression, ce qui veut dire si client très insatisfait = 0, assez satisfait = 3 et super content = 10. et la satisfaction pourrait se voir en un clin d'œil sur la barre. ci joint exemple en pièce jointe

 

[Softmama]

Re : Pb de barre de progression

Bonjour Gorgias,
Peut-être simplement cette fonction répond-elle à vos besoins :

Function EstContent(Indice As Long)
     EstContent = String(Indice, ChrW(9608))
End Function

Puis taper dans une cellule =ESTCONTENT(10) si le client est super content.
ou = ESTCONTENT(A1) si son indice de satisfaction est enregistrée dans la cellule A1

 

[Gorgias]

Re : Pb de barre de progression

bonjour SOFTMAMA,

je me suis peut-être mal exprimée, ce n'est peut-être pas une barre de progression mais insérer une statusbarre, ça permettrait peut-être de mieux fonctionner.

 

[Papou-net]

Re : Pb de barre de progression

Bonjour Gorgias, Softmama, le fil,

RE Gorgias

C'est tout à fait possible avec une barre de progression, il suffit d'entrer le code suivant dans le module UserForm2 :

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
  ProgressBar1 = 0
  Else
  ProgressBar1 = ComboBox1 * 5
End If
End Sub

Espérant avoir répondu.

Cordialement.