Rendre invisible puis visible un bouton de commande dans une feu
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
A voir également:
- Rendre invisible puis visible un bouton de commande dans une feu
- Invite de commande - Guide
- Clé usb invisible - Guide
- Commande terminal mac - Guide
- Comment rendre un fichier moins lourd - Guide
- Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
1 réponse
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
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
Utilisateur anonyme
Merci bien f894009