VBA Mise en forme étiquettes de données
Résolu
pzyko
Messages postés
34
Date d'inscription
Statut
Membre
Dernière intervention
-
pzyko Messages postés 34 Date d'inscription Statut Membre Dernière intervention -
pzyko Messages postés 34 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA Mise en forme étiquettes de données
- Mise en forme conditionnelle excel - Guide
- Fuite données maif - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
5 réponses
Bonjour
un exemple (à toi de modifier la valeur de premcar)
Cdlmnt
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
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 :/
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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