XL 2013 Histogramme avec une seule barre par cellule

[CISCO]

Bonjour à tous
J'ai tracé le graphique ci-dessous, en dimensionnant le graphique pour que chaque barre corresponde à sa valeur, dans la colonne en dessous du dessin.

Est-il est possible d'obtenir la même chose, mais sans utiliser de graphique, en "traçant" la bonne barre directement dans une cellule ?

Avec les sparklines, on obtient toutes les barres dans une seule et unique cellule. J'aimerai avoir uniquement la barre correspondant à la colonne, proportionnellement aux autres valeurs.
D'avance merci
@ plus
P.S : Je ne met pas de fichier en pièce jointe. Un exemple avec 3 valeurs devrait suffire. Merci

 

[Hecatonchire]

Bonjour Cisco

Avec des sparklines j'obtient

Cela semble convenir ?

 

[CISCO]

Bonjour
Oui, effectivement. Conclusion : Je ne configure pas bien cet outil !
STP, pourrais tu me dire comment tu as fait ? Merci.
@ plus

 

[Hecatonchire]

>Tu créés un sparkline pour la 1ere valeur à gauche
>Tu recopies la cellule vers la droite pour générer les autres sparklines des autres valeurs
>Tu sélectionnes la plage de sparklines
>Ruban Sparkline> Axe

• Option Valeur min axe vertical > Personnalisé : 0
• Option Valeur max axe vertical >Identique pour tous les graphiques

 

[CISCO]

Bonjour
C'est OK. Ca fonctionne. Merci.
J'avais déjà essayé avec une seule valeur, sans résultat... faudra que je reteste une ou deux fois pour voir ce que je ne faisais pas nickel.

@ plus

 

[job75]

Bonjour CISCO, Hecatonchire,

On peut aussi créer des Shapes avec cette macro :

Sub Barres()
Dim plage As Range, h, ratio, c As Range, s As Shape
Set plage = [B2:G2]
h = plage.Height
ratio = 0.9 * h / Application.Max(plage.Offset(1))
Application.ScreenUpdating = False
For Each c In plage
    For Each s In ActiveSheet.Shapes
        If s.TopLeftCell.Address = c.Address Then s.Delete
    Next s
    If c(2) > 0 Then ActiveSheet.Shapes.AddShape msoShapeRectangle, c.Left + c.Width / 4, c.Top + c.Height - ratio * c(2), c.Width / 2, ratio * c(2)
Next c
End Sub

A+

 

[CISCO]

Bonjour à tous
Merci job75