Barre de chargement

klin89

XLDnaute Accro

• 29 Août 2008

• #2

Re : Barre de chargement

Bonjour à tous,
Bonjour afchartier,

Un début de piste dans le lien ci-dessous, pas trouvé mieux pour l'instant 😱

https://www.excel-downloads.com/threads/creation-dun-barrgraph-dans-une-cellule.70081/

Amicalement klin89

Ps : j'aime bien ta solution Kjin, salut à Didier.

 

Dernière édition: 29 Août 2008

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 29 Août 2008

• #3

Re : Barre de chargement

Bonjour afchartier, klin89,

Au lien proposé par klin89, j'ajoute sans hésitation celui-ci, pour l'excellent travail de notre ami Gaël :
1000è Gael => Indicateurs visuels

Cordialement,

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 29 Août 2008

• #4

Re : Barre de chargement

Bonjour,
Peut-être comme ceci à adapter
A+
kjin

 

Pièces jointes

• Graph_Barre.zip

  2.2 KB · Affichages: 61

Vote positif 0 Vote négatif

A

afchartier

Guest

• 29 Août 2008

• #5

Re : Barre de chargement

Bonjour klin89,
Bonjour myDearFriend!,
Bonjour kjin,

Tout d'abord, merci de vos réponses. cependant, les types de barre de progression que vous m'avez présentez s'appliquent sur des tableau excel uniquement (en tous cas à ma connaissance).

je souhaiterai ajouter à un userform une progressbar.

Les données qui alimenteront la progressbar sont sur le tableau excel.

Code:

Private Sub ProgressBar2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)

End Sub

mais je ne sais absolument pas comment renseigner cette progressbar...

avez vous une idée?

 

Vote positif 0 Vote négatif

A

afchartier

Guest

• 29 Août 2008

• #6

Re : Barre de chargement

en cherchant, un peu plus, j'ai trouvé des codes, mais tous indiquent une progression dans l'exécution d'une macro.

je souhaiterai une progressbar qui qui indiquent un taux de remplissage, que si par exemple, il reste 21% de libre, la barre affiche 79% en coloré.

j'ai essayé d'adapter un morceau de code, mais ça ne fonctionne pas très bien...

Code:

Dim i As Integer
Dim J As Range
Dim cpt As Range

i = Sheets("Log").Range("b5").End(xlDown).Row
J = i
             'dans tous les cas, ProgressBar1.Max = 47 au max
     For Each J In Range("b5:b51")
     ProgressBar1.Max = J.Row ' évolution de la progressbar

          If J.Value <> "" Then
          cpt = 0
          cpt = cpt + 1
          ProgressBar1.Value = cpt
          End If

     Next

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 29 Août 2008

• #7

Re : Barre de chargement

Re,
Et avec 2 textbox..


Edit:
Pour le format pourcentage actuel
With Label2
.Caption = "Actuel " & FormatPercent(Mini / Maxi)

A+
kjin

 

Pièces jointes

• Jauge_Tbx.zip

  12.1 KB · Affichages: 78

Dernière édition: 29 Août 2008

Vote positif 0 Vote négatif

A

afchartier

Guest

• 1 Septembre 2008

• #8

Re : Barre de chargement

salut Kjin,

bien vu l'astuce des deux textbox! tres tres astucieux, et très simple, je vais l'utiliser.

merci beaucoup.

a+

Alain

 

Vote positif 0 Vote négatif