Discussion :

[Art-DRC]

Bonjour,

malgré mes recherches, je n'ai pas réussi à trouver comment réaliser ce type de jauge sur Excel :



Je souhaite pouvoir faire varier "simplement" la couleur des bonhommes proportionnellement au taux indiqué.

Je n'ai pas trouvé d'image avec 10 petits bonhommes, mais avec un seul, en noir. Les dégradés de couleur sur Excel colorent l'intégralité du rectangle, pas uniquement le bonhomme.

En vous remerciant par avance de votre aide, je reste à votre dispo pour tout complément d'information (car je ne sais pas si j'ai été assez clair !)

Merci à tous !

[lucasgaetan]

bonjour,

Ci-joint un principe simple.

Quelque explication:
une cellule en gris "A4", à l’intérieur un rectangle en bleu, par dessus une image avec des zones de vide.
je fais varier la taille du rectangle bleu en fonction de la valeur de sa cellule de droite "B4"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
    If Target.Address = "$B$4" Then
        'largeur colonne A 28.57
Dim MaSheet As Excel.Worksheet
Dim MonShape As Shape
        Set MaSheet = ActiveSheet
        Set MonShape = MaSheet.Shapes.Item("Rectangle 2")
        MonShape.Width = 150 * Target.Value / 100
    End If
 
 
End Sub

bon courage

[Art-DRC]

Bonjour,

merci pour ce retour rapide !

J'avais trouvé une macro sur ce principe mais ne voyais pas comment l'adapter...
Les deux couleurs sur une image à moitié transparente, ça m'a l'air plus que bien, sans trop de code (j'aurais aimé sans, mais je me doutais bien que je n'y échapperai pas !).

Il ne me reste plus qu'à trouver / faire ces rangées de 10 personnages transparents...

Je teste en conditions réelles d'utilisation et revient ASAP !

Merci encore

bonjour,

Ci-joint un principe simple.

Quelque explication:
une cellule en gris "A4", à l’intérieur un rectangle en bleu, par dessus une image avec des zones de vide.
je fais varier la taille du rectangle bleu en fonction de la valeur de sa cellule de droite "B4"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
    If Target.Address = "$B$4" Then
        'largeur colonne A 28.57
Dim MaSheet As Excel.Worksheet
Dim MonShape As Shape
        Set MaSheet = ActiveSheet
        Set MonShape = MaSheet.Shapes.Item("Rectangle 2")
        MonShape.Width = 150 * Target.Value / 100
    End If
 
 
End Sub

bon courage

[riaolle]

Bonjour,
Sans VBA voici ce qu'il est possible de faire :

1. Faire une graphique en barres horizontales
2. Superposer les 2 series avec la série à 100% en arrière
3. Pour chaque série :
   1. Sélectionner la série et aller dans ses propriétés
   2. Mise en forme > Remplissage > Remplissage avec image ou texture
   3. Choisir l'image d'un bonhomme (gris pour la série d'arrière plan, de couleur pour la série de devant)
   4. Choisir empiler et mettre à l'échelle, par ex. 10 units/picture

[Art-DRC]

Merci pour ce retour,

Je viens de tester et c'est pas mal... J'ai eu un peu de mal car je n'avais pas choisi le bon type de graph (empilé 100%...) car j'avais lu trop vite...

Une autre stratégie intéressante, qui nécessite d'avoir la même image sous deux coloris différents. Vite, à mes pinceaux !!

Merci encore.

Bonjour,
Sans VBA voici ce qu'il est possible de faire :

1. Faire une graphique en barres horizontales
2. Superposer les 2 series avec la série à 100% en arrière
3. Pour chaque série :
   
   1. Sélectionner la série et aller dans ses propriétés
   2. Mise en forme > Remplissage > Remplissage avec image ou texture
   3. Choisir l'image d'un bonhomme (gris pour la série d'arrière plan, de couleur pour la série de devant)
   4. Choisir empiler et mettre à l'échelle, par ex. 10 units/picture

[Art-DRC]

Merci à tous pour votre aide, ces deux solutions sont très intéressantes et seront déployées selon les contextes.

Merci encore