Rectifier un probleme code VBA (distinguer les doublons)

Re

Heu, là, j'ai du mal à te suivre !

Tu dis :

si je ne ferai pas sortir un élément de la feuille magasin ca veut dire( j’écris directement l’élément dans le bon de sortie)

et supposant que je me suis trompe j'ai clique oui retirer la quantité du magasin. il doit pas la retirer il doit m’empêcher.

Et bien, il te suffit de cliquer sur "Non" !

Sinon, tu veux un second message de confirmation de retrait ?

Car comme veux-tu que le programme sache que tu t'es trompé de bouton !!!

Salut Theze

Si cela est possible un seconde message de confirmation sera impecable

Je vous remercie

Bye

Bonjour,

Regardes si ça convient :

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim DerLn As Long

    If Target.Count > 2 Then Exit Sub

    Set fb = Sheets("BON DE SORTIE")
    Set fm = Sheets("MAGASIN")

    DerLn = Application.Max(11, fb.Range("B" & Rows.Count).End(xlUp).Row)

    If Not Intersect(Target, fb.Range("O11:O" & fb.Range("O" & DerLn).Row)) Is Nothing Then

        If MsgBox("Vous allez retirer une quantité de " & Target & " à la quantité de '' " & Target.Offset(0, -12) & _
                  " disponible en magasin." & Chr(13) & Chr(13) & _
                  "Confirmez-vous ?", vbExclamation + vbYesNo) = vbNo Then Exit Sub

        If MsgBox("Confirmer-vous la sortie du magasin ?", vbExclamation + vbYesNo) = vbNo Then Exit Sub

        fm.Range("O" & refln) = fm.Range("O" & refln) - Target

    End If

End Sub