XL 2016 Modifier format etiquette de données graphique VBA

Hazardo · 17 Janvier 2020

Bonjour,

Je souhaiterai modifier le format des étiquettes de données d'un graphique en fonction des paramètres région utilisateurs..

J'ai écrit ça comme macro mais ça ne fonctionne pas .. J'ai une erreur 445.

Sub Macro1()

Version = application.International(xlDecimalSeparator)

If Version = "," Then

ActiveSheet.ChartObjects("Graph1").Activate
ActiveChart.FullSeriesCollection(1).DataLabels.Select
Selection.NumberFormat = _
"_* +# ##0.0_)""m€"";_(* -# ##0.0""m€"";_(* ""-""_);_(@_)"

Else

ActiveSheet.ChartObjects("Graph1").Activate
ActiveChart.FullSeriesCollection(1).DataLabels.Select
Selection.NumberFormat = _
"_* +# ##0,0_)""m€"";_(* -# ##0,0""m€"";_(* ""-""_);_(@_)"

End If

End Sub

Avez-vous une solution ??

Merci

Bien cordialement,

sylvanu · 20 Janvier 2020

Désolé. Je suis sous XL2007.
il vous faut trouver quelqu'un qui est XlL2016 ou mieux pour qu'il puisse voir et tenté de résoudre le problème.
Le mieux est de reposter le problème en faisant apparaître clairement 2016.

sylvanu · 17 Janvier 2020

Bonsoir Hazardo,
A tester :

VB:

Sub Macro1()
Version = Application.International(xlDecimalSeparator)
If Version = "," Then
    ActiveSheet.ChartObjects("Graphique 2").Activate
    ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "_-* # ##0.00 €_-;-* # ##0.00 €_-;_-* ""-""?? €_-;_-@_-"
Else
    ActiveSheet.ChartObjects("Graphique 2").Activate
    ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "_-* # ##0,00 €_-;-* # ##0,00 €_-;_-* ""-""?? €_-;_-@_-"
End If
End Sub

Pour le code, utilisez les balises ( </> ) c'est plus lisible

Hazardo · 17 Janvier 2020

sylvanu à dit:

Bonsoir Hazardo,
A tester :

VB:

Sub Macro1()
Version = Application.International(xlDecimalSeparator)
If Version = "," Then
    ActiveSheet.ChartObjects("Graphique 2").Activate
    ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "_-* # ##0.00 €_-;-* # ##0.00 €_-;_-* ""-""?? €_-;_-@_-"
Else
    ActiveSheet.ChartObjects("Graphique 2").Activate
    ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "_-* # ##0,00 €_-;-* # ##0,00 €_-;_-* ""-""?? €_-;_-@_-"
End If
End Sub

Pour le code, utilisez les balises ( </> ) c'est plus lisible

Hello sylvanu,

ça me met ça quand je test

sylvanu · 17 Janvier 2020

Re bonsoir,
Je teste toujours dans la mesure du possible. Ce que je vous ai proposé fonctionne sur mon PC avec XL2007 donc je pense avec XL2016.
En PJ un essai pour voir.
( https://docs.microsoft.com/fr-fr/office/vba/api/excel.axis.ticklabels )

Hazardo · 20 Janvier 2020

sylvanu à dit:
Re bonsoir,
Je teste toujours dans la mesure du possible. Ce que je vous ai proposé fonctionne sur mon PC avec XL2007 donc je pense avec XL2016.
En PJ un essai pour voir.
( https://docs.microsoft.com/fr-fr/office/vba/api/excel.axis.ticklabels )

Bonjour,

En effet ça fonctionne pour mettre à jour les axes mais c'est les étiquettes de données que je souhaite modifier ..

Merci pour ton aide en tout cas

sylvanu · 20 Janvier 2020

Bonjour,
Le plus simple est de fournir un petit fichier exemple.
Cela permet de mieux cerner le problème et d'apporter des solutions plus ciblées.

Hazardo · 20 Janvier 2020

sylvanu à dit:
Bonjour,
Le plus simple est de fournir un petit fichier exemple.
Cela permet de mieux cerner le problème et d'apporter des solutions plus ciblées.

Ok j'ai repris ton fichier.

En gros dans la feuil 1 y'a le graph avec les format nombre "," et dans la feuil 2 dans le format anglais en ".".

sylvanu · 20 Janvier 2020

Il semblerat qu'il suffise de remplacer :
ActiveChart.FullSeriesCollection(1).DataLabels.Select
par
ActiveChart.SeriesCollection(1).DataLabels.Select

En PJ un essai, toujours en appuyant sur Appuyer. Ca appelle votre macro modifiée.
Mais je ne suis pas sur de la mise en forme que vous désiriez. Mais le concept marche.

Hazardo · 20 Janvier 2020

sylvanu à dit:
Il semblerat qu'il suffise de remplacer :
ActiveChart.FullSeriesCollection(1).DataLabels.Select
par
ActiveChart.SeriesCollection(1).DataLabels.Select

En PJ un essai, toujours en appuyant sur Appuyer. Ca appelle votre macro modifiée.
Mais je ne suis pas sur de la mise en forme que vous désiriez. Mais le concept marche.

Re,

En fait tout fonctionne lorsque le graph n'est pas en cascade (nouveauté excel 2016). Du coup, lorsque que je passe le graph en cascade la macro ne veut plus s'executer .. Est-ce que vous avez une solution ?

sylvanu · 20 Janvier 2020

Désolé. Je suis sous XL2007.
il vous faut trouver quelqu'un qui est XlL2016 ou mieux pour qu'il puisse voir et tenté de résoudre le problème.
Le mieux est de reposter le problème en faisant apparaître clairement 2016.

Hazardo · 20 Janvier 2020

sylvanu à dit:
Désolé. Je suis sous XL2007.
il vous faut trouver quelqu'un qui est XlL2016 ou mieux pour qu'il puisse voir et tenté de résoudre le problème.
Le mieux est de reposter le problème en faisant apparaître clairement 2016.

Merci pour ton aide en tout cas

XL 2016 Modifier format etiquette de données graphique VBA

Hazardo

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

Hazardo

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Hazardo

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Hazardo

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Hazardo

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Hazardo

XLDnaute Nouveau

Discussions similaires