Graphique tricolore avec vba couleurs conditionnelles (urgent)

Résolu
Utilisateur anonyme -  
 Utilisateur anonyme -
Bonjour, je ne m'y connais pas du tout en vba,

je souhaiterai trouvé un code à insérer pour un graphique qui me permette d'afficher les barres en fonction des données (vert brillant pour % inférieur à 80 % , orange compris entre 80 et 100 % et rouge au delà de 100%).
je suis sur excel 2003.

merci d'avance

5 réponses

  1. fionach
     
    sa m'interesse également, quelqu'un c'est ?
    0
  2. Utilisateur anonyme
     
    Personne ne sais ? :s
    0
  3. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 477
     
    Bonjour,
    Regardez par-là : https://forums.commentcamarche.net/forum/affich-16554793-excel-mise-en-forme-conditionnelle-graphique

    0
    1. Utilisateur anonyme
       
      bonjour, merci!

      j'ai bien vu ce topic, hors le lien présenté n'est plus dispo, de plus, cela se rapproche de ma demande mais ce n'est pas tout à fait sa. je ne connais pas le vba mais je pense que le code demandé ne sera pas le même que ce dont j'ai besoin.

      cdlt
      0
    2. tontong Messages postés 2575 Date d'inscription   Statut Membre Dernière intervention   1 064
       
      Bonjour,
      Si le lien est encore valide, et de plus la connaissance du vba n'est pas nécessaire!!!
      0
    3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      hé oui, je l'ai mis à disposition hier

      il est bicolore mais on voit le principe donc facile pour 3 couleurs

      remarque à Chacha:
      Avant de penser VBA, ici sur CCM, on pense Excel.....

      tiens, on va voir si les demandeurs savent dire Merci
      0
    4. Utilisateur anonyme
       
      bonjour, même si cela n'a rien avoir avec ma demande! merci pour le fichier.
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Utilisateur anonyme
     
    bonjour à tous,

    j'ai trouvé la réponse que je voulais sur un autre forum.

    pour ceux que sa interesse voici le code vba que j'ai obtenu pour ma demande (à adapter). je l'ai testé et fonctionne sans problème.

    Sub CGraphique()
    Application.ScreenUpdating = False
    ActiveSheet.ChartObjects(1).Activate
    For A = 1 To ActiveChart.SeriesCollection(1).Points.Count
    If ActiveChart.SeriesCollection(1).Points(A).HasDataLabel = False Then test = 1
    ActiveChart.SeriesCollection(1).Points(A).HasDataLabel = True
    rep = ActiveChart.SeriesCollection(1).Points(A).DataLabel.Text
    mtexte = rep
    If (Val(mtexte)) < 80 Then
    ActiveChart.SeriesCollection(1).Points(A).Interior.ColorIndex = 4
    ElseIf (Val(mtexte)) <= 100 And (Val(mtexte)) >= 80 Then
    ActiveChart.SeriesCollection(1).Points(A).Interior.ColorIndex = 46
    ElseIf (Val(mtexte)) > 100 Then
    ActiveChart.SeriesCollection(1).Points(A).Interior.ColorIndex = 3
    End If
    If test = 1 Then ActiveChart.SeriesCollection(1).Points(A).HasDataLabel = False
    Next A
    Application.ScreenUpdating = True
    Range("A1").Select
    End Sub
    0

Discussions similaires

Retrouver réglages couleurs d'origine de mon écran W10
LoulouSophie -
pistouri -

8 réponses
rétablir les couleurs d'origine
motobroc -
Utilisateur anonyme -

1 réponse
Je n'ai plus de couleur sur mon portable samsung Grand Ecran
cpadeloise -
Crysta -

10 réponses