Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

CommandButton Enabled

B

Bout

Guest
Hello, je veux désactiver un bouton à l'ouverture du classeur.
Le bouton n'est pas sur un UserForm mais sur une feuille de calcul.
J'ai lu tout les post sur les boutons et la je comprend pas pourquoi ca marche pas.

Je RÉUSSI a mettre un bouton invisible à l'ouverture avec cette fonction.

Private Sub Workbook_Open()
ActiveSheet.Shapes("commandbutton2").visible = False
End Sub


Mais j'arrive pas à seulement désactiver le bouton avec ceci.

Private Sub Workbook_Open()
ActiveSheet.Shapes("commandbutton2").Enabled = False
End Sub

et oui j'ai essayer ceci mais rien n'a marcher.
Private Sub Workbook_Open()
commandbutton2.enabled = false
End Sub

Private Sub Workbook_Open()
ActiveSheet.commandbutton2.enabled = false
End Sub


Pourquoi ca marche avec visible et pas avec enabled ???
 
J

Jocelyn

Guest
bonjour le forum,
bonjour Bout,

Je ne sais pas exactement laquelle des trois expressions est la bonne mais si tu les essaies avec :

enabled = true au lieu de falseje pense que cela devrait marché

A+
Jocelyn
 
M

michel

Guest
bonjour Bout , bonjour Jocelyn

Bout , je te proproses deux solutions en fonction du tye de bouton utilisé :


s'il s'agit d'un bouton formulaire :
ActiveSheet.Shapes("Bouton 2").OLEFormat.Object.Enabled = False

s'il s'agit d'un bouton de la boite de controles :
ActiveSheet.OLEObjects("commandbutton1").Enabled = False



bon apres midi
MichelXld
 
B

Bout

Guest
Re-bonjour

Jocelyn, Aucune des 3 expression fonctionne. Je voulais dire que je les avait essayer. et je veux désactiver le bouton, donc, enabled = false.


Michel, c'est un bouton de type formulaire.
J'ai essayer
ActiveSheet.Shapes("nom du bouton").OLEFormat.Object.Enabled = False

Je n'ai aucun message d'erreur maisle bouton n'est pas grisé. Donc ca fonctionne pas. J'ai testé autant dans l'evènement workbook_open que dans une simple macro et ca ne change rien.
 
M

michel

Guest
rebonjour Bout

peux tu placer sur le forum un fichier zippé contenant le bouton en question

sinon es tu sur du nom que tu as saisi ( en pensant aux espaces), car chez moi cela fonctionne sans soucis


en attendant je te souhaite une bonne soirée
MichelXld
 
B

Bout

Guest
Re-bonjour

Michel, désolé t'avais raison.
Oui ca marche, le bouton est désactivé...

mais le veux aussi qu'il soit grisé (que ce soit un peu visuel donc pour le l'utilisateur essayer pas de cliquer dessus sans comprendre pourquoi ca fair rien)... (comme moi j'ai faite avant de comprendre qu'il etait vraiment désactivé)...

et aussi, la première ligne de code que j'ai décrit dans mon premier post pour rendre le bouton visible = false fonctionne très bien. Quelqu'un sait-il pourquoi enabled est si compliqué alors que le visible se fait très facilement?

Anyway, donc oui
ActiveSheet.Shapes("nom du bouton").OLEFormat.Object.Enabled = False
réussi a désactivé le bouton, mais comment peut-on rendre ca visuel que le bouton est inactif (grisé).
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…