VBA Mise en forme étiquettes de données
Résolu/Fermé
pzyko
Messages postés
34
Date d'inscription
vendredi 27 juin 2014
Statut
Membre
Dernière intervention
8 août 2014
-
30 juin 2014 à 15:29
pzyko Messages postés 34 Date d'inscription vendredi 27 juin 2014 Statut Membre Dernière intervention 8 août 2014 - 4 juil. 2014 à 14:28
pzyko Messages postés 34 Date d'inscription vendredi 27 juin 2014 Statut Membre Dernière intervention 8 août 2014 - 4 juil. 2014 à 14:28
A voir également:
- VBA Mise en forme étiquettes de données
- Mise en forme conditionnelle excel - Guide
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Effacer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
5 réponses
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié par ccm81 le 30/06/2014 à 16:12
Modifié par ccm81 le 30/06/2014 à 16:12
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
pzyko
Messages postés
34
Date d'inscription
vendredi 27 juin 2014
Statut
Membre
Dernière intervention
8 août 2014
1
30 juin 2014 à 16:25
30 juin 2014 à 16:25
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
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
30 juin 2014 à 16:48
30 juin 2014 à 16:48
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
pzyko
Messages postés
34
Date d'inscription
vendredi 27 juin 2014
Statut
Membre
Dernière intervention
8 août 2014
1
3 juil. 2014 à 09:43
3 juil. 2014 à 09:43
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
pzyko
Messages postés
34
Date d'inscription
vendredi 27 juin 2014
Statut
Membre
Dernière intervention
8 août 2014
1
4 juil. 2014 à 14:28
4 juil. 2014 à 14:28
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
