Besoin d'aide macro !!

  • Initiateur de la discussion Initiateur de la discussion Sang1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Sang1

XLDnaute Junior
Bon jour a tous !!

Je cherche a adapter cette formule afin que mon graphique sélectionne les données jusqu'à la dernière cellule ou il y a une valeure.
En gros j'ai des données ayant un nombre variable et qui sont sur une ligne. Voici ce qui doit ètre adapté :

Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Courbes").Range("A1")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Conso.!R2C14:R2C31"
ActiveChart.SeriesCollection(1).Values = "=Conso.!R3C14:R3C31"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Courbes"
With ActiveChart



Merci beaucoup pour votre aide.

Crdlt,

S@nG1
 
Re : Besoin d'aide macro !!

Bonjour,

A tester :

Sub test()
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Courbes").Range("A1")
ActiveChart.SeriesCollection.NewSeries
DerCol = Sheets("Conso").Range("IV2").End(xlToLeft).Column
ActiveChart.SeriesCollection(1).XValues = "=Conso!R2C14:R2C" & DerCol
ActiveChart.SeriesCollection(1).Values = "=Conso!R3C14:R3C" & DerCol
ActiveChart.Location Where:=xlLocationAsObject, Name:="Courbes"
End Sub

voir le fichier joint
 

Pièces jointes

Re : Besoin d'aide macro !!

Bonjour,
Une solution serait d'utiliser une formule du style
="Conso.!R3C14:R3C"&nbval(r3c14:R3C25)-1
dans une cellule de ta feuille que tu appelerais "plageval" par ex.

Le résultat sera la plage qui t'intéresse (ex: Conso.!R3C14:R3C18)

tu peux ensuite modifier ta ligne
ActiveChart.SeriesCollection(1).XValues = "=Conso.!R2C14:R2C31"
qui devient
ActiveChart.SeriesCollection(1).XValues = "=" & range("plageval").value

Ca te parle?
Th
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
1 K
Retour