Code pour insertion

Bonsoir à tous,

Je fais appel aux grands spécialistes du VBA.

Pourriez vous m'écrire un code autorisant l'insertion d'un caractère dans une cellule par un double clic de souris et seulement ce caractère. J'ai bien trouvé un code sur le forum que j'ai adapté et qui fonctionne mais si je me sers du clavier je peux rentrer n'importe quoi et c'est ce que je voudrai éviter.

Merci d'avance à ceux qui voudrons bien bosser sur ma question.

Sinon, bonne soirée à tous et bien cordialement.

bonsoir,

une propostion avec une procédure évenementielle

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = "e" :' remplace le e par le caractère souhaité
End Sub

Merci beaucoup, je travail sur le vba mais il y a encore beaucoup de travail...

Bonjour à tous et encore merci h2 so4 ton code correspond à ma demande, mais celle ci n'était peut être pas assez détaillée en fait je recherchait une procédure telle celle que tu me propose mais qui s'applique à une seule cellule le reste de la feuille fonctionnant normalement. Merci d'avance si tu peux faire une modif dans ce sens.

Cordialement

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub:  ' remplace le A1 par la référence de la cellule souhaitée
Target.Value = "e": ' remplace le e par le caractère souhaité
End Sub

Merci h2so4 ce coup ci c'est exactement ce qu'il me faut.

Bonne soirée.

Cordialement.