Bouton de contrôle avec macro

Question

J'ai créé un bouton de contrôle pour un UserForm et je lui ai aussi associé une macro.

Je me rend compte que ça ne fait pas ce que je veux, il n'y a aucune association entre les deux.

Maintenant, je veux supprimer ce bouton de contrôle. Pas capable. Dans l'onglet "Développeur", en cliquant "Mode création" de "Contrôles", ça ne met pas le bouton en mode modification. Si je le clique, la macro s'exécute toujours. Et la documentation dans "Aide"????????

Alors, quelqu'un peut me dire comment supprimer un bouton de contrôle contenant une macro (sans supprimer la macro, il va sans dire) ou comment dissocier une macro d'un bouton de contrôle.

Merci de me renseigner.

Michel Brodeur

Answer 1

La seule chose que fasse Macro6, c'est de décharger le classeur. Donc si le userform se ferme, c'est que Macro6 s'exécute. Pour la fermeture avec CheckBox1 :

Private Sub CommandButton1_Click()

'Choix

    If Me.CheckBox1.Value = True Then

        Range("J20") = "Active"

        Unload Me

    Else

        Range("J20") = "Inactive"

      Macro6

    End If

End Sub

Sub Macro6()

    Unload Me

End Sub

Daniel

Answer 2

Daniel,

Ça marche pour le CheckBox1 mais il n'y a pas de Unload.

La balance n'a pas marché pcq j'ai oublié un truc.

Il faut que CheckBox 2 affiche aussi son choix. 

Alors, je corrige :

Private Sub CommandButton1_Click()

'Choix

    If Me.CheckBox1.Value = True Then

        Range("J20") = "Active"

    Else

        Range("J20") = "Inactive"

      Macro6

    End If

End Sub

Sub Macro6()

    Unload Me

End Sub

Ça marche pas plus. La macro ne démarre pas. Et le Unload fonction pour CheckBox 2 mais pas si c'est CheckBox 1 qui est choisi.

Qu'en penses-tu?

Michel

Answer 3

Bonjour,

Essaie :

Private Sub CommandButton1_Click()

'Choix

    If Me.CheckBox1.Value = True Then

        Range("J20") = "Active"

    Else

      Macro6

    End If

End Sub

Sub Macro6()

    Unload Me

End Sub

Daniel

Answer 4

Bonjour Daniel,

J'ai essayé les différents trucs sans succès. Heureusement, je faisais mes essais dans une copie de travail. Je l'ai détruite.

Ce que je tente de faire c'est d'afficher un UserForm pour faire un choix. Si CheckBox1 est coché, on affiche dans al cellule C20. Sinon, (donc c'est le CheckBox 2 qui est coché) on exécute la macro6.

Mon UserForm s'affiche mais mon code ne fonctionne pas. Ça prend un End Sub, faut déplacer le EndIf, etc,etc, ça finit plus.

Peux-tu m'aider.

Merci 

Michel

Private Sub CommandButton1_Click()

    'Choix    

    If ClickBox1 Then

        Range(J20) = "Active"        

    Else

Sub Macro6()

    Unload Me    

    End If        

End Sub

Answer 5

Bonjour,

Le bouton est bien sur la feuille. Pour plus de sécurité, recopie la macro dans un autre classeur (ou dans le bloc-notes) ou encore, fais une copie de ton classeur. Si la macro s'exécute en mode création, c'est parce qu'il s'agit d'un contrôle ActiveX, mais d'un contrôle de formulaire. Si tu fais un clic droit dessus, tu n'as pas de choix "propriétés", contrairement à un bouton ActiveX.

Si tu ne peux pas le supprimer, vérifie que la feuille n'est pas protégée. Sinon, c'est peut-être parce que le texte du bouton est en mode modification.

Essaie de cliquer hors du bouton, puis fais un clic droit dans le bouton et clique sur "Couper".

Cordialement.

Daniel