Boutons avec forme

[roby]

bonsoir le forum


j'ai cree 2 formes pour palier au bouton de controle du vba
mais je ne sais pas comment par macro les utiliser.

 

[Celeborn61]

Re : Boutons avec forme

Salut,

La fonction pour changer le texte du bouton est :
ActiveSheet.Shapes("Rectangle à coins arrondis 1").DrawingObject.Text
Donc tu change ton texte par :
ActiveSheet.Shapes("Rectangle à coins arrondis 1").DrawingObject.Text="Effacer"

ou
ActiveSheet.Shapes("Rectangle à coins arrondis 1").DrawingObject.Text="Afficher"

Tu lies avec ta macro et en début de macro :
If ActiveSheet.Shapes("Rectangle à coins arrondis 1").DrawingObject.Text="Effacer" then
ActiveSheet.Shapes("Rectangle à coins arrondis 1").DrawingObject.Text="Afficher"
Traitement ......
Else
ActiveSheet.Shapes("Rectangle à coins arrondis 1").DrawingObject.Text="Effacer"
Traitement ......
endif

 

[roby]

Re : Boutons avec forme

bonsoir le forum, celeborn61.

bien recu ta fonction. mais je testerai demain car fatigue.

merci, je te tiendrai au courant.


encore merci.

 

[roby]

Re : Boutons avec forme

bonsoir le frum, celeborn61


ok ta fonction fonctionne très bien. je te remercie.


Bonne soirée..


Roby