Clic pour oui sinon vide

Bonjour à tous

je suis un utilisateur quotidien d'Excel mais un utilisateur basique... au mieux des formules un peu compliquées... et voila tout

et là je suis face à un problème

je voudrais créer une case qui serait vide puis quand on clique dessus (ou double clic) cela note OUI et si en prime la case peut se colorer alors là champagne !

Pouvez-vous m'aider sachant que je connais juste les formules et rien de plus... ce qui veut dire la marche à suivre mais version "je parle à un neuneu"

merci de votre aide à tous

romain

Bonsoir romain1980, le forum,

Un essai:

Si tu double-clic sur une cellule, on écrit "oui" et on colore en jaune.

Si on efface le texte de la cellule, elle repasse en blanc.

Cordialement,

Merci beaucoup pour la réponse, c'est super !

Pour ce qui est du code, est-il possible de passer de ouijaune lorsqu'on a cliquer à videblanc lorsqu'on reclique dessus

Est-il possible aussi de faire cela pour les cases de A5 à A55

merci

romain

Re, Romain,

Voir ci-joint:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'évènement double-clic de la Feuil1

Dim i As Integer  'déclaration de variable

For i = 5 To 55   'boucle de la ligne 5 à la ligne 55

If Not Application.Intersect(Target, Range("A" & i)) Is Nothing Then  'cible de A5 à A55

If Range("A" & i) = "" Then   'Si A est vide
Range("A" & i) = "Oui"        ' on écrit Oui
Range("A" & i).Interior.Color = 65535   ' on colore en jaune

Else  'sinon

If Range("A" & i) <> "" And Range("A" & i).Interior.Color = 65535 Then  'si A est différent de vide et de jaune
Range("A" & i) = ""    'on efface la cellule
Range("A" & i).Interior.Color = xlNone    'on supprime la couleur

End If   'fin de la première condition
End If   'fin de la seconde condition
End If   'fin de la cible

Next i   'fin de la boucle

End Sub