Microsoft 365 Fonction Vlookup

[macfly1978]

Bonjour,
j'ai un onglet Articles
une table Source
une saisie en textbox2

mes référence sont des chiffres et lettres mélangées

quand je mets une réf inexistante j'ai bien le message mais quand je tape une réf, j'ai le message suivant:
pouvez vous m'expliquez mon erreur.
Merci d'avance

Private Sub TextBox2_AfterUpdate()

If WorksheetFunction.CountIf(Sheets("Articles").Range("C:C"), Me.TextBox2.Value) = 0 Then

MsgBox " Cette Référence n'existe pas ", vbInformation + vbOKOnly, "Référence non trouvée"

End If

With Me

.TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox2.Value), Sheets("Articles").Range("Source"), 5, 0)


End With

End Sub

 

[youky(BJ)]

Bonjour tous,
Peso je ferais comme ceci, j'aime bien ......Match
Bruno

Private Sub TextBox2_AfterUpdate()
lig = Application.Match(textbox2, Sheets("Articles").Range("C:C"), 0) 'renvoie le N° ligne
If Not IsNumeric(lig) Then
MsgBox " Cette Référence n'existe pas ", vbInformation + vbOKOnly, "Référence non trouvée"
Else
textbox3 = Sheets("Articles").Cells(lig, 5) '5 est la colonne
End If
End Sub