Mettre une x avec un clic gauche

Bonjour à tous, j'ai fait un tableau où il faut répondre par une X dans les cellules. Plusieurs personnes seront amenées à utiliser ce tableau. Est-il possible par un clic gauche de selectionner une cellule et d'y déposer une X.

Tout ça pour simplifier son utilisation.

Merci pour les réponses.

Bonjour,

en allant au plus simple:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveCell = "X"
End Sub

code a placer dans le code de la feuille concerné. Bien sur ça serait plus efficace de cibler seulement quelque cellules où l'on veut y inscrire un X, faudrait un exemple de ton fichier.

Merci Math

ça fonctionne mais effectivement, il faut que cela soit ciblé sur quelques cellules.

Je met un exemple de mon tableau.

Les X seront a déposer dans toute la partie C3 à M3 et C42 M42.

Là où se trouve des X. Les autres cellules doivent être utilisées normalement

Merci pour la réponse

essaie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C3:M42,O3:O42")) Is Nothing Then
        Target.Value = "X"
    End If
End Sub

Bonjour Math,

Ca ne semble pas fonctionner.

Merci pour la réponse

-- 14 Juil 2010, 19:50 --

Désolé Math

J'ai répondu trop vite mais en fait ça fonctionne parfaitement.

Encore merci pour tout

Bonsoir,

Es tu sur d'avoir placé le code au bonne endroit.

J'ai testé cher moi et cela fonctionne .

A +

Bonsoir Math

C'est bon tout fonctionne parfaitement.

Merci pour tout.