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

Signaler
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
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

1 réponse

Messages postés
15356
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
30 septembre 2020
1 367
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
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
Merci bien f894009