Correspondance ligne

Bonjour,

Je bataille sur un sujet mais je pense que c'est réalisable pour vous!

En fait, dans mon fichier ci-joint, j'ai la feuille "remise du colis". J'ai crée un bouton "j'ai récupéré le colis". Quand on clique dessus, une question est posée avec la possibilité de dire oui ou non... Si c'est oui OK mais si c'est non, je n'arrive pas à mettre en place mes actions.

Lorsque l'on clique sur NON, on demande dans un premier temps le nom et prénom d'une personne à l'aide d'un message box ( ca c'est fait). Quand le nom est rempli, j'aimerai que celui-ci aille se placer automatiquement dans la feuille 'historique" dans la colonne réceptionnaire A LA MÉME LIGNE que le numéro de bon de commande qu'il y a écrit dans la case numéro de bon de commande dans la feuille "remise de colis".

Voila voila, merci de votre aide !

Ci-joint le fichier :

Salut Jul997,

comme ceci, sans doute...

Private Sub Colisrécupéré_Click()
'
Dim dl As Integer
'
If MsgBox("Etes-vous bien " & Range("B6").Value & " ? ", vbYesNo) = vbNo Then _
    m = InputBox("Inscrivez votre NOM et Prénom : ")
'
With Sheets("Historique_")
    dl = .Range("A:A").Find(what:=[B4], lookat:=xlWhole).Row
    .Range(IIf(m = "", "B", "D") & dl).Value = IIf(m = "", [B6], m)
    .Range(IIf(m = "", "C", "E") & dl).Value = Now
End With
'
End Sub

A+