Discussion :

[jgresse1025]

Bonjour à tous,

Je voudrais créer une barre de progression dans une cellule Excel mais je ne vois pas comment faire et puis la façon dont elle doit se faire est un peu compliqué.
Je m'explique:

J'ai cette feuille dans lequel je veux afficher ma progression:


Je voudrais afficher la progression selon la couleur de l'état mais aussi selon le nombre d'étape dans la gamme de la pièce mise en cellule B4, B5 et B6.
Pour la gamme j'ai cette feuille :


Pour ma barre de progression, il faudrait compter le nombre d'étape dans la gamme de la pièce puis ensuite en fonction des couleurs de l'état de ma feuille Suivi, mettre le pourcentage.
Si c'est vert, c'est que l'étape est faite
Si c'est orange, c'est que l'étape n'est pas encore faite.

Comment peut-on faire?

Merci de votre aide

Julien

[Invité]

bonjour,
regarde le fichier joint!

Code :

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

1
2
3
4
Sub Valbar(v)
larg = v * (ActiveSheet.Range("C7").Width / 100)
    ActiveSheet.Shapes("Label1").Width = larg
End Sub

[jgresse1025]

Merci de ta réponse rdurupt

Mais je voudrais que la barre de progression se remplisse en fonction de la couleur des état de mon suivi (premiere image) et aussi compter pour la pièce le nombre d'étape qu'il y a dans la gamme mais je ne vois pas comment faire.

Une idée ?

Merci d'avance de l'aide apportée

J'ai essayer de mettre le code que tu m'as donnée et ça ne marche pas chez moi, je n'arrive pas à avoir quelque chose...

[Invité]

Code :

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

1
2
3
4
5
sub Valbar(v,ValMax)
'ValMax correspond au nonbre de cellules (etape) (vert,vert,vert, orange,blanc...) et V à (vert,vert,vert)
larg = v * (ActiveSheet.Range("C7").Width / ValMax) 'ici on prend la largeur de la cellule que on divise par 100 mais il est possible de définir en paramètre la valeur Max
    ActiveSheet.Shapes("Label1").Width = larg
End Sub

bien-sur si tu as plusieurs barregraphe tu peux en plus passer en paramètre le label ("Label1", et la cellule concerné "C7")

[jgresse1025]

Je me suis mal exprimé.
Quand je dis compter le nombre d'étape de la gamme c'est par rapport à cette feuille



Par exemple, pour la pièce Empreinte éjection, il y a 18 étapes alors que pour l'insert gauche fermeture gauche il y en a que 4


Puis je viens regarder la dernière cellule coloré de la colonne C dans cette feuille:



Si la dernière cellule coloré est en orange, alors on prend le numéro de l'étape qui est en vert juste au dessus, ici on prendrai 15 que l'on diviserais par le nombre d'étape totale dans la gamme (que l'on compterais) et on aurais le pourcentage d'avancement
Si la dernière cellule coloré est en orange avec marqué "en attente", on prend le numéro de cette étape - 1 (par exemple, si ici l'étape 17 étape en orange "en attente", on prend 16 que l'on diviserais par le nombre d'étape totale dans la gamme

[jgresse1025]

Bonjour,

Je voudrais savoir où comment on faisait pour mettre le Label1 de ce code

Code :

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

 ActiveSheet.Shapes("Label1").Width = larg

dans la cellule qui nous intéresse ? Car je n'ai pas reussi à le trouver.

Merci d'avance

[jgresse1025]

J'ai réussi à mettre mon label et à faire ma barre de progression

Je voudrais maintenant que la couleur change en fonction de certaines conditions

J'ai ecrit ce code mais ça marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Valbar(v)
Dim larg As Integer
larg = v * (ActiveSheet.Range("D7").Width / 100)
    ActiveSheet.Shapes("Label1").Width = larg
If larg < 50 Then
ActiveSheet.Shapes("Label1").BackColor = RGB(255, 0, 0)
ElseIf 25 < larg < 75 Then
ActiveSheet.Shapes("Label1").BackColor = RGB(255, 102, 0)
Else
ActiveSheet.Shapes("Label1").BackColor = RGB(0, 102, 0)
End If
End Sub

Une idée ?
Merci d'avance pour votre aide

[Invité]

Bonjour,
les si imbriqués sont difficilement gérable, compliqué à modifier et illisible!

Code :

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

1
2
3
4
5
6
Select Case larg
        Case Is < 5
        Case 26 To 74
            MsgBox ""
        Case Else
    End Select

[jgresse1025]

Je voulais savoir si le code pour modifier la couleur du label était bon

Code :

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

ActiveSheet.Shapes("Label1").BackColor = RGB(255, 0, 0)

Car ca me disais qu'il y avait une erreur de propriété ou de méthode

[Invité]

Code :

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

ActiveSheet.OLEObjects("label1").Object.BackColor =RGB(255, 0, 0)