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 Graphique (bis)

Graphique (bis)

1 réponse
Avatar
joel.andre
Grand merci à Alain CROS et à Twinley.

La macro fonctionne maintenant. Par contre, j'ai voulu remplacer l'espace
plage [D4:E51] par une variable contenant l'espace plage modulé en fonction
de certains critères:

Sub Tracelegraphique()

Espaceplage = "D" & Débutespace & ":E" & Finespace

With ActiveSheet
.ChartObjects.Add 0&, 0&, 400&, 300&
With .ChartObjects(.ChartObjects.Count).Chart
.ChartType = xlXYScatter
.SetSourceData [Espaceplage], 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

A chaque fois erreur... Où est la mienne?

Comment peut-on changer le format des caractères des valeurs inscrites sous
les axes?

Merci pour votre patience et vos conseils.
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
Alain CROS
Bonjour.

Sub Test()
Tracelegraphique 1&, 10&
End Sub

Sub Tracelegraphique(Deb&, Fin&)
Dim Espaceplage As Range
Set Espaceplage = Range("D" & Deb & ":E" & Fin)
With ActiveSheet
.ChartObjects.Add 0&, 0&, 400&, 300&
With .ChartObjects(.ChartObjects.Count).Chart
.ChartType = xlXYScatter
.SetSourceData [Espaceplage], xlColumns
With .Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
With .TickLabels.Font
.FontStyle = "Gras"
.Size = 16&
.ColorIndex = 3&
End With
End With
With .Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
With .TickLabels.Font
.Name = "Book Antiqua"
.Strikethrough = True
.Underline = xlUnderlineStyleDouble
End With
End With
End With
End With
Set Espaceplage = Nothing
End Sub

Alain CROS

"joel.andre" a écrit dans le message de news:
Grand merci à Alain CROS et à Twinley.

La macro fonctionne maintenant. Par contre, j'ai voulu remplacer l'espace
plage [D4:E51] par une variable contenant l'espace plage modulé en fonction
de certains critères:


Comment peut-on changer le format des caractères des valeurs inscrites sous
les axes?

Merci pour votre patience et vos conseils.