Puis-je m'en sortir avec un simple clic

Bonjour le forum

j'ai déjà un double clic dans feuille et ThisWorkbook alors...

Puis-je m'en sortir avec un simple clic de cette macro?

Merci à vous

Cordialement

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 9 And Target.Row >= 2 And Target.Row <= 106 Then
Application.EnableEvents = False
        With ActiveCell.Offset(0, -8).Resize(1, 8)
            .Font.Strikethrough = Not .Font.Strikethrough
            ActiveCell = IIf(ActiveCell.Offset(0, -8).Font.Strikethrough, "Oui", "Non")
        End With

        With ActiveCell
            If .Offset(0, -8) <> "" And .Offset(0, -8).Font.Strikethrough = True Then
                .Interior.ColorIndex = 35
                .Font.ColorIndex = 3
            Else
                .Interior.ColorIndex = 36
                .Font.ColorIndex = 5
            End If
        End With
    End If
Cancel = True
Application.EnableEvents = True
End Sub

Bonsoir,

à priori vous vous en êtes sorti avec un seul clic : celui sur "résolu" !

Sinon vous pouvez vous en sortir avec votre question si elle est accompagnée d'un fichier pour "montrer" son fonctionnement...

@ bientôt

LouReeD

Bonjour LouReeD

Je me suis débrouillée en mettant dans un autre DoubleClic.

Merci à toi et bonne fin de WE

Cordialement