[Résolu par 'Si...'] Cacher_Montrer CommandButton1

[Webperegrino]

Bonsoir Le Forum,
Voici un petit fichier dans lequel figure une cellule I8 à saisir et un CommandButton.1 qui devra être masqué ou visible selon que l'on saisit en cellule I8 le mot Webperegrino ou toto, par exemple.
Toute autre saisie, ou quand I8 est vide, cachera le CommandButton.1.

J'ai essayé avec Sheets("MENU").CommandButton1.Visible = True ou False mais cela ne donne rien.
Puis-je avoir une solution ?
Merci,
Webperegrino

 

[camarchepas]

Re : Cacher_Montrer CommandButton1

Bonjour ,

A mettre dans le module de code de la feuille Menu

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$8" Then
  If Target.Value = "Webperegrino" Then
   CommandButton1.Visible = False
     Else
   CommandButton1.Visible = True
  End If
End If
End Sub

 

[Modeste]

Re : Cacher_Montrer CommandButton1

Bonsoir Webperegrino, camarchepas 🙂

Chez moi, ce qui fonctionne, c'est

Shapes("Commandbutton1").Visible = False

... pour le reste, pareil que camarchepas (avec gestion du "toto" en plus)

 

[Si...]

Re : Cacher_Montrer CommandButton1

salut

@Modeste : chez moi (où c'est simple ) cela suffit 😉

Private Sub Worksheet_Change(ByVal Target As Range)
  CommandButton1.Visible = [I8] = "Webperegrino"
End Sub

mais, les boutons et moi ...😛

 

[Modeste]

Re : Cacher_Montrer CommandButton1

Salut 🙂

chez moi (où c'est simple ) cela suffit

Mais pourquoi tant de haine? 🙄
Plus sérieusement, pourquoi ces syntaxes différentes? Quelqu'un sait? ... Passsske moi pas! 😕

 

[Webperegrino]

Re : Cacher_Montrer CommandButton1

Bonsoir Le Forum,
Bonsoir Si..., Modeste et Camarchepas,

Nouveau fichier complété ci-joint :
J'y ai placé vos trois codes ; un seul semble marcher selon ce que j'ai copié-complété.
La solution de "SI... " veut bien fonctionner, seulement avec le dernier acteur placé dans la macro, soit ici Webperegrino, mais par pour Alain ou toto du déroulant

Pouvez-vous me dire pourquoi et que dois-je faire pour que vos trois solutions fonctionnent car elles ont intéressantes ?

En tout cas cela progresse.
Merci
Bonne soirée,
Webperegrino

 

[camarchepas]

Re : Cacher_Montrer CommandButton1

On à vraiment l'impression que le vba est d'inspiraton Française ,
chacun fait ce qu'il lui plait, et ça marche dans plein de cas .....

comme quoi , l'on est pas pret de tout connaitre ....

 

[Si...]

Re : Cacher_Montrer CommandButton1

re

à corriger

Private Sub Worksheet_Change(ByVal Target As Range)
  CommandButton1.Visible = [I8] = "toto" Or [I8] = "Alain" Or [I8] = "Webperegrino"
End Sub

à Modeste : j'aurais préféré "Mais pourquoi tant d'amour vache ? 😛"
Plus sérieusement, tout dépend de la nature des boutons, avec un Contrôle de formulaire et non un ActiveX il faudrait

Private Sub Worksheet_Change(ByVal Target As Range)
   ActiveSheet.Shapes("Bouton 5").Visible = [I8] = "toto"
End Sub

Remarque la réponse ne tient pas compte de toute autre modification comme par exemple une extension de l'évènement Change !

 

[Webperegrino]

Re : Cacher_Montrer CommandButton1

Bonjour Le Forum,
Bonjour Camarchepas, Modeste et 'Si...',

'Si...', c'est parfait : le premier code proposé en #8 fonctionne à 100 %.
Pour proposer plus court il n'y a pas mieux alors j'adopte la solution de 'Si...', sI, si !
Je remercie aussi, évidemment, Camarchepas et Modeste de s'être penchés sur le code bloqué au début.
Cordialement,
Webperegrino