Graph à partir des cellules selctionnees

[Fab117]

Salut,
Je voudrais que ma macro fasse un graphique à partir d'une plage de cellules selectionnées par l'utilisateur (selection de la plage de cellule et démarrage de la macro).
J'ai donc utilisé l'enregistreur de macro et réalisé les opérations pour obtenir le graphe que je souhaite.
Mais malheureusement, au départ, il définit ma selection (Range("A25:H30").Select).
Quelqu'un pourrait-il svp me donner le code pour qu'il parte de ma selection où qu'elle soit (un code du style : ActiveSelection.Select) ?
Merci par avance.

Fab

 

[CB60]

Re : Graph à partir des cellules selctionnees

Bonjour
en début de macro tu peux ecrire cela,

Set choix = Application.InputBox(prompt:="Sélectionnez la plage de cellules.", _
Title:="Plage de cellules", Left:=500, Top:=300, Type:=8)
choix.Select

et faire reference à ce choix dans la création du graph

 

[Catrice]

Re : Graph à partir des cellules selctionnees

Bonjour Fab117, B60,


Ci-joint un exemple qui créé un graphique à partir de la selection effectuée par l'utilisateur.
Voir fichier joint


Sub Macro1()
Application.ScreenUpdating = False
Set MaZone = Selection
MaFeuille = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=MaZone
ActiveChart.Location Where:=xlLocationAsObject, Name:=MaFeuille
Application.ScreenUpdating = True
End Sub

 

[Fab117]

Re : Graph à partir des cellules selctionnees

Super,
Merci à vous deux.

Fab