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
AV
| Comment en VBA avec une propriété par exemple pourrais-je avoir l'adresse | de la plage de donnée source de mon graphique exemple:
Sub zzz_Graph() With Sheets("Feuil1").ChartObjects(1).Chart For i = 1 To .SeriesCollection.Count MsgBox .SeriesCollection(i).Formula Next End With End Sub
AV
| Comment en VBA avec une propriété par exemple pourrais-je avoir l'adresse
| de la plage de donnée source de mon graphique exemple:
Sub zzz_Graph()
With Sheets("Feuil1").ChartObjects(1).Chart
For i = 1 To .SeriesCollection.Count
MsgBox .SeriesCollection(i).Formula
Next
End With
End Sub
| Comment en VBA avec une propriété par exemple pourrais-je avoir l'adresse | de la plage de donnée source de mon graphique exemple:
Sub zzz_Graph() With Sheets("Feuil1").ChartObjects(1).Chart For i = 1 To .SeriesCollection.Count MsgBox .SeriesCollection(i).Formula Next End With End Sub
AV
lSteph
Bonjour à tous, Merci beaucoup AV, grâce à ton aide j'ai pu adapter ainsi:
Function SourceChar(Mygr As String) As String With ActiveSheet.ChartObjects(Mygr).Chart SourceChar = "" For I = 1 To .SeriesCollection.Count With .SeriesCollection(I) If Not Len(SourceChar) > 0 Then SourceChar = Mid(.Formula, 9, Len(.Formula) - 11) Else SourceChar = Union(Range(SourceChar), _ Range(Mid(.Formula, 9, Len(.Formula) - 11))).Address End If End With Next End With End Function
'Bon dimanche.
'lSteph "AV" a écrit dans le message de news:
| Comment en VBA avec une propriété par exemple pourrais-je avoir l'adresse | de la plage de donnée source de mon graphique exemple:
Sub zzz_Graph() With Sheets("Feuil1").ChartObjects(1).Chart For i = 1 To .SeriesCollection.Count MsgBox .SeriesCollection(i).Formula Next End With End Sub
AV
Bonjour à tous,
Merci beaucoup AV, grâce à ton aide j'ai pu adapter
ainsi:
Function SourceChar(Mygr As String) As String
With ActiveSheet.ChartObjects(Mygr).Chart
SourceChar = ""
For I = 1 To .SeriesCollection.Count
With .SeriesCollection(I)
If Not Len(SourceChar) > 0 Then
SourceChar = Mid(.Formula, 9, Len(.Formula) - 11)
Else
SourceChar = Union(Range(SourceChar), _
Range(Mid(.Formula, 9, Len(.Formula) - 11))).Address
End If
End With
Next
End With
End Function
'Bon dimanche.
'lSteph
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
etQf4HhgGHA.4304@TK2MSFTNGP05.phx.gbl...
| Comment en VBA avec une propriété par exemple pourrais-je avoir
l'adresse
| de la plage de donnée source de mon graphique exemple:
Sub zzz_Graph()
With Sheets("Feuil1").ChartObjects(1).Chart
For i = 1 To .SeriesCollection.Count
MsgBox .SeriesCollection(i).Formula
Next
End With
End Sub
Bonjour à tous, Merci beaucoup AV, grâce à ton aide j'ai pu adapter ainsi:
Function SourceChar(Mygr As String) As String With ActiveSheet.ChartObjects(Mygr).Chart SourceChar = "" For I = 1 To .SeriesCollection.Count With .SeriesCollection(I) If Not Len(SourceChar) > 0 Then SourceChar = Mid(.Formula, 9, Len(.Formula) - 11) Else SourceChar = Union(Range(SourceChar), _ Range(Mid(.Formula, 9, Len(.Formula) - 11))).Address End If End With Next End With End Function
'Bon dimanche.
'lSteph "AV" a écrit dans le message de news:
| Comment en VBA avec une propriété par exemple pourrais-je avoir l'adresse | de la plage de donnée source de mon graphique exemple:
Sub zzz_Graph() With Sheets("Feuil1").ChartObjects(1).Chart For i = 1 To .SeriesCollection.Count MsgBox .SeriesCollection(i).Formula Next End With End Sub