Discussion :

[dlight]

Bonjour.

Dans une feuille Excel, j'ai un questionnaire avec un choix de réponses OUI ou NON. Donc ma question est dans A5, Ma case OUI est dans C5 et ma case NON est dans E5.

Est-il possible qu'avec la souris de faire en sorte qu'à chaque fois que je clique dans la cellule OUI ou dans la NON, qu'un "X" soit fait.

L'utilisateur n'aurait qu'à cliquer sur les différentes réponses au lieu de taper un "X" dans dans une cellule puis se déplacer vers la suivante. Mon questionnaire à plus de 70 questions. C'est donc un peu long de se déplacer à l'intérieur de ce questionnaire.

Merci à l'avance.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 3 Then
        Target = "X"
        Target.Offset(0, 2) = ""
    ElseIf Target.Column = 5 Then
        Target = "X"
        Target.Offset(0, -2) = ""
    End If
End If
End Sub

[dlight]

Merci.

J'aimerais juste savoir si je dois coller ce code dans un module, dans Thisworkbook ou un autre endroit que je ne connais pas encore...


Merci pour la rapidité à laquelle vous m'avez répondu

dlight

[mercatog]

Non dans le module de ta feuille (évènement SelectionChange)

[dlight]

Merci. Cela fonctionne parfaitement.

dlight

[dlight]

Petite précision....

J'avais sur certains des champs OUI et NON des critères de validation afin de, par exemple, ne pas permettre de répondre OUI et NON à la même question. Le critère ne fait plus sa validation. Est-il possible d'avoir les deux fonctions (le clic et la validation...)

Merci encore une fois !

dlight