masquer bouton pour lancer macro selon résultat cellule

[wrap food]

Bonjour le forum

existe t il un moyen de masquer un bouton qui lance une macro selon le resultat qui ce trouve dans
une cellule (la cellule peut contenir un chiffre ou 0).

j 'aimerais que si la cellule cible est égal a zero le bouton apparaise et si la valeur de la cellule est suppérieur a zero le bouton n apparaise pas

par avance merci de votre aide

 

[jpb388]

Re : masquer bouton pour lancer macro selon résultat cellule

Bonjour
Essaye cela

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$5" Then Exit Sub
    If Range("d5") < 1 Then
        Me.CommandButton1.Visible = True
    Else
        Me.CommandButton1.Visible = False
    End If
End Sub

a+

 

[wrap food]

Re : masquer bouton pour lancer macro selon résultat cellule

bonjour, jpb388

meri d'avoir pris un peut de emps pour répondre a ma question.

Sauf erreur de saisie ou mauvais placement du code , cela ne fonctionne pas.

je mets un ficfier pour exemple au cas au cela pourrais vous aider.

merci encore

 

[mth]

Re : masquer bouton pour lancer macro selon résultat cellule

Bonsoir à tous 🙂

Si c'est une macro évènementielle qui doit se déclencher, on peut essayer ceci:

    If Target.Address = "$D$5" And Target.Count = 1 Then
        If Target.Value < 1 Then
            Shapes("Bouton 1").Visible = True
        Else
            Shapes("Bouton 1").Visible = False
        End If
    End If

Ceci dit je ne vois pas l'intéret, car la macro évènementielle de ton fichier renvoie vers un autre onglet, donc on ne voit de toute façon plus le bouton.
Sourire ... ce qui veut sans doute dire que je n'ai pas compris 🙂

Peut-tu préciser quelle cellule doit provoquer l'apparition ou disparition du bouton quand elle est à zéro?

Bonne soirée,

mth

 

[jpb388]

Re : masquer bouton pour lancer macro selon résultat cellule

re
il faut prendre le bouton de la barre d'outil "boite à outils contrôles "
a+

 

[wrap food]

Re : masquer bouton pour lancer macro selon résultat cellule

re, jpb388

j 'ai essayé en creant bouton de la barre d'outil "boite à outils contrôles ", mais ça ne fonctionne pas .

je suis perdue ....

je vous joint le fichier avec le bonton créé au cas au j aurais fait une erreur de code

merci de votre aide

 

[Pierrot93]

Re : masquer bouton pour lancer macro selon résultat cellule

Bonjour,

j 'ai essayé en creant bouton de la barre d'outil "boite à outils contrôles ", mais ça ne fonctionne pas .

perso dans ton fichier je ne vois que le "bouton1" qui semble t il vient de la barre d'outils "formulaire"....

bonne journée
@+

 

[wrap food]

Re : masquer bouton pour lancer macro selon résultat cellule

re

j 'ai changé le fichier est ce les bons boutons ??

merci de votre aide

 

[Pierrot93]

Re : masquer bouton pour lancer macro selon résultat cellule

Re,

essaye comme ceci, à placer dans le modulede la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$5" Then Exit Sub
Me.CommandButton1.Visible = Target.Value < 1
End Sub

 

[jpb388]

Re : masquer bouton pour lancer macro selon résultat cellule

Bonjour
le classeur #8 est le bon avec le bouton 2
mais il faut que la cellule d5 soit <1 il devient visible sinon invisible
a+