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
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Effacer les données de navigation - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Mise à jour pilote - Guide
5 réponses
ccm81
Messages postés
10841
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 mars 2024
2 402
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
10841
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 mars 2024
2 402
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