Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro grahique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eddy13t
  • 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 !

S'inscrire
E

eddy13t

Guest
Bonsoir, voila je rencontre un problème avec la création de graphiques à l'aide d'une macro. En faite ce que je veux faire c'est créer des feuilles avec des noms différents et avec des tableaux dessus. Le problème c'est que quand j'enregistre ma macro sur "feuil1" par exemple, le code va identifier la feuil 1 plusieurs fois et quand je vais mettre un bouton sur la feuil2 et l'affecter à cette macro créer avec la feuil 1 il va menvoyer le débogage --> logique. Ma question est comment faire du nom de la feuille une variable...qui change en fonction du nom de la feuille sur laquelle est le bouton..

Merci d'avance ^^
 
Trier par date Trier par votes
Re : macro grahique

Voila par exemple j'ai en feuil1 une macro qui me créer le graphique mais avec la feuille 1 et que je veux faire pareil sur la feuil2 ça marchera pas, comment je peux faire apparaître le nom de la feuille comme une variable de maniere à ce que sur nimporte quelle feuille la macro marche???
 

Pièces jointes

Vote positif 0 Vote négatif
Re : macro grahique

Bonsoir eddy13t
Essayez ainsi :
Code: 
[COLOR="DarkSlateGray"][B]Sub Macro2()
Dim aSh As String
    aSh = ActiveSheet.Name
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets(aSh).Range("I30")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = _
        "=(" & aSh & "!R13C4:R13C15," & aSh & "!R20C4:R20C15)"
    ActiveChart.SeriesCollection(1).Values = "=" & aSh & "!R14C3:R14C15"
    ActiveChart.SeriesCollection(2).Values = _
        "=(" & aSh & "!R15C3:R15C15," & aSh & "!R22C4:R22C15)"
    ActiveChart.SeriesCollection(3).Values = _
        "=(" & aSh & "!R16C3:R16C15," & aSh & "!R23C3:R23C15)"
    ActiveChart.SeriesCollection(4).Values = _
        "=(" & aSh & "!R17C3:R17C15," & aSh & "!R24C3:R24C15)"
    ActiveChart.Location Where:=xlLocationAsObject, Name:=aSh
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub[/B][/COLOR]
ROGER2327
#2169
 
Vote positif 0 Vote négatif
Re : macro grahique

Bonjour
Je pense que cela doit fonctionner aussi??
HTML: 
Sub Macro1()
Dim TEST
    TEST = ActiveSheet.Name
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets(TEST).Range("C13:O17"), PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:=(TEST)
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Macro qui enchaine deshoraires Aller-Retour en fonction de critères
Réponses
10
Affichages
290
bsalv
B
  • Question Question
Microsoft 365 Problème Création Sommaire
Réponses
4
Affichages
333
sylvanu
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
808
MBEPID
M
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
904
AtTheOne
F
  • Question Question
macro événementielle
2
Réponses
18
Affichages
619
FDO94
F
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
521
sousou
M
  • Question Question
Microsoft 365 [RESOLU] Enregistrer avec un nouveau nom sans macro et sans le bouton
Réponses
2
Affichages
344
Marboi
M
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
703
MANU64360
M
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
763
Nounours4173
N
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
507
caseras
C
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
340
fanch55
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
308
oguruma
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
733
PHIL37
P
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
859
LuckyShuri
L
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
R
  • Question Question
Microsoft 365 VBA Excel PowerPoint
Réponses
5
Affichages
551
Rem6610
R
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
217
pamino
P
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
523
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…