Microsoft 365 Fonction Vlookup

macfly1978 · 8 Avril 2021

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) · 8 Avril 2021

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

Microsoft 365 Fonction Vlookup

macfly1978

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Discussions similaires