Macro pour sélection des données dans un graphique

[nilessoj]

Bonsoir,

j'ai besoin d'écrire une macro qui me permet de faire un graphique à partir d'une plage de données que l'on me demandera de sélectionner au moment où j’exécuterai ma macro.
C'est à dire vis à vis de la macro ci dessous qu'au lieu de sélectionner automatiquement la plage (B55) on me demanderait de sélectionner une plage. Je ne sais pas si ma requête est très clair (je suis un archi débutant de vba)

Sub Graphique ()
 Range("B5:D5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Sauvegarde'!$B$5:$D$5")
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection(1).XValues = "='Sauvegarde'!$B$4:$D$4"
End Sub

Merci d'avance

 

[mapomme]

Re : Macro pour sélection des données dans un graphique

Bonjour nilessoj,

A partir de la seule lecture de votre code, voici le code modifié sans aucune vérification (puisque pas de fichier joint avec votre question):

Sub Graphique()
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 = xlLine
Set Zone = Zone.Offset(-1, 0)
ActiveChart.SeriesCollection(1).XValues = Zone
End Sub

 

[nilessoj]

Re : Macro pour sélection des données dans un graphique

Bonjour,

Merci beaucoup ça fonctionne à peu près.

Bonne journée