Barre de chargement

[afchartier]

bonjour le forum,

je souhaiterai ajouter à mes macro, une barre de chargement pour indiquer un état des stocks.

100% de la barre, correspondrait à 47 cellules renseignées verticalement.

merci d'avance,

A+

Alain

 

[klin89]

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.

 

[myDearFriend!]

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,

 

[kjin]

Re : Barre de chargement

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

 

[afchartier]

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.

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?

 

[afchartier]

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...

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

 

[kjin]

Re : Barre de chargement

Re,
Et avec 2 textbox..


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

A+
kjin

 

[afchartier]

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