XL 2010 Interdire un Select par case à cocher

Orson83 · 17 Novembre 2020

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 · 17 Novembre 2020

Bonjour Tchotchodu31,

Affectez cette macro à la case à cocher :

VB:

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+

job75 · 17 Novembre 2020

Bonjour Tchotchodu31,

Affectez cette macro à la case à cocher :

VB:

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 · 17 Novembre 2020

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

XL 2010 Interdire un Select par case à cocher

Orson83

XLDnaute Impliqué

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

Orson83

XLDnaute Impliqué

Discussions similaires

XL 2010 Interdire un Select par case à cocher

Orson83

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Orson83

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency