XL 2016 Source de donnée graphique (VBA)

FlamXYZ · 4 Juillet 2020

Bonjour mes chers camarades excelois(es),

J'ai confectionné plusieurs graphiques (32) de types courbes chacune contenant 4 series de données.
J'aimerais programmer avec VBA une mise a jour automatique de la plage de donnée de chacun de ses graphiques; depuis j'essaie d'écrire sans succès un code qui pourra me générer sur une feuille la plage de donnée de chaque graphique (donnée que je souhaiterai utiliser pour la macro).

j'arrive plutôt a avoir la plage de chaque série (soit 4 plages par graphique, alors que j'aimerais avoir une seule plage par graph) avec le code ci dessous

for j =1 to 4
Serie = ActiveChart. seriesCollection(j). formula
range("A" & j) = serie
next j

Pourriez vous m'aidez a avoir la correcte instruction pour avoir l'unique plage de donnée du graphique et non celle de chaque serie du graphique.

Merci d'avance pour votre aide

sylvanu · 4 Juillet 2020

Bonjour FlamXYZ,
Vous n'auriez pas un petit fichier exemple juste avec un graphique ?
Suivant le type de graphique utilisé l'approche peut être différente.

FlamXYZ · 4 Juillet 2020

sylvanu à dit:
Bonjour FlamXYZ,
Vous n'auriez pas un petit fichier exemple juste avec un graphique ?
Suivant le type de graphique utilisé l'approche peut être différente.

Salut Sylvanu,

Merci pour la reponse. J'ai ajouté un fichier exemple comme sollicité.
A bientôt

sylvanu · 4 Juillet 2020

Bonsoir,
En PJ deux essais suivant ce que vous voulez faire :
1- On clique sur une cellule puis sur le bouton, le graph commençant toujours au début
2- On donne adresse début et adresse de fin et on clique sur le bouton
En espérant qu'une des deux vous satisfasse.
J'utilise la formule :

VB:

ActiveChart.SetSourceData source:=Range("'Graph'!$A$3:" & Adresse)

pour définir en une seule ligne le bloc.

FlamXYZ · 4 Juillet 2020

Bonsoir, Merci pour votre retour.
La formule que vous avez utilisée se rapproche de celle que j'avais l'intention d'utiliser pour rendre mes plages dynamiques ...du coup merci encore, je vais pas me casser la tête pour cette partie
Neamoins mon soucis n'est pas complètement résolu. J'ai 32 graphiques qui n'ont pas la même adresse de début. Mon intention est de récupérer l'adresse de la plage de chaque source, puis stocker l'adresse de fin dans une variable de chaque graph comme vous l'avez fait.
La solution que vous me proposez est tres astucieuse, mais en meme temps ca sera un peu fastidieux de trouver manuellement la plage de debut de chaque graphique.
y'aurait il une autre astuce en réserve svp ?

XL 2016 Source de donnée graphique (VBA)

FlamXYZ

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

FlamXYZ

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

FlamXYZ

XLDnaute Nouveau

Discussions similaires