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 (B5😀5) 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 🙂