Discussion :

[Bubale]

Bonjour à tous!
J'ai un problème pour sélectionner une plage de données en VBA pour en faire la source d'un graphique.
La taille de mon tableau est variable et je n'arrive pas à saisir la totalité avec la fonction range!
En gros, une partie de ma fonction a l'heure actuelle est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Stats_données").Range("A2:Z" & NumLign)

Mais je ne voudrais pas mettre Z comme colonne limite du tableau mais le numéro de la colonne compris dans la valeur de la variable NumColonn.
Je sais qu'il faut mettre une lettre pour la colonne dans Range(enfin, je crois!?), mais moi je n'ai que le numéro de colonne!
Je sais que j'ai pas été super clair, mais si quelqu'un aurait une idée, je lui en serais super reconnaissant!
Merci!
Bonne journée!
Bubale

[papimcha]

Bonjour Bubale,
J'ai eu le même souci et finalement j'ai utilisé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Stats_données").Range(cells(2,1),cells(NumLign, NumCol))

Voila, j'espère que cela correspond à ta demande.
Cordialement.

[Bubale]

Merci, ca doit être un truc dans le genre si ca a marché chez toi, mais moi, il me met une erreur!
je te donne ma formule, je suis sur que les variables sont les bonnes et contiennent une valeur (je les ai testées - elles sont définies as integer)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SetSourceData Source:=Sheets("Stats_données").Range(Cells(2, 1), Cells(numlign, numcolonn))

Je ne vois pas pourquoi ca marcherait pas! Vous voyez?
Merci!

[Lou Pitchoun]

Salut,

Sans trop connaitre : la source d'un graphique est une adresse du style
NomFeuille!A2:B6.

Il te faut donc affecter le nom de la feuille et la page de cellule (ou adresse).

Donc un truc du style serait plus approprié non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SetSourceData Source:=Sheets("Stats_données").Name & "!" & Sheets("Stats_données").Range(Cells(1, 1), Cells(numlign, numcolonn)).Address

[SilkyRoad]

bonjour

En complément de la réponse de Papimcha, il faut également spécifier la feuille devant "Cells" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Ws As Worksheet
 
Set Ws = Worksheets("Stats_données")
 
objGraph.SetSourceData _
    Ws.Range(Ws.Cells(2, 1), Ws.Cells(NumLign, NumCol)), _
    xlColumns

bonne journée
michel

[Bubale]

Ok, merci...la ca marche!!
Ca me soulage bien..M E R C IIIIIIIIIIIIIIIIIIII
Bonne journée!