Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Réutiliser une variable

Réutiliser une variable

1 réponse
Avatar
lolo
Bonjour =E0 tous

Voila j'ai un morceau de macro :


Windows("Macros essais.xls").Activate
Range("B5:G5").Select
Selection.Copy
nom =3D InputBox("Entrer le nom du fichier")


et une seconde macro

Sub Tracersimu()
'
' Tracersimu Macro, pour ajouter aux courbes d'essais les courbes de
simulation
' Macro enregistr=E9e le 19/10/2006'


Sheets("Graph1").Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).XValues =3D "=3DTabelle1!R51C9:R1500C9"
ActiveChart.SeriesCollection(4).Values =3D
"=3DTabelle1!R51C10:R1500C10"
ActiveChart.SeriesCollection(4).Name =3D "=3DTabelle1!R50C10"
ActiveChart.SeriesCollection(5).XValues =3D "=3DTabelle1!R51C9:R1500C9"
ActiveChart.SeriesCollection(5).Values =3D
"=3DTabelle1!R51C11:R1500C11"
ActiveChart.SeriesCollection(5).Name =3D "=3DTabelle1!R50C11"
ActiveChart.HasTitle =3D True
ActiveChart.ChartTitle.Characters.Text =3D "nom"
ActiveChart.Axes(xlCategory).MinimumScale =3D 0
ActiveChart.Axes(xlCategory).MaximumScale =3D 7
Sheets("Tabelle1").Select

End Sub


Je voudrais que le nom que je rentre comme nom de fichier soit utiliser
ici :
ActiveChart.ChartTitle.Characters.Text =3D "nom"

afin que le nom du fichier soit aussi en fait le nom du graphe

Merci de votre aide

A+
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Déclare la variable "nom" comme variable publique (dans un mmodule, à
l'extérieur des macros) :
Public nom as string
Cordialement.
Daniel
"lolo" a écrit dans le message de news:

Bonjour à tous

Voila j'ai un morceau de macro :


Windows("Macros essais.xls").Activate
Range("B5:G5").Select
Selection.Copy
nom = InputBox("Entrer le nom du fichier")


et une seconde macro

Sub Tracersimu()
'
' Tracersimu Macro, pour ajouter aux courbes d'essais les courbes de
simulation
' Macro enregistrée le 19/10/2006'


Sheets("Graph1").Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).XValues = "=Tabelle1!R51C9:R1500C9"
ActiveChart.SeriesCollection(4).Values "=Tabelle1!R51C10:R1500C10"
ActiveChart.SeriesCollection(4).Name = "=Tabelle1!R50C10"
ActiveChart.SeriesCollection(5).XValues = "=Tabelle1!R51C9:R1500C9"
ActiveChart.SeriesCollection(5).Values "=Tabelle1!R51C11:R1500C11"
ActiveChart.SeriesCollection(5).Name = "=Tabelle1!R50C11"
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Characters.Text = "nom"
ActiveChart.Axes(xlCategory).MinimumScale = 0
ActiveChart.Axes(xlCategory).MaximumScale = 7
Sheets("Tabelle1").Select

End Sub


Je voudrais que le nom que je rentre comme nom de fichier soit utiliser
ici :
ActiveChart.ChartTitle.Characters.Text = "nom"

afin que le nom du fichier soit aussi en fait le nom du graphe

Merci de votre aide

A+