Supprimer ligne dans UserForm

Bonjour a tous

Suivant le fichier joint, on clic par exemple sur Coca Cola puis on mets le nombre, on clic sur Valider Payant ou sur Valider Gratuit, ensuite on clic une autre boisson puis le nombre ainsi de suite.c'est afficher dans RAPPEL DE LA COMMANDE. il arrive que l'on se trompe sur une boisson, alors on clic 2 fois sur celle ci, jusque là tout va bien,mais dans la feuille temp la ligne de la boisson incriminée n'est pas supprimée. Pourriez-vous me trouver une solution et en même temps corriger dans TOTAL COMMANDE qui n'est pas mis a jour.

Si ce n'est pas possible, pourriez-vous m'avertir.

Merci beaucoup

Cordialement

Bonjour

Essayez en remplaçant le code Private Sub Listbox1_Dblclick dans l'USF par celui ci-dessous

Private Sub Listbox1_Dblclick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem (ListBox1.ListIndex)
With Sheets("Temp")
    If ListBox1.ListIndex <= 0 Then
        .Rows(ListBox1.ListIndex + 3).Delete
        Else: .Rows(ListBox1.ListIndex + 2).Delete
    End If
    TextBox4 = Format(WorksheetFunction.Sum(.Range("D2:D" & .Range("a" & .Rows.Count).End(xlUp).Row)), "Currency")
End With
TextBox5.SetFocus
End Sub

Cordialement

Merci beaucoup

Ça marche du tonner

Encore merci

Cordialement