Erreur d exécution 06 depassement de capacite

Bonsoir

j ai une erreur d exécution 06 depassement de capacite , sur ce code je ne comprend pas pourquoi

Private Sub TextBox1_afterupdate()

If WorksheetFunction.CountIf(Sheets("base sap").Range("A:A"), Me.TextBox1.Value) = 0 Then

MsgBox " ce numéro de livraison n'existe pas", vbInformation + vbOKOnly, "N° de livraison non trouvé"

End If

With Me

.TextBox6 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("base sap").Range("source"), 3, 0)

End With

End Sub

Bonsoir,

A mon avis, CLng(Me.TextBox1) te donne un nombre trop important.

Essayer CDbl(Me.TextBox1).

Merciiiii