VBA Mise en forme étiquettes de données
Résolu/Fermé
pzyko
pzyko
- Messages postés
- 34
- Date d'inscription
- vendredi 27 juin 2014
- Statut
- Membre
- Dernière intervention
- 8 août 2014
pzyko
- Messages postés
- 34
- Date d'inscription
- vendredi 27 juin 2014
- Statut
- Membre
- Dernière intervention
- 8 août 2014
A voir également:
- VBA Mise en forme étiquettes de données
- VBA Mise en forme étiquettes de données ✓ - Forum - VB / VBA
- Vba mise en forme conditionnelle couleur - Forum - Excel
- VBA: Mise à jour base de données ✓ - Forum - Excel
- VBA Mise en forme conditionnelle ✓ - Forum - VB / VBA
- VBA Mise en Forme Conditionnelle ✓ - Forum - VB / VBA
5 réponses
ccm81
Modifié par ccm81 le 30/06/2014 à 16:12
- Messages postés
- 10356
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 26 juin 2022
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
30 juin 2014 à 16:25
- Messages postés
- 34
- Date d'inscription
- vendredi 27 juin 2014
- Statut
- Membre
- Dernière intervention
- 8 août 2014
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
30 juin 2014 à 16:48
- Messages postés
- 10356
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 26 juin 2022
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
3 juil. 2014 à 09:43
- Messages postés
- 34
- Date d'inscription
- vendredi 27 juin 2014
- Statut
- Membre
- Dernière intervention
- 8 août 2014
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
4 juil. 2014 à 14:28
- 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
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