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

nilessoj

XLDnaute Nouveau
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:D5) 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)

Code:
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

XLDnaute Barbatruc
Supporter XLD
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):
VB:
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
 

Discussions similaires

Réponses
0
Affichages
206

Statistiques des forums

Discussions
312 931
Messages
2 093 721
Membres
105 796
dernier inscrit
Max...26