Microsoft 365 Fonction Vlookup

macfly1978

XLDnaute Nouveau
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

a.jpg


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)

XLDnaute Barbatruc
Bonjour tous,
Peso je ferais comme ceci, j'aime bien ......Match
Bruno
VB:
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
 

Discussions similaires

Réponses
18
Affichages
401
Haut Bas