histogrammes par centaine

  • Initiateur de la discussion Initiateur de la discussion deins07
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

deins07

Guest
salut à tous,

j'ai une petite demande pour des initiés

j'ai un fichier avec plusieurs centaines de lignes je souhaite avoir pour chaque ligne une vue de l'évolution des données. je souhaite donc avoir un histogramme pour chacune des lignes.
malheureusement cela ferait un fichier trop lourd.
alors j'ai essayé la mise en forme conditionnelle afin d'affiche les données avec des barres mais ces barres sont horizontale et pas verticale
donc je recherche une solution pour mettre les barres verticales ou dans tous les cas avoir mes histogrammes.

Merci.😕
DEINS07
 

Pièces jointes

Re : histogrammes par centaine

Bonjour à tous,

Je ne sais pas si les SparkLines sont disponible sous XL 2007 mais voilà ce que cela donne sous XL 2010 et 2013 :

Capture.1.png

A+ à tous
 

Pièces jointes

  • Capture.1.png
    Capture.1.png
    10.3 KB · Affichages: 83
  • Capture.1.png
    Capture.1.png
    10.3 KB · Affichages: 80
  • JC SparkLines.xlsx
    JC SparkLines.xlsx
    25.4 KB · Affichages: 53
Re : histogrammes par centaine

Bonsoir deins07, Salut JC 🙂
Sous 2007 il faut macroter.
Tu crée ton premier graphique comme tu le veux (taille, couleur, type, etc)
tu le sélectionne et tu vas dans Mise en forme . Organiser / Aligner / sur la grille pour le placer exactement en $F$2.
Ensuite tu lance la macro
VB:
Sub SparkLines_Maison()
Dim i&
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For i = .ChartObjects.Count To 2 Step -1
        .ChartObjects(i).Delete
    Next i
    .ChartObjects(1).Copy
    For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("F" & i).Select
        .Paste
        ActiveChart.SetSourceData Source:=.Range("B" & i & ":E" & i)
    Next i
    .Range("$A$1").Select
End With
Application.ScreenUpdating = True
End Sub
Cordialement

 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 recherche idée
Réponses
6
Affichages
922
F
Réponses
1
Affichages
1 K
Retour