voila mon probleme est tel que j'ai 2 series sur un=20
graphique et j'aimerais connaitre la synthaxe qui permet=20
de voir si l'une des 2 serie existe avant de la mettre en=20
forme.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JF
Voilà une petite fonction... Tu peux l'appeler dans ton code ainsi :
if estserie("Toto") then ...
Function EstSerie(ByVal sNomSerie As String) As Boolean Dim sr As Series Dim bTrouve As Boolean bTrouve = False For Each sr In ActiveChart.SeriesCollection If LCase(sr.Name) = LCase(sNomSerie) Then bTrouve = True Next sr EstSerie = bTrouve End Function
-----Message d'origine----- bonjour à tous
voila mon probleme est tel que j'ai 2 series sur un graphique et j'aimerais connaitre la synthaxe qui permet de voir si l'une des 2 serie existe avant de la mettre en
forme.
merci beaucoup par avance
.
Voilà une petite fonction...
Tu peux l'appeler dans ton code ainsi :
if estserie("Toto") then ...
Function EstSerie(ByVal sNomSerie As String) As Boolean
Dim sr As Series
Dim bTrouve As Boolean
bTrouve = False
For Each sr In ActiveChart.SeriesCollection
If LCase(sr.Name) = LCase(sNomSerie) Then bTrouve =
True
Next sr
EstSerie = bTrouve
End Function
-----Message d'origine-----
bonjour à tous
voila mon probleme est tel que j'ai 2 series sur un
graphique et j'aimerais connaitre la synthaxe qui permet
de voir si l'une des 2 serie existe avant de la mettre
en
Voilà une petite fonction... Tu peux l'appeler dans ton code ainsi :
if estserie("Toto") then ...
Function EstSerie(ByVal sNomSerie As String) As Boolean Dim sr As Series Dim bTrouve As Boolean bTrouve = False For Each sr In ActiveChart.SeriesCollection If LCase(sr.Name) = LCase(sNomSerie) Then bTrouve = True Next sr EstSerie = bTrouve End Function
-----Message d'origine----- bonjour à tous
voila mon probleme est tel que j'ai 2 series sur un graphique et j'aimerais connaitre la synthaxe qui permet de voir si l'une des 2 serie existe avant de la mettre en
forme.
merci beaucoup par avance
.
alex
désolé mais cela ne va pas pourrais-tu m'expliquer comment l'implanter s'il te plais ??
merci beaucoup par avance
désolé mais cela ne va pas pourrais-tu m'expliquer comment
l'implanter s'il te plais ??
désolé mais cela ne va pas pourrais-tu m'expliquer comment l'implanter s'il te plais ??
merci beaucoup par avance
Salut Alex, Dans mon exemple «Toto» correspond à un nom de série Pour connaître les noms de séries de ton graphique regarde dans la rubrique «nom» du menu Graphiquedonnées source Onglet «Série»...
-----Message d'origine----- désolé mais cela ne va pas pourrais-tu m'expliquer comment
l'implanter s'il te plais ??
merci beaucoup par avance .
Salut Alex,
Dans mon exemple «Toto» correspond à un nom de série
Pour connaître les noms de séries de ton graphique
regarde dans la rubrique «nom» du menu Graphiquedonnées
source Onglet «Série»...
-----Message d'origine-----
désolé mais cela ne va pas pourrais-tu m'expliquer
comment
Salut Alex, Dans mon exemple «Toto» correspond à un nom de série Pour connaître les noms de séries de ton graphique regarde dans la rubrique «nom» du menu Graphiquedonnées source Onglet «Série»...
-----Message d'origine----- désolé mais cela ne va pas pourrais-tu m'expliquer comment
l'implanter s'il te plais ??
merci beaucoup par avance .
JF
Voici un exemple d'utilisation à mettre dans un module ou sous la feuille VBA de ton graphique
Sub Exemple() Dim sSerie As String sSerie = "Nombre de livraisons" If EstSerie(sSerie) Then With ActiveChart.SeriesCollection(sSerie) .Border.ColorIndex = 5 .MarkerBackgroundColorIndex = 5 .MarkerForegroundColorIndex = 5 .MarkerStyle = xlSquare .Smooth = False .MarkerSize = 5 .Shadow = False End With End If ActiveChart.Deselect End Sub
Voici un exemple d'utilisation à mettre dans un module ou
sous la feuille VBA de ton graphique
Sub Exemple()
Dim sSerie As String
sSerie = "Nombre de livraisons"
If EstSerie(sSerie) Then
With ActiveChart.SeriesCollection(sSerie)
.Border.ColorIndex = 5
.MarkerBackgroundColorIndex = 5
.MarkerForegroundColorIndex = 5
.MarkerStyle = xlSquare
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
End If
ActiveChart.Deselect
End Sub
Voici un exemple d'utilisation à mettre dans un module ou sous la feuille VBA de ton graphique
Sub Exemple() Dim sSerie As String sSerie = "Nombre de livraisons" If EstSerie(sSerie) Then With ActiveChart.SeriesCollection(sSerie) .Border.ColorIndex = 5 .MarkerBackgroundColorIndex = 5 .MarkerForegroundColorIndex = 5 .MarkerStyle = xlSquare .Smooth = False .MarkerSize = 5 .Shadow = False End With End If ActiveChart.Deselect End Sub
