Macro inverse?

[Paul]

Bonjour tout le monde,
J ai realise une macro avec une case a cocher mais je connais pas le code pour faire l inverse de la macro quand la case est decochee.
Conaisez vous ce code svp?
Merci pour votre aide!

 

[PascalXLD]

Bonjour

Si je comprends bien (sinon je suis bon pour le ZOP) en fait tu fais un test si la valeur de ta case est TRUE (cochée) ou FALSE (décochée)

Bon courage

 

[Paul]

Oui c'est exactement ca mais je suis pas super bon en vba et je connais les codes a executer j essaie de bidouiller comme je peux et surtout grace a ce site que je remercie d ailleur.

En fait voila le code que j ai

Sub option_coche1

ActiveWindow.Visible = False

(en cochant la case je veux que cette macro ce lance)

Windows('VERSION BOUTON TEST FORWARD V.11.xls').Activate
Sheets('HISTO').Select
ActiveSheet.ChartObjects('Graphique 3').Activate
ActiveChart.SetSourceData Source:=Sheets('HISTO').Range('O110'), PlotBy:= _
xlColumns


et quand je la decoche c'est cette macro qui doit se lancer)

ActiveWindow.Visible = False
Windows('VERSION BOUTON TEST FORWARD V.11.xls').Activate
Sheets('HISTO').Select
ActiveSheet.ChartObjects('Graphique 3').Activate
ActiveChart.SetSourceData Source:=Sheets('HISTO').Range('O1:O10'), PlotBy:= _
xlColumns

End Sub

Le probleme c est que la macro j arrive a la relier a la case cocher mais j arrive pas a faire l operation inverse quand je la decohe.

 

[PascalXLD]

Re

Tu peux envoyer un morceau du fchier pour voir STP

En zip moins de 50 ko sans accent ni caractères spéciaux

 

[Paul]

Ok je te met un fichier test en piece jointe. [file name=test_20050406104307.zip size=6950]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050406104307.zip[/file]

 

[PascalXLD]

Re

Je t'envoies un fichier avec juste un message pour que tu vois le truc

J'ai changé tes cases à cocher de la barre formulaire par ceux de la boite à outils

Bon courage

[file name=test_20050406110822.zip size=10414]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050406110822.zip[/file]

 

[Paul]

Merci pascal, mais le seul probleme c est que je suis au boulot et je peux pas telecharger ton fichier, peux tu stp me poster les codes, avec tes modifs?

 

[PascalXLD]

Ok

Bon le point important tout d'abord c'est d'utiliser la case à cocher de la boite à outils Contrôles

ensuite une fois que tu as dessiné ton checkbox tu cliques dessus et tu le vbe qui s'ouvre et là tu peux mettre ta macro

Voici un exemple tout bête

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
MsgBox 'je suis coché'
Else
MsgBox 'je suis décoché'
End If


End Sub

 

[Paul]

Ok merci beaucoup, je vais essayer tout de suite!

Sinon par rapport a ma macro en elle meme qui est un peu 'barbare' (pas super fluide) tu saurrai pas comment faire pour fluidifeir cetre manip sans avoir a selectionner le graph, changer la selection de la serie pour le graph.... En fait un code qui se ferai la macro en arriere plan?

De toute facon je test la macro et je te tiens au courant.

 

[Paul]

Nikel chrome Pascal, ca marche parfaitement bien. Merci beaucoup pour ton aide.
A bientot, bon ap.