Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel vb probleme de boutton

vb probleme de boutton

1 réponse
Avatar
jack
le probleme no1 : 2 boutons je voudrais qu'il ne fonctionne qu'une seule
fois et non pas a chaque que l'on clique dessus

problème n02 : le premier graph fonctionne, mais si je selectionne les 2
box, le second ne fonctionne pas... ou es l'erreur ?


merci de votre aide


Private Sub box1_Click()
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues =
Worksheets("Feuil1").Range("a10:a21")
ActiveChart.SeriesCollection(1).Values =
Worksheets("Feuil1").Range("B10:B21")
ActiveChart.SeriesCollection(1).Name =
Worksheets("Feuil1").Range("B9:B9")

End Sub

Private Sub box2_Click()
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues =
Worksheets("Feuil1").Range("a10:a21")
ActiveChart.SeriesCollection(1).Values =
Worksheets("Feuil1").Range("c10:c21")
ActiveChart.SeriesCollection(1).Name =
Worksheets("Feuil1").Range("c9:c9")
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Emcy
Bonjours jack,

pour le bouton, voivi une solution :
Private Sub bouton1_Click()

MsgBox ("le bouton va être désactivé")
bouton1.Enabled = False 'désactive le bouton

End Sub

ça te va ?

"jack" a écrit dans le message de
news:
le probleme no1 : 2 boutons je voudrais qu'il ne fonctionne qu'une seule
fois et non pas a chaque que l'on clique dessus

problème n02 : le premier graph fonctionne, mais si je selectionne les 2
box, le second ne fonctionne pas... ou es l'erreur ?


merci de votre aide


Private Sub box1_Click()
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues > Worksheets("Feuil1").Range("a10:a21")
ActiveChart.SeriesCollection(1).Values > Worksheets("Feuil1").Range("B10:B21")
ActiveChart.SeriesCollection(1).Name > Worksheets("Feuil1").Range("B9:B9")

End Sub

Private Sub box2_Click()
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues > Worksheets("Feuil1").Range("a10:a21")
ActiveChart.SeriesCollection(1).Values > Worksheets("Feuil1").Range("c10:c21")
ActiveChart.SeriesCollection(1).Name > Worksheets("Feuil1").Range("c9:c9")