Problème VBA Graphique

[nilessoj]

Bonjour,

j'ai un problème avec une macro dans un dans mon fichier excel. Quand je clique sur le bouton qui ressemble à un sac à patates la macro "graph" s'effectue et demande à l'utilisateur de sélectionner une plage de données pour réaliser un graphique. La sélection doit se faire en ligne en prenant en compte le nom de la ligne pour le titre du graphique, or la macro met ce qui devrait être le titre du graphique en abscisse. Mon problème vient du fait que je n'ai aucune idée de comment faire pour que la première cellule sélectionnée corresponde au titre du graphique et ne soit pas pris en compte dans les données même du graphique.

Merci d'avance pour votre aide 🙂

 

[tototiti2008]

Re : Problème VBA Graphique

Bonjour nillesoj,

Peut-être parce que c'est un sac à patates ? 😉

Non, essaye comme ça (je n'ai changé que la dernière ligne du code)

Sub graph()
'
' graph Macro
'
Dim Zone As Range

On Error Resume Next
Set Zone = Application.InputBox("sélectionner la zone pour le graphique SVP.", Type:=8)
On Error GoTo 0
If Zone Is Nothing Then
   MsgBox "Pas de zone sélectionnée => abandon."
   Exit Sub
End If

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Zone
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SeriesCollection(1).XValues = "=Sauvegarde!$B$4:$E$4"
    
    
    
End Sub

 

[nilessoj]

Re : Problème VBA Graphique

Merci ça fonctionne parfaitement et c'est beaucoup plus simple que tout ce que j'ai tenté pour résoudre le problème 🙂

Bonne soirée