Forcer la saisie dans une cellule

Bonsoir a tous,

je me demandais s'il était possible de faire en sorte que lorsque j'inscris quelque chose (même n'importe quoi) dans une cellule, qu'un X apparaisse à la place, et ce, peut importe la saisi de départ.

merci d'avance pour votre aide

Bonsoir,

Par code vba

Changer "A1" par l'adresse de la cellule concernée

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "A1" And Target.Text <> "" Then
    Application.EnableEvents = False
    Target = "X"
    Application.EnableEvents = True
 End If
End Sub

La cellule ne pourra qu'être effacer ou contenir une chaine vide ""

Pour insérer le code

Click-droit sur le nom de l'onglet puis 'visualiser le code'.

Coller les lignes ci-dessus dans la fenêtre d'édition du code de la feuille.

A+

Bonsoir

Si tu veux un "X" à la place de toute lettre dans toute la feuille (mais je n'en vois pas l'intérêt) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then Target.Value = "X"
End Sub

Pour mettre un "X" à la place de toute lettre dans une plage définie (exemple de A1 à D10)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:D10")) Is Nothing Then
If Target.Value <> "" Then Target.Value = "X"
End If
End Sub

Amicalement

Nad