Message d'erreur debogage

Hello le forum,

J'ai écris un code VLoopkup mais qui ne fonctionne pas, pourtant j'ai écrit le même code (juste changer les chiffres) et celui-ci fonctionne.

Ci dessous une photo du code, je ne comprend pas pourquoi l'un fonctionne et l'autre pas

En réalité, je veux que dans un formulaire de saisie, le Combobox3 va chercher une valeur (c'est un N° de plan comptable 440000 par exemple) et qu'il indique sa description dans le textbox10 le tableau de recherche se trouve dans la feuil8 et dans la plage de recherche A2:B200.

Est-ce possible que ce soit a cause du format ?

Merci pour votre aide

Steph5031

Bonjour Stef5031, le forum,

Un essai...

Private Sub ComboBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 Dim marecherche
  marecherche = IIf(IsError(Application.WorksheetFunction.VLookup(CDbl(Me.ComboBox3), Feuil8.Range("A2:B100"), 2, False)), "", Application.WorksheetFunction.VLookup(CDbl(Me.ComboBox3), Feuil8.Range("A2:B100"), 2, False))
 Me.TextBox10 = marecherche
End Sub

Cordialement,

Bonsoir Stef5031, le forum,

Je pense que c'est le fait de rechercher un nombre qui posait problème...le contenu de la ComboBox est considéré comme du texte....

Cdbl convertit la valeur de la ComboBox3 en nombre et permet ainsi de trouver une correspondance.

J'ai rajouté un SIERREUR pour t'éviter le #N/A si aucune correspondance.

Cordialement,

Hello,

Voilà j'ai encore appris quelque chose....

Top top top, un grand merci a toi.

Steph5031