Merci pour votre aide. J'ai des difficultés avec cette macro.
A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le
problème.
Je ne sais pas comment changer le nom pour réutiliser la macro à la demande.
Merci.
Sub Tracelegraphique()
Range("D4:E51").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Essais
divers").Range("D4:E51"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Essais divers"
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
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
Alain CROS
Bonjour
Essayer comme ça
Sub Tracelegraphique() With ActiveSheet .ChartObjects.Add 0&, 0&, 400&, 300& With .ChartObjects(.ChartObjects.Count).Chart .ChartType = xlXYScatter .SetSourceData [D4:E51], xlColumns With .Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With .Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With End With End With End Sub
Alain CROS
"joel.andre" a écrit dans le message de news: 419a4a5a$0$18222$
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro. A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le problème. Je ne sais pas comment changer le nom pour réutiliser la macro à la demande. Merci.
Sub Tracelegraphique() Range("D4:E51").Select Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Essais divers").Range("D4:E51"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Essais divers" With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With
Sub Tracelegraphique()
With ActiveSheet
.ChartObjects.Add 0&, 0&, 400&, 300&
With .ChartObjects(.ChartObjects.Count).Chart
.ChartType = xlXYScatter
.SetSourceData [D4:E51], xlColumns
With .Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With .Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
End With
End With
End Sub
Alain CROS
"joel.andre" <joel.andre7@wanadoo.fr> a écrit dans le message de news: 419a4a5a$0$18222$8fcfb975@news.wanadoo.fr...
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro.
A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le
problème.
Je ne sais pas comment changer le nom pour réutiliser la macro à la demande.
Merci.
Sub Tracelegraphique()
Range("D4:E51").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Essais
divers").Range("D4:E51"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Essais divers"
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
Sub Tracelegraphique() With ActiveSheet .ChartObjects.Add 0&, 0&, 400&, 300& With .ChartObjects(.ChartObjects.Count).Chart .ChartType = xlXYScatter .SetSourceData [D4:E51], xlColumns With .Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With .Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With End With End With End Sub
Alain CROS
"joel.andre" a écrit dans le message de news: 419a4a5a$0$18222$
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro. A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le problème. Je ne sais pas comment changer le nom pour réutiliser la macro à la demande. Merci.
Sub Tracelegraphique() Range("D4:E51").Select Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Essais divers").Range("D4:E51"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Essais divers" With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With
Pour t'aider dans le mise au point, tu peux changer le nom du graphique en sélectionnant le graphique par un clic au milieu du graph. mais pas sur un objet. Tu vois apparaître le nom Graphique105 en haut à gauche dans la fenêtre des cellules. Tu le modifies dans cette fenêtre avec le nom que tu souhaites. -- à+twinley "joel.andre" a écrit dans le message de news:419a4a5a$0$18222$
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro. A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le problème. Je ne sais pas comment changer le nom pour réutiliser la macro à la demande.
Merci.
Sub Tracelegraphique() Range("D4:E51").Select Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Essais divers").Range("D4:E51"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Essais divers" With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With
Pour t'aider dans le mise au point, tu peux changer le nom du graphique en
sélectionnant le graphique par un clic au milieu du graph. mais pas sur un
objet.
Tu vois apparaître le nom Graphique105 en haut à gauche dans la fenêtre des
cellules.
Tu le modifies dans cette fenêtre avec le nom que tu souhaites.
--
à+twinley
"joel.andre" <joel.andre7@wanadoo.fr> a écrit dans le message de
news:419a4a5a$0$18222$8fcfb975@news.wanadoo.fr...
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro.
A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le
problème.
Je ne sais pas comment changer le nom pour réutiliser la macro à la
demande.
Merci.
Sub Tracelegraphique()
Range("D4:E51").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Essais
divers").Range("D4:E51"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Essais divers"
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
Pour t'aider dans le mise au point, tu peux changer le nom du graphique en sélectionnant le graphique par un clic au milieu du graph. mais pas sur un objet. Tu vois apparaître le nom Graphique105 en haut à gauche dans la fenêtre des cellules. Tu le modifies dans cette fenêtre avec le nom que tu souhaites. -- à+twinley "joel.andre" a écrit dans le message de news:419a4a5a$0$18222$
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro. A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le problème. Je ne sais pas comment changer le nom pour réutiliser la macro à la demande.
Merci.
Sub Tracelegraphique() Range("D4:E51").Select Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Essais divers").Range("D4:E51"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Essais divers" With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With
tu peux faire défiler tous les objets du graph. avec les touches flèche haut et flèche bas
-- à+twinley "twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:%
Bonjour,
Pour t'aider dans le mise au point, tu peux changer le nom du graphique en sélectionnant le graphique par un clic au milieu du graph. mais pas sur un objet. Tu vois apparaître le nom Graphique105 en haut à gauche dans la fenêtre des
cellules. Tu le modifies dans cette fenêtre avec le nom que tu souhaites. -- à+twinley "joel.andre" a écrit dans le message de news:419a4a5a$0$18222$
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro. A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le
problème. Je ne sais pas comment changer le nom pour réutiliser la macro à la demande.
With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With
tu peux faire défiler tous les objets du graph. avec les touches flèche haut
et flèche bas
--
à+twinley
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:%23kPuCCIzEHA.1524@TK2MSFTNGP09.phx.gbl...
Bonjour,
Pour t'aider dans le mise au point, tu peux changer le nom du graphique en
sélectionnant le graphique par un clic au milieu du graph. mais pas sur un
objet.
Tu vois apparaître le nom Graphique105 en haut à gauche dans la fenêtre
des
cellules.
Tu le modifies dans cette fenêtre avec le nom que tu souhaites.
--
à+twinley
"joel.andre" <joel.andre7@wanadoo.fr> a écrit dans le message de
news:419a4a5a$0$18222$8fcfb975@news.wanadoo.fr...
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro.
A chaque lancement, une erreur apparaît. ("Graphique 105") semble être
le
problème.
Je ne sais pas comment changer le nom pour réutiliser la macro à la
demande.
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
tu peux faire défiler tous les objets du graph. avec les touches flèche haut et flèche bas
-- à+twinley "twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:%
Bonjour,
Pour t'aider dans le mise au point, tu peux changer le nom du graphique en sélectionnant le graphique par un clic au milieu du graph. mais pas sur un objet. Tu vois apparaître le nom Graphique105 en haut à gauche dans la fenêtre des
cellules. Tu le modifies dans cette fenêtre avec le nom que tu souhaites. -- à+twinley "joel.andre" a écrit dans le message de news:419a4a5a$0$18222$
Bonsoir,
Merci pour votre aide. J'ai des difficultés avec cette macro. A chaque lancement, une erreur apparaît. ("Graphique 105") semble être le
problème. Je ne sais pas comment changer le nom pour réutiliser la macro à la demande.
With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With
