Graphique paramétré par rapport une variable définissant la dernière l

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Graphique paramétré par rapport une variable définissant la dernière l

uriel2k

Bonjour,

Je souhaite réaliser une macro qui permet de générer un graphique à partir de donnée dont la longueur peut varier d'un fichier à un autre.

J'ai définit une variable "lignevide" qui identifié le nombre de données présent dans le fichier (c'est à dire le nombre de lignes). Je n'arrive pas à intégrer la valeur de cette variable dans la définition de mon graphique

J'ai écris:

Code :

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Feuil3" ).Range("A10: B & lignevide " ), PlotBy:=xlColumns

Un message d'erreur apparait : "erreur d'exécution 1004" !!

Pourtant lorsque j'écris:

Code :

Cells(2, 9).Value = "B" & lignevide

, excel me renvoie bien "une concaténation de B et de la valeur de la variable ligne_vide: par exemple B1400.

Dès lors, quelle est la syntaxe afin de définir la plage de valeur " du début à la fin" dans le code générant le graphique.

Merci d'avance,

Publicité

olivthill

L'examen du code montre un problème d'emplacement des guillemets dans

...Range("A10: B & lignevide "...

uriel2k

Merci pour votre attention,

Quel serais dès lors la syntaxe à employer?

J'ai également essayé cela :

Code :

Dim Derniere_cellule As Variant
Cells(2, 9).Value = "B" & lignevide '<--- me permet de tester la "concaténation"
Derniere_cellule = Cells(2, 9).Value
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Feuil3" ).Range("A10: Derniere_cellule " ), PlotBy:=xlColumns

Sans succès, le probleme provient toujours de l'interprétation de

Code :

Range("A10: Derniere_cellule " )

olivthill

Au lieu de

Range("A10: Derniere_cellule " )

je mettrais

Range("A10:" & Derniere_cellule)

uriel2k

Merci pour votre aide, voici le code qui fonctionne dès fois que cela puisse être utile à d'autres personnes:

Code :

lignevide =range("a65535" ).end(xlup).row+1
ActiveChart.SetSourceData Source:=Sheets("Feuil3" ).Range("A10:B" & lignevide ), PlotBy:=xlColumns

uriel2k

Le topic peut être fermé !!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Graphique paramétré par rapport une variable définissant la dernière l

Sujets relatifs
Affecter un nom de variable en JavaScript	Transfert de variable [résolu]
Problème décallage IE par rapport à FF et Opera	problème avec une variable
petit souci avec variable d'un Input [résolu]	@IP dans variable shell xp (cmd)
BDD et les objets graphique	[RESOLU][MYSQL] variable dans procédure stockée toujours NULL
[Résolu] porté d'une variable vector	[shell] lire un fichier mais pas la première ni dernière ligne
Plus de sujets relatifs à : Graphique paramétré par rapport une variable définissant la dernière l

Page générée en 0.050 secondes