Discussion :

[Waragnac]

Bonjour à tous,

Je vais tenter de vous expliquer mon problème. J'ai deux graphiques avec des étiquettes de données affichant des valeurs en % avec une décimale (5.5% par exemple) mais dont le type est String. J'aimerais pouvoir convertir ces valeurs en numérique, mais je déclenche à chaque fois une erreur d'exécution 13 incompatibilité de type. La seule fonction avec laquelle ça fonctionne est Val, mais elle me retourne des entiers alors que je veux des décimales avec un chiffre après la virgule.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
With Worksheets("Dashboard")
For i = 1 To 2
    For Each pt In .ChartObjects("Graphique " & i).Chart.SeriesCollection(1).Points
       ValDataLab = pt.DataLabel.Text
      If CDdl(ValDataLab) < 0 Then
        pt.Interior.Color = RGB(255, 99, 71)
      Else: pt.Interior.Color = RGB(128, 192, 64)
      End If
    Next
   Next
End with

Est-ce que quelqu'un aurait une idée ?
Merci à vous

Waragnac

[Waragnac]

Finalement j'ai trouvé une astuce, je ne vais pas convertir de données mais garder les valeurs en string et détecter la présence du signe -, avec ça je suis capable de déterminer s'il s'agit d'une valeur positive ou négative et faire ma mise en forme conditionnelle dans mon graphique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
 
 '------------------------------ Mise en forme conditionnelle des bar charts
 
With Worksheets("Dashboard")
 
   For i = 26 To 27
    For Each pt In .ChartObjects("Graphique " & i).Chart.SeriesCollection(1).Points
       ValDataLab = InStr(1, pt.DataLabel.Text, "-")
      If ValDataLab = 1 Then
        pt.Interior.Color = RGB(255, 99, 71)
      Else: pt.Interior.Color = RGB(128, 192, 64)
      End If
    Next
   Next
 
 
  End With

Et ça fonctionne parfaitement bien comme ça.

Bonne journée.

Waragnac