CLIC SOURIS dans CELLULE

Question

Problême : la cellule C4 est vide quand je positionne le curseur de la souris en C4, je voudrais que s'affiche "OUI" quand je clic gauche de la souris un second clic gauche de la souris en C4 effacera le texte "OUI" affiché valable pour C4:E20 Est-ce possible ? merci par avance...

Amadéus · Answer

Code de Feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C4:E20")) Is Nothing And Target.Cells.Count = 1 Then If Target.Value = "" Then Target.Value = "oui" Else Target.Value = "" Cancel = True End If End Sub Cordialement...

Psycho · Answer

Arf trop rapide Amadéus,

j'avais commencé par ça :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    Select Case Target.Formula
        Case Is = "oui"
        Target.Formula = ""
        Case Is = ""
        Target.Formula = "oui"
    End Select

End Sub

Et je n'ai pas eu le temps de gérer la plage avant qu'Amadéus réponde :p