Executer une fonction à partir d'un CheckBox

Bonjour,

J'ai une fonction qui fait à appel à l'utilisateur pour selectionner une plage de données en autre. Je cherche une methode pour reproduire le même code quand je coche ou déchoche ma checkbox. avez-vous une idée ?

laurent

Bonjour Laurent

Je ne suis pas sur de bien comprendre ta question... est-ce que tu cherches un code pour activer ta fonction quand l'utilisateur coche ou décoche le checkbox, dans ce cas tu n'as qu'a entrer ton code dans l'événement suivant

Private Sub CheckBox1_Change()
    MsgBox "allo"
End Sub

Envoie nous ton fichier, ça peut aider.

l'idée est que lors du clic sur la checkbox:

• demander à l'utilisateur une plage source de cellule (comme une fonction classique)
• demander à l'utilisateur une plage destination de cellule
• faire la copie de toute la plage source vers la destination

Math a écrit :

Bonjour Laurent

Je ne suis pas sur de bien comprendre ta question... est-ce que tu cherches un code pour activer ta fonction quand l'utilisateur coche ou décoche le checkbox, dans ce cas tu n'as qu'a entrer ton code dans l'événement suivant

Private Sub CheckBox1_Change()
    MsgBox "allo"
End Sub

Envoie nous ton fichier, ça peut aider.

Ok ça devrait ressembler à ça

Private Sub CheckBox1_Click()
    Dim PlageSource, PlageDestination As Range

    Set PlageSource = Application.InputBox("Sélectionnez la plage source", Type:=8)
    Set PlageDestination = Application.InputBox("Sélectionnez la plage destination", Type:=8)

    PlageSource.Copy
    PlageDestination.PasteSpecial xlPasteAll
End Sub