Rendre invisible puis visible un bouton de commande dans une feu
Résolu/Fermé
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
- Rendre un fichier moins volumineux - Guide
- Caractère invisible ✓ - Forum Word
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
10 août 2014 à 20:31
10 août 2014 à 20:31
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
10 août 2014 à 21:23