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

Horusbk · 27 Août 2019

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 · 27 Août 2019

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 · 27 Août 2019

bonjour

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

VB:

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

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

Horusbk

XLDnaute Junior

Pièces jointes

Compte Supprimé 979

Guest

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Discussions similaires