Microsoft 365 Afficher Masquer un bouton

Dranreb

XLDnaute Barbatruc

• 11 Septembre 2022

• #2

Bonjour.
Essayez comme ça dans le module Feuil17 :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Septembre 2022

• #3

Bonjour

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Septembre 2022

• #4

Et donc pour le côté invisible

VB:

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... 😉)

 

Vote positif 0 Vote négatif

D

danpom302

Guest

• 12 Septembre 2022

• #5

Bonjour à vous tous,

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

Bonne journée,

Danpom302

 

Vote positif 0 Vote négatif

S

supertos

Guest

• 10 Octobre 2022

• #6

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 ?

 

Pièces jointes

• Masquer afficher Bouton.xlsm

  23.6 KB · Affichages: 2

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 10 Octobre 2022

• #7

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

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

 

Pièces jointes

• Masquer afficher Bouton (1).xlsm

  24.1 KB · Affichages: 3

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Octobre 2022

• #8

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".

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 10 Octobre 2022

• #9

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

 

Vote positif 0 Vote négatif