Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

[maho_7]

Bonjour,

Je souhaite réaliser un questionnaire sur lequel les utilisateurs vont devoir répondre avec des listes de choix déjà pré-remplies.
Certaines de mes questions sont liées les unes aux autres.
Afin que cela soit plus facile à comprendre, je joins un fichier test.
Si par exemple la question 1 et la question 2 sont liées, j'aimerai que lorsque l'utilisateur choisisse "Non" en réponse à la question 1, il ne puisse plus avoir accès à la question 2 et que celle-ci affiche automatiquement "X" dans la liste déroulante.
En revanche, s'il choisit "Oui" à la question 1, alors il peut choisir sa réponse en question 2.

Merci pour votre aide.

 

[Compte Supprimé 979]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

Salut Maho7

Heuuu, le fichier envoyé fait exactement ce que tu veux ...
Ou alors je n'ai rien compris 😕

A+

 

[maho_7]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

Non, il verrouille juste la liste de choix mais si on a mis une autre réponse avant il la laisse.
J'aimerais qu'il mette automatiquement "X" en la verrouillant.

 

[Compte Supprimé 979]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

Re,

Ok je comprends mieux 😉

Il va falloir passer par VBA, à mon avis, tu connais ?

A+

 

[maho_7]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

Non, absolument pas !!
C'est pour ça qu'un petit coup de pouce m'enlèverait une belle épine du pied...

 

[Compte Supprimé 979]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

Re,

Alors pour entrer dans le code, tu fais ALT+F11
Là, tu double cliques sur "Feuil1 (Feuil1)" dans la partie gauche (si tu ne vois pas cette partie : CTRL+R)

Tu remplaces tout le code par

Private Sub Worksheet_Change(ByVal Target As Range)  'à l'édition dans l'onglet
  If Target.Address <> "$C$3" Then Exit Sub  'si l'édition se fait ailleurs qu'en C3, sort de la procédure


  ' Pour tout changement de la cellule C3, mettre un X dans la cellule C8
  ActiveSheet.Unprotect  'déprotège l'onglet


  Application.EnableEvents = False  ' Empècher les évènements lors de la modification
  Range("C8").Value = "X"
  Application.EnableEvents = True  ' rétablir les évènements
  ' Traiter enssuite la valeur choisie
  If Target.Value = "Non" Then  'condition : si la valeur de A1 est égale à 2
    Cells.Locked = False  'déverrouille toutes les cellules
    Range("C8").Locked = True  'verrouille la cellule B1
  Else
    Range("C8").Locked = False  ' déverrouille la cellule B1
  End If  'fin de la condition
  
  ActiveSheet.Protect  'protège l'onglet
End Sub

A+

 

[maho_7]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

Désolé mais ça ne fonctionne pas !
Ma version d'Excel est très ancienne, cela vient peut-être de là ?...

 

[Compte Supprimé 979]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

Re,

Voici le fichier pour Excel 2000 😉

Si ça ne fonctionne pas donne nous les messages d'erreurs

A+

 

[maho_7]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

La première partie fonctionne bien !
La cellule C8 se verrouille lorsque l'on met "Non" en C3.
En revanche si on a mis "Oui" en C8 et que l'on met "Non" en C3 alors C8 se verrouille mais n'affiche pas "X".

 

[maho_7]

Re : Comment imposer un choix dans liste déroulante en verouillant celle-ci ?

Avez-vous du nouveau pour ma question ?