Courbe avec cellules actives (excel)
Résolu
yannBP
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
yannBP Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
yannBP Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai fabriqué une macro, qui me trace la courbe de pionts sellectionnés dans une feuille, en mode enregistrement. Voici le résultat :
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("I=f(U)").Range("B1:C734")
ActiveChart.Location Where:=xlLocationAsObject, Name:="I=f(U)"
Maintenant, le nombre de point n'étant pas toujours 734, je voudrais remplacer ce programme par :
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("I=f(U)").ActiveRange
ActiveChart.Location Where:=xlLocationAsObject, Name:="I=f(U)"
Mais cela ne fonctionne pas.
Quelqu'un pourait-il me dire pourquoi, et comment faire pour que cela fonctionne ?
merci.
J'ai fabriqué une macro, qui me trace la courbe de pionts sellectionnés dans une feuille, en mode enregistrement. Voici le résultat :
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("I=f(U)").Range("B1:C734")
ActiveChart.Location Where:=xlLocationAsObject, Name:="I=f(U)"
Maintenant, le nombre de point n'étant pas toujours 734, je voudrais remplacer ce programme par :
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("I=f(U)").ActiveRange
ActiveChart.Location Where:=xlLocationAsObject, Name:="I=f(U)"
Mais cela ne fonctionne pas.
Quelqu'un pourait-il me dire pourquoi, et comment faire pour que cela fonctionne ?
merci.
A voir également:
- Courbe avec cellules actives (excel)
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
- Verrouiller cellules excel - Guide
- Courbe excel - Guide
- Word et excel gratuit - Guide
4 réponses
Bonjour,
tu peux contourner le problème en créant une variable Range (ici nommée Zone) qui correspond à ta plage de données.
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
Dim Zone As Range: Set Zone = Selection
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Zone
ActiveChart.Location Where:=xlLocationAsObject, Name:="I=f(U)"
I.
tu peux contourner le problème en créant une variable Range (ici nommée Zone) qui correspond à ta plage de données.
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
Dim Zone As Range: Set Zone = Selection
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Zone
ActiveChart.Location Where:=xlLocationAsObject, Name:="I=f(U)"
I.
Merci Ivan-hoe,
cela fonctionne parfaitement.
Je me demande quand même pourquoi il accepte la fonction "zone" et pas la fonction activeRange
quelqu'un saurait-il me le dire ?
cela fonctionne parfaitement.
Je me demande quand même pourquoi il accepte la fonction "zone" et pas la fonction activeRange
quelqu'un saurait-il me le dire ?