XL 2013 Histogramme avec une seule barre par cellule

H

Hecatonchire

XLDnaute Occasionnel

• 8 Juin 2025

• #2

Bonjour Cisco

Avec des sparklines j'obtient


Cela semble convenir ?

 

Pièces jointes

• Spark.xlsx

  9.1 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

CISCO

XLDnaute Barbatruc

• 8 Juin 2025

• #3

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

 

Vote positif 0 Vote négatif

H

Hecatonchire

XLDnaute Occasionnel

• 8 Juin 2025

• #4

>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

 

Dernière édition: 11 Juin 2025

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 8 Juin 2025

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juin 2025

• #6

Bonjour CISCO, Hecatonchire,

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

VB:

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+

 

Pièces jointes

• Barres.xlsm

  17 KB · Affichages: 10

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 8 Juin 2025

• #7

Bonjour à tous
Merci job75

 

Vote positif 0 Vote négatif