XL 2010 Action par double-clic sur les cellules d'une colonne précise

[Horusbk]

Bonjour,

Nous avons un fichier récapitulant les différentes commandes que nous traitons tous les jours. Parfois, certaines commandes sont annulées : j'aimerais "automatiser" le processus d'annulation dans notre fichier par un double-clic sur la cellule de ma colonne "MAJ" (où se trouve la "X" ) .

Lorsque l'utilisateur double-clic sur cellule j'aimerais que toute la ligne concernée, à l'exception de la cellule commentaire soit barrée et qu'une zone de saisie apparaisse pour demander à l'utilisateur la raison de cette annulation. Une fois saisie elle apparait dans la case commentaire en gras et italique.
De plus, serait-il possible de faire une marche arrière en cas d'annulation d'une commande par "erreur".

Je vous joins mon fichier test. Merci d'avance pour votre aide !
Baptiste 🙂

 

[Compte Supprimé 979]

Bonjour Baptiste,

Voici ton fichier avec le code qui va bien 😉
Pour l'annulation, il suffit d'appliquer à la ligne le format d'une autre !?

 

[patricktoulon]

bonjour

tu peux faire ou re défaire avec le double clique

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Target.Column = 18 Then
        If Target = "X" Then
            Target = ""
            Cells(Target.Row, 1).Resize(1, 12).Font.Strikethrough = False
        Else
            Target = "X"
            Cells(Target.Row, "M").Value = CStr(InputBox("precisez la raison", "annulation"))
            Cells(Target.Row, 1).Resize(1, 12).Font.Strikethrough = True
        End If
    End If
End Sub