masquer un command buton

[shakesOO]

Bonsoir a tous,
dans le cadre de mon travail, j'ai besoin de masquer ou non un "command button" selon que la cellule A1 contienne le texte "amortissable". Je n'y arrive pas alors si vous avez ne serait ce que des pistes celà maiderait beaoucoup!!🙄

 

[Cousinhub]

Re : masquer un command buton

Bonjour,

dans l'évènement de feuille (clic droit sur le nom de l'onglet, Visualiser le code)

tu entres ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Me.CommandButton1.Visible = UCase(Range("A1").Value) = UCase("Amortissable")
End If
End Sub

Ton Commandbutton ne sera visible que si tu as "amortissable" (minuscule ou majuscule peu importe)

Maintenant, si le terme "Amortissable" est issu d'une formule, il faut passer par un autre évènement :

Private Sub Worksheet_Calculate()
Me.CommandButton1.Visible = UCase(Range("A1").Value) = UCase("Amortissable")
End Sub

Bonne soirée

 

[Hulk]

Re : masquer un command buton

Hello,

Sans plus d'infos, essaie ceci

Private Sub Worksheet_Change(ByVal Target As Range)

    If [A1] = "amortissable" Then
        CommandButton1.Visible = False
    Else
        CommandButton1.Visible = True
    End If

End Sub

Cdt, Hulk.

EDIT : Slt Bh 😉... Mieux comme toujours !