probleme bouton création graphique

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 !

alucard_xs

XLDnaute Occasionnel
bonjour,

J'ai un fichier qui sert de tampon, dans ce fichier j'ai des boutons qui me permettent de faire des graphiques en prenant à chaque fois les 2 premieres colonnes de la même feuille (en X et en Y)
ce bouton a le code suivant


Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:BH27"), PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!C2"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!C3"
ActiveChart.SeriesCollection(1).Name = "=Feuil1!R1C3"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
ActiveChart.Axes(xlCategory).Select

le soucis c'est que à chaque fois que je veux l'appliquer il essaie de me chercher la feuille qui se nomme "feuil1" et malheureusement dans les classeurs dans lequel je colle ce fichier tampon, feuil1 n'existe plus il se nomme différement comment faire ?
ce fichier tampon est vierge quand je le colle, ensuite j'y insère des données ; qd je me sers de ce fichier tampon, je le colle sur une feuille qui porte un nom variable, donc je suis bloqué
merci et bonne journée
 
Dernière édition:
Re : probleme bouton création graphique

bonjour
Sheets.Add
Sheets(1).Name = "tampon"
Regarde si sur ton fichier tampon avant de coller les données si tu peux inserrer une feuille et la nommée, ensuite dans ta macro tu fais reference à cette feuille
 
- 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
4
Affichages
2 K
Réponses
4
Affichages
1 K
Retour