bouton activex

Question

Bonjour,

Je cherche à faire une macro qui me permet d'afficher un ou deux boutons en fonction du résultat de deux cellules.

Je m'explique:
- si cellule b3<>0 ou b3 <> "" d'une feuille alors afficher le bouton_1
- si cellule a3=0 ou a3 <> "" d'une feuille alors afficher le bouton_2.

Merci de votre aide

f894009 · Answer

Bonjour,

Code a mettre dans VBA de la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
        If Range("A3") <> "" Then
            CommandButton1.Visible = True
        Else
            CommandButton1.Visible = False
        End If
    ElseIf Not Application.Intersect(Target, Range("B3")) Is Nothing Then
        If Range("B3") <> "" Then
            CommandButton2.Visible = True
        Else
            CommandButton2.Visible = False
        End If
    End If
End Sub

Bouton activex

1 réponse

Discussions similaires

Newsletters