Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

Graphique

Le
joel.andre
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

ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
ActiveSheet.ChartObjects("Graphique 105").Activate
ActiveWindow.Visible = False
ActiveSheet.Shapes("Graphique 105").ScaleWidth 1.23, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 105").ScaleHeight 1.33, msoFalse,
msoScaleFromBottomRight
End Sub
Lire les 3 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Alain CROS
Le #1909380
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"
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

ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
ActiveSheet.ChartObjects("Graphique 105").Activate
ActiveWindow.Visible = False
ActiveSheet.Shapes("Graphique 105").ScaleWidth 1.23, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 105").ScaleHeight 1.33, msoFalse,
msoScaleFromBottomRight
End Sub




Répondre en citant
twinley
Le #1909343
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" 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

ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
ActiveSheet.ChartObjects("Graphique 105").Activate
ActiveWindow.Visible = False
ActiveSheet.Shapes("Graphique 105").ScaleWidth 1.23, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 105").ScaleHeight 1.33, msoFalse,
msoScaleFromBottomRight
End Sub




Répondre en citant
twinley
Le #1909342
tu peux faire défiler tous les objets du graph. avec les touches flèche haut
et flèche bas

--
à+twinley
"twinley" 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" 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

ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
ActiveSheet.ChartObjects("Graphique 105").Activate
ActiveWindow.Visible = False
ActiveSheet.Shapes("Graphique 105").ScaleWidth 1.23, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 105").ScaleHeight 1.33, msoFalse,
msoScaleFromBottomRight
End Sub








Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme