XL pour MAC Macro a completer afin de ne pas faire une annerie

[tvhabdo]

Bonjour a tous, le Forum

Je joint un fichier afin de mieux comprendre

La macro dit : De A1 a C3, si je clic dans une cellule, s'affiche OUI (Tout va bien)

mais comme nous travaillons a plusieurs sur ce fichier, je souhaiterais "Protéger" ce OUI afin de ne pas faire un CLIC malencontreux et donc de le faire disparaitre - Je ne sais pas quelle protection mettre ni comment faire

et (pour faciliter le problème, lol); je dois pouvoir supprimer le OUI et mettre une case blanche mais volontairement

Merci Pat

 

[ChTi160]

Bonsoir
Bonsoir le Fil,le Forum
voila ce que j'ai modifié(afin de pouvoir poser ma question Lol)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
          If Intersect(Range("A1:C3"), Target) Is Nothing Then Exit Sub
   Target.Value = IIf(IsEmpty(Target), "OUI", "")
         Cancel = True
End Sub

tu pourrais aussi utiliser le "BeforeDoubleClick"
Question :
qu'entends tu par:

je souhaiterais "Protéger" ce OUI afin de ne pas faire un CLIC malencontreux et donc de le faire disparaitre - Je ne sais pas quelle protection mettre ni comment faire

Tout les utilisateurs peuvent ils mettre et enlever des "OUI" ?
Bonne fin de Soirée
jean marie

 

[tvhabdo]

Hello Chti160

Protéger, n'est pas une protection genre "Cadenas" mais plus un truc pour éviter de faire un clic et hop le Oui disparait
Tous les utilisateurs peuvent ils mettre et enlever des "OUI" ? Réponse OUI
Ta macro OK, elle fonctionne mais ou mais t'on : "BeforeDoubleClick"
Marci Pat

 

[ChTi160]

Non
c'est une autre possibilité de faire le Boulot !
il y a aussi le problème de l'effacement des "Oui" par efface supprime etc
dans le fichier joint on utilise le DoubleClick pour insérer les "OUI" ou ""
jean marie

 

[tvhabdo]

Bonjour Chti160

Bravo pour cette macro
En Fait il me fallait le Double Clic pour faire "ma protection", tout fonctionne bien, je l'adapte a mon fichier de travail

Belle Journée et encore Merci