Checkbox Activex

Bonjour à tous,

Je souhaite utiliser une checkbox activex pour un formulaire dans excel. Je souhaite que la feuille soit protégée et que la checkbox soit lié à une cellule. Jusqu'ici tout va bien.

Je souhaite également que la cellule liée soit protégé contre les modifications. J'ai donc une macro qui se déclenche au click et qui comprends:

- La dé-protection de la feuille

- Le déverrouillage de la cellule liée

- Une action

- Remise en place des protections cellule et mdp.

Hors, quand je clique sur la checkbox, je reçois un message d'erreur. Après avoir cliqué sur ok, la macro se déroule correctement. Ce qui pose problème, c'est que excel essaie de modifier la cellule liée avant la macro. On le voit bien car la cellule liée de change pas de valeur.

Est-il possible d'enlever le verrouillage d'une cellule avant?
Voici un fichier test pour illustrer ma difficulté.

D'avance, merci pour votre aide.

Bonjour Goems,

En retour ton fichier avec le code corrigé.

La cellule liée n'est jamais protégée mais cachée par le checkBox.

D'autres cas sont aussi possibles. Comme l'interdiction de se positionner sur la cellule liée.

Merci beaucoup. Ça fonctionne super bien comme ça.

Belle journée.

Goems

Bonjour,

Bonjour X Cellus,

Une autre ?

Private Sub Test1_Click()
    With Me
        .Unprotect
        .Range("D8").Value = Me.Test1.Value 'D8=Locked
        .Protect userinterfaceonly:=True
    End With
End Sub

A nouveau,

Bonjour Jean-Eric,

Une autre ?

Exact, à conseiller et plus simple à mettre en œuvre si l'on n'a pas l'utilité de copier la valeur de la cellule liée pour une raison particulière.

Bonjour Jean-Eric,

Merci beaucoup pour le code. Malheureusement, je n'arrive pas à le mettre en œuvre. Serait-il possible de m'envoyer une version mise à jour du fichier test svp ?

D'avance, merci.

Goems

Re,

Un exemple !?
Cdlt.

Merci, j'ai compris maintenant.

Je pensais que l'option cellule liée devait rester active dans les propriétés de l'objet. Maintenant je comprends mieux.

Bel après-midi.

Goems

Re,