Utiliser valeurs autre feuille avec lngCount
Argan
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'aimerai utiliser les valeurs d'une feuille sélectionnée avec un lngCount et les insérer dans un graphique mais je n'arrive pas à utiliser le selecteditems(lngCount) pour les obtenir. Erreur d'indice...
Voilà mon code :
Dim x As String
x = .SelectedItems(lngCount)
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(lngCount).Name = "=""(" & CStr(x) & ")"""
ActiveChart.SeriesCollection(lngCount).XValues = _
Workbooks("=""(" & CStr(x) & ")""").Worksheets("=""(" & CStr(x) & ")""").Range("A5:A10000")
ActiveChart.SeriesCollection(lngCount).Values = _
Workbooks("=""(" & CStr(x) & ")""").Worksheets("=""(" & CStr(x) & ")""").Range("B5:B10000")
ActiveSheet.ChartObjects("Graphique 2").Activate
Merci d'avance !
j'aimerai utiliser les valeurs d'une feuille sélectionnée avec un lngCount et les insérer dans un graphique mais je n'arrive pas à utiliser le selecteditems(lngCount) pour les obtenir. Erreur d'indice...
Voilà mon code :
Dim x As String
x = .SelectedItems(lngCount)
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(lngCount).Name = "=""(" & CStr(x) & ")"""
ActiveChart.SeriesCollection(lngCount).XValues = _
Workbooks("=""(" & CStr(x) & ")""").Worksheets("=""(" & CStr(x) & ")""").Range("A5:A10000")
ActiveChart.SeriesCollection(lngCount).Values = _
Workbooks("=""(" & CStr(x) & ")""").Worksheets("=""(" & CStr(x) & ")""").Range("B5:B10000")
ActiveSheet.ChartObjects("Graphique 2").Activate
Merci d'avance !
A voir également:
- Utiliser valeurs autre feuille avec lngCount
- Utiliser chromecast - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Utiliser iphone comme webcam - Guide
1 réponse
Bonjour,
Pour qu'il n'y ait pas d'erreur d'indice, il faut définir l'indice lgnCount !!!
Un excellent cours VBA gratuit :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
voir page 56
Pour qu'il n'y ait pas d'erreur d'indice, il faut définir l'indice lgnCount !!!
Un excellent cours VBA gratuit :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
voir page 56
