VBA Mise en forme étiquettes de donnéesRésolu/Fermé

Question

Bonjour,

Novice en VBA, j'ai créé un graphique et j'y ai ajouté des étiquettes de données. J'aimerai pouvoir créer une macro qui me mette en gras uniquement les étiquettes de données commençant par le symbole {.
Je ne vois pas du tout comment faire et vous remercie par avance de votre aide.

ccm81 · Answer

Bonjour

un exemple (à toi de modifier la valeur de premcar)

Option Explicit

Const premcar = "m"  ' premier caractere pour etiquette en gras

Public Sub etiqgras()
Dim gr As Object, nbpts As Long, nupt As Long
Set gr = ActiveSheet.ChartObjects(1).Chart
nbpts = gr.SeriesCollection(1).Points.Count
With gr.SeriesCollection(1)
  For nupt = 1 To nbpts
    If Left(.Points(nupt).DataLabel.Characters.Text, 1) = premcar Then
      .Points(nupt).DataLabel.Font.FontStyle = "Gras"
    Else
      .Points(nupt).DataLabel.Font.FontStyle = "Normal"
    End If
  Next nupt
End With
End Sub
Cdlmnt

pzyko · Answer

Je te remercie de ta réponse mais je ne comprend absolument pas comment appliquer ce code à mes étiquettes de données ni comment cela me permettra de les mettre en gras :/

ccm81 · Answer

Le fichier
https://www.cjoint.com/?3FEqVUol6v8

si tu as du mal a adapter, mets le tien sur cjoint.com au format excel 2003 et joins le lien obtenu à ton prochain message

pzyko · Answer

Je n'ai pas réussi à adapter cette macro. 
Voici mon fichier : https://www.cjoint.com/?0GdjzXKtpPo
Dans les options d'étiquettes de données, j'ai coché valeur, pourcentage, nom de catégorie et afficher les lignes d'étiquettes.
Finalement, ce que j'aimerai c'est que toute l'étiquette apparaisse en gras si le nom de catégorie commence par "{".
Merci

pzyko · Answer

Sub etiq_gras()

Const premcar = "{"


Dim nbpts As Long, nupt As Long


Sheets("Cibles par campagne").Select
 ActiveSheet.ChartObjects("Répartition des cibles par campagne").Activate

nbpts = ActiveChart.SeriesCollection(1).Points.Count

 For nupt = 1 To nbpts
 If Left(ActiveChart.SeriesCollection(1).Points(nupt).DataLabel.Characters.Text, 1) = premcar Then
      ActiveChart.SeriesCollection(1).Points(nupt).DataLabel.Format.TextFrame2.TextRange.Font.Bold = msoTrue
    Else
      ActiveChart.SeriesCollection(1).Points(nupt).DataLabel.Format.TextFrame2.TextRange.Font.Bold = msoFalse
    End If
  Next nupt

end sub

VBA Mise en forme étiquettes de données

5 réponses

Newsletters