Microsoft 365 Afficher Masquer un bouton

[danpom302]

Bonjour à tous,

Je recherche une macro qui :

Si la cellule F1 = R, le bouton 6 se masque.
Si la cellule F1 = C, le bouton 6 s'affiche.

S.v.p., voir le fichier ci-joint.

Note : J'ai essayé plusieurs codes et rien ne fonctionne. Problème de compréhension 🙁

Merci pour votre aide 🙂,

Dan

 

[Dranreb]

Bonjour.
Essayez comme ça dans le module Feuil17 :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$F$1" Then Me.Shapes("Bouton 5").Visible = Me.[F1].Value = "C"
   End Sub

 

[Staple1600]

Bonjour

Ce petit bout de code (à mettre dans le code de la feuille concernée) fonctionne chez moi

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
CommandButton1.Enabled = Range("F1") = "F"
End If
End Sub

 

[Staple1600]

Et donc pour le côté invisible

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
CommandButton1.Visible = Range("F1") = "F"
End If
End Sub

Puisque tu parles de Bouton6, il faudra tester avec CommandButton6
(en espérant bien sûr que... 😉)

 

[danpom302]

Bonjour à vous tous,

Merci pour vos réponses. Tout fonctionne comme je le veux.

Bonne journée,

Danpom302

 

[supertos]

Bonjour, ce sujet m'intéresse, j'ai donc à mon tour copier le code proposé.
Cependant cela ne fonctionne pas.
SI on tape une autre lettre ou rien le bouton devrait disparaitre ou c'est moi qui n'ai pas compris quelque chose ?

 

[Eric C]

Bonjour le forum
Bonjour le fil "déterré"

Essaye avec ce fichier .
Bonne après-midi
@+ Eric c

 

[Dranreb]

Bonjour.
Les Sub Worksheet_Change se mettent dans des modules d'objets Worksheet, pas dans des modules standard.
Essayez dans le Feuil17 (Contrat commercial) ma solution proposée au #2, car elle s'appuie sur la valeur "C", et non "F".

 

[Eric C]

Re le fil

@Dranreb - Bonjour - Oui, c'est le code que j'ai mis en ligne pour répondre à supertos (Bienvenue sur ce forum.... j'avais oublié).
@+ Eric c