Boutton d'éxécution

[PAKETASS]

Bonjour j'ai crée un procédure permattant de tracer une courbe, mais je voulais un boutton "tracer" dans ma feuille xls qui permet d 'exécuter directement.
merci

 

[p.pat27]

Re : Boutton d'éxécution

Bjr PAKETASS

Pour excécuter ta Sub depuis ta feuille, tu dois créer un bouton sur celle ci et y rattacher ta Sub.
sous Vba, Dans ta feuille qui contient ton bouton tu met le code

Private Sub CommandButton1_Click() (ici le nom de ton bouton)
Call Tracer_courbe (là le nom de ta procédure )
End Sub

A+

 

[PAKETASS]

Re : Boutton d'éxécution

Pour tracer le graphe j'ai ca:
Sub Graphique()
Dim Graph As ChartObject

With ActiveWorkbook.Worksheets(5)
Set Graph = .ChartObjects.Add(200, 200, 400, 200)
End With
With Graph.Chart
.SetSourceData Worksheets(5).Range("B2: D14")
.HasTitle = True
.ChartTitle.Text = "Pilotage et Rework"
End With

End Sub

 

[PAKETASS]

Re : Boutton d'éxécution

au fait g utilisé un userform pour y rajouter le call Graphique ca marche une fois ,mais si je ferme la fenetre le bouton disparait à la prochaine réouverture.
Je voulais un boutton qui s'affiche de façon continue sur la feuille xls.

 

[mécano41]

Re : Boutton d'éxécution

Bonjour,

Dans ta feuille, tu fais :

- affichage
- barres d'outils
- boîte à outils contrôles
- si "l'équerre" du mode création n'est pas encadrée, cliquer dessus
- faire un clic sur l'icône "bouton de commande"
- tracer le bouton, aux dimensions voulues, avec la souris (en maintenant le bouton gauche appuyé)
- faire un clic droit sur ce bouton
- cliquer "Propriétés
Pour nommer éventuellement ce bouton :
- changer le nom en première ligne
Pour mettre un titre sur ce bouton
- modifier le texte de "Caption"

Pour créer le Sub correspondant :
- double-clic sur le bouton (on part dans le VBE)

- revenir dans la feuille et cliquer de nouveau sur l'équerre du mode création

Le bouton est actif.

Tu mets ta routine VBA dans le Sub créé et tout va bien ... si je n'ai rien oublié...

Cordialement

 

[PAKETASS]

Re : Boutton d'éxécution

ca marche perfect .
Merci bcoup