Changement d'avis

0

Bonjour,

J'ai recopié une macro qui permet de jaunir la cellule choisie lors d'un double clic. Et de copier la réponse dans une autre cellule.

Je voudrais rajouter l’opportunité de changer d'avis donc que le double clic sur une même ligne annule l'autre (il n'y a que 3 solutions possibles).

Voici ma macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("c2:e25")) Is Nothing Then

Range(Cells(Target.Row, 3), Cells(Target.Row, 4)).Interior.Color = xlNone

Target.Interior.Color = 65535

Cells(Target.Row, 10) = Target

End If

End Sub

Merci de votre aide.

https://www.cjoint.com/c/JBCpQbjRdkX

    Posté le 28 février, 16:42
    par Frank
    Répondre
    0

    Bonjour,

    Modifie cette ligne comme ceci

    Range(Cells(Target.Row, 3), Cells(Target.Row, 5)).Interior.Color = xlNone

    Posté le 28 février, 17:13

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :