Microsoft 365 Organiser un graphe en VBA

Pernin à dit:

Bonjour,

Je débute en VBA, donc je fais souvent appel à vous (mais toujours après une longue session de recherche), excusez moi pour cela...

Je souhaite réaliser un bouton qui puisse lancer une macro qui afficherait un graphe selon un tableau, et selon un critère. Pour cela j'ai réalisé un code, je me suis inspiré de plusieurs choses trouvées sur internet. Tout peut être modifié.

Le code fonctionne mais m'affiche un graphe dont les axes x et y sont inversés... Rien de très méchant, je sais le modifier manuellement, mais j'aimerai (pour la satisfaction d'avoir un bel outil) ne pas avoir à le faire. De plus j'aimerai que le nom des lignes se retrouvent dans le graphe... On le retrouve dans les colonnes mais pas les lignes .

Vous retrouverez un fichier anonyme pour vous aider ! Si vous avez la moindre piste de solution, n'hésitez pas je suis preneur !

Je vous remercie pour le temps accordé !

Passez une excellente journée.

Cordialement,
Greg

Cliquez pour agrandir...

vgendron à dit:

Hello
Dans la mesure où tu ne spécifies qu'une colonne de données pour ton graphique, excel en fait directement une série de données y
pour créer ton graphique comme tu le souhaites, utilise l'enregistreur de macro pour voir le code à récuperer et adapter

en attendant, je me suis permis de simplifier ton code

VB:

Sub Book4CréationGraphiqueIntégréAvecChartObject()

Dim Graph As ChartObject
Dim n
Dim graphiqueIntégré As ChartObject

With ActiveSheet
    If .ChartObjects.Count > 0 Then 'si il y a un graphique
        .ChartObjects.Delete 'on efface tous les graphiques
    End If
    n = .Range("R4").Value
    Set graphiqueIntégré = .ChartObjects.Add(Left:=800, Width:=380, Top:=80, Height:=200)
    graphiqueIntégré.Chart.SetSourceData Source:=.Range(n & "1:" & n & "70")
End With
End Sub

Cliquez pour agrandir...

vgendron à dit:

Hello
Dans la mesure où tu ne spécifies qu'une colonne de données pour ton graphique, excel en fait directement une série de données y
pour créer ton graphique comme tu le souhaites, utilise l'enregistreur de macro pour voir le code à récuperer et adapter

en attendant, je me suis permis de simplifier ton code

VB:

Sub Book4CréationGraphiqueIntégréAvecChartObject()

Dim Graph As ChartObject
Dim n
Dim graphiqueIntégré As ChartObject

With ActiveSheet
    If .ChartObjects.Count > 0 Then 'si il y a un graphique
        .ChartObjects.Delete 'on efface tous les graphiques
    End If
    n = .Range("R4").Value
    Set graphiqueIntégré = .ChartObjects.Add(Left:=800, Width:=380, Top:=80, Height:=200)
    graphiqueIntégré.Chart.SetSourceData Source:=.Range(n & "1:" & n & "70")
End With
End Sub

Cliquez pour agrandir...

Et concernant le nom des éléments qui composent le graphique, tu as des idées ?

Cliquez pour agrandir...