Re : RESOLU remplacer combobox par textbox

Sub Transfert()
    Dim réponse As String
    Dim DerLigne As Long
    If Me.ComboDésignation.ListIndex = -1 Then
        MsgBox " L 'emplacement n'est pas correct"
        Me.ComboDésignation.SetFocus
        Exit Sub
    End If
   If Me.ComboRef.ListIndex = -1 Then
        MsgBox " La référence n'est pas correcte"
        Me.ComboRef.SetFocus
        Exit Sub
    End If
    If Me.TxtQuantité = "" Then
        MsgBox " la quantité à rentrer ou sortir n'est pas correcte"
        Exit Sub
    End If
    
    If TxtQuantité = "" Then
        MsgBox " la quantité n'est pas documentée"
    Exit Sub
    End If
    If IsNumeric(TxtQuantité) = False Then
        MsgBox " La quantité n'est pas numérique"
        Exit Sub
    End If
    If ComboRef.ListIndex <> -1 And Me.TxtStock <> "" And Me.OptSortie = True Then
        If CLng(TxtQuantité.Value) > CLng(Me.TxtStock.Value) Then
            MsgBox " La quantité en stock est inférieure à la quantitrée demandée , sortie impossible"
            Exit Sub
        End If
    End If
    
     If Me.TxtQui = "" Then
        MsgBox " Qui a sorti ou entré n'est pas documenté"
         Me.TxtQui.SetFocus
        Exit Sub
    End If
    
    If Me.OptEntrée = True Then
        Sheets("Stock").Range("G" & Me.ComboDésignation.ListIndex + 2) = Sheets("Stock").Range("G" & Me.ComboDésignation.ListIndex + 2) + Me.TxtQuantité.Value
    ElseIf Me.OptSortie = True Then
    
        Sheets("Stock").Range("G" & Me.ComboDésignation.ListIndex + 2) = Sheets("Stock").Range("G" & Me.ComboDésignation.ListIndex + 2) - Me.TxtQuantité.Value
    End If
        With Sheets("Mvts")
            DerLigne = .Range("A65536").End(xlUp).Row + 1
            .Range("A" & DerLigne) = Me.ComboRef
            .Range("B" & DerLigne) = Now
            If Me.OptEntrée = True Then
                .Range("C" & DerLigne) = "Entrée"
            ElseIf Me.OptSortie = True Then
                .Range("C" & DerLigne) = "Sortie"
            End If
                .Range("D" & DerLigne) = Me.TxtQuantité.Value
                .Range("E" & DerLigne) = Me.TxtPrixUnitaire.Value
                .Range("F" & DerLigne) = Me.TxtQui
                .Range("G" & DerLigne) = Me.TxtPrixTotal.Value
        End With
        MsgBox " transfert effectué"
        Me.ComboDésignation = ""
        Me.ComboRef = ""
        Me.TxtQuantité = ""
        Me.TxtQui = ""
        Me.TxtStock = ""
        Me.TxtPrixTotal = ""
        Me.TxtPrixUnitaire = ""
        Me.OptEntrée = False
        Me.OptSortie = False
        Me.ComboRef.SetFocus
        
        TransfertEffectué = True
        
End Sub