Afficher bouton ou image selon valeur d'une cellule
Bonjour,
Mon projet :
Avoir un bouton ou une image reliée à ma Macro1 qui s'affiche si la cellule A1 affiche "CHAMP INCOMPLET". Or, si A1 n'affiche rien, mon bouton ou mon image reliée à ma Macro1 soit invisible et donc inactif.
Comment puis-je afficher et faire disparaitre un bouton en fonction de la valeur d'une cellule …??
Merci pour votre aide les amis :)
Salut Excelleur,
début de solution...
Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, Range("A1")) Is Nothing Then _
Me.cmdGO.Visible = IIf([A1] = "CHAMP INCOMPLET", True, False)
'
End Sub
A+
Bonjour,
Quelque chose comme ça ? :
Private Sub Workbook_Open ()
Application.ScreenUpdating = False
CommandButton1.Visible = False
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("Feuil1").Cells(1,1).Value = "CHAMP INCOMPLET" Then
CommandButton1.Visible = True
End If
End SubA Essayer.. Pas testé
curulis57 Merci pour ta réponse !
Je rentre ce code où ?
Salut Excelleur,
Salut Evan,
tu colles ce code dans le module VBA de la feuille qui reçoit l'information en [A1].
Attention : si c'est une formule en [A1], ça ne fonctionnera pas en l'état et il faudra adapter le code dans le style de ce que Evan a fait.
A+
Et pour finir de compléter la réponse de curulis, voici le fichier qui le fait.