Rendre invisible puis visible un bouton de commande dans une feu [Résolu/Fermé]

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- - Dernière réponse : delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- 10 août 2014 à 21:23
Bonjour à toutes et à tous
J'ai une question: Peut-on rendre invisible puis visible un bouton de commande dans une feuille sous condition d'une cellule que son contenu sera affiché sur ce bouton ?
C'est-à-dire si la cellule est vide le bouton reste invisible et si cette cellule sera pleine le bouton deviendra visible et son nom c'est le contenu de cette cellule.
Est-ce possible ?

Merci d'avance pour vos idées
Afficher la suite 

1 réponse

Messages postés
14716
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2019
1171
-1
Merci
Bonjour,

code a mettre dans le VBA de la feuille et changez le nom dans le code, ici test cellule C3, a vous de changer

Private Sub Worksheet_Change(ByVal Target As Range)
'test si C3 change de valeur
If Not Application.Intersect(Target, Range("C3")) Is Nothing Then
If Target <> "" Then
'boutons visibles et valeur C3 en texte
'control activex
CommandButton1.Visible = True
CommandButton1.Caption = Target
'control de formulaire
With Worksheets("feuil1").Shapes("Bouton 2")
.Visible = msoTrue
.Select
Selection.Characters.Text = Target
End With
Else
'boutons non visibles et pas de texte
CommandButton1.Visible = False
CommandButton1.Caption = ""
With Worksheets("feuil1").Shapes("Bouton 2")
.Select
Selection.Characters.Text = Target
.Visible = msoFalse
End With
End If
End If
End Sub
delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Merci bien f894009