Bouton de commande afin de lancer un graphique

  • Initiateur de la discussion Initiateur de la discussion PAULUX
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

PAULUX

Guest
<HTML>Bonjour à tous,

Je me lance dans les macros sous excel et Je cherche le moyen de faire apparaître un graphique du style courbe en cliquant sur un bouton de commande dans une feuille de calcul.

Peut-on me filer un coup de main ?

Merci d'avance.

Paulux</HTML>
 
<HTML>Voici les codes, à vous d'adaptez les cellules à sélectionnées
pour l'exemple ci-dessous
la rangée de cellules est (B6:K11)


Sub graphique()
'
' Macro1 Macro
' Macro enregistrée le 01/03/2002 par ROBERT
'

'
Range("B6:K11").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("client").Range("B6:K11"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="client"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Michel C0001 14 rue du pont 10564 Nogent sur seine 03 25 39 78 45 03 25 39 78 46"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

End Sub




N'hésitez pas à visitez mon site www.utilsfr.fr.fm où d'autres programmes sont disponibles</HTML>
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
32
Affichages
1 K
Retour