XL 2010 Interdire un Select par case à cocher

[Orson83]

Bonjour le forum,
Je souhaiterai ajouter une case à cocher qui permettrait d'interdire l'utilisation d'un Select.
En effet, une fois le choix effectuer dans le Select (case décochée), une case à cocher permettrait de sécuriser ce choix.
Je joins un fichier exemple dans ce message.
Merci pour votre aide.
Tchotchodu31

 

[job75]

Bonjour Tchotchodu31,

Affectez cette macro à la case à cocher :

Sub Verrouiller()
Deproteger
With [E8]
    .Validation.Delete
    If .Parent.Shapes("caseacocher").ControlFormat = xlOn Then
        .Locked = True
    Else
        .Locked = False
        .Validation.Add xlValidateList, Formula1:="Je suis d'accord,Je suis partagé,Je ne suis pas d'accord"
    End If
End With
Proteger
End Sub

A+

 

[Orson83]

Bonjour job75,
Merci pour le temps passé et cette macro qui fonctionne très bien.
Très belle journée.
Tchotchodu31