Faire apparaitre une lettre en cliquant dans une cellule

[Valter]

Bonjour,
Je dois gérer une liste de matériel qui est en prêt à des élèves, dans une case, à la fin de chaque produit, j'aimerais faire apparaitre un "R" en cliquant dans la case quand un produit a été rendu, mais j'aimerais aussi le faire disparaître en re-clicant dessus.
J'ai essayé en utilisant le menu validation/liste, mais chaque fois la liste s'ouvre et il faut choisir "R", cela serait plus agréables si cela serait instantané au moment du clic.
Merci de votre aide.

 

[Fred0o]

Re : Faire apparaitre une lettre en cliquant dans une cellule

Bonjour Valter,

Il faut utiliser cette macro évènementielle :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [E2:E20]) Is Nothing Then
        If Target = "" Then Target = "R" Else Target = ""
    End If
End Sub

Ce code est à placer dans le code de la feuille souhaitée. A toi de l'adapter, sachant que le code fourni fonctionne pour la plage "E2:E20".

A+

 

[Valter]

Re : Faire apparaitre une lettre en cliquant dans une cellule

merci FredOo, cela fonctionne à merveille