Discussion :

[Touma02]

Bonjour voici mon code,

Code :

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

1
2
3
4
5
6
7
8
Charts.add
 
Variable = "Feuil3"
 
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Sheets("Variable").Range( _
        "A8:B250"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Variable"

Je voudrais que le mot "variable" en rouge prenne la valeur indiquée en début de code.

Merci beaucoup

[rvtoulon]

salut,
essaye en enlevant les apostrophes comme ceci:

Code :

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

sheets (variable).range 'etc...

idem pour name :

Code :

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

name:=variable

[Touma02]

Marche pas

[rvtoulon]

Marche pas

Si tu pouvais un peu expliquer parce que marche pas c'est un peu léger pour t'aider tu crois pas ?

si tu fais ce test :

Code :

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

1
2
3
4
5
Sub test()
Dim variable As String
variable = "Feuil3"
Sheets(variable).Activate
End Sub

La feuille 3 doit s'activer. Ceci illustre l'utilisation d'une variable. c'est un code simple qui fonctionne.

edit: pense à déclarer tes variables comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Dim variable As String
Charts.Add
 
variable = "Feuil1"
 
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Sheets(variable).Range( _
        "A1:C6"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:=variable

j'ai essayé il me crée bien un graphique, adapte à tes besoins

[Touma02]

Enfete j'avais essayer deja comme dans ton premier message mais ca fonctionné pas. c'etait une erreur de ma part j'avais "." dans le nom de ma variable que je n'avais pas vu et qui etait une erreur. maintenant ca fonctionne