Vlookup VBA User Form

Le 06/10/2023 à 09:53

Bonjour,

J'ai écris ce code mais il ne fonctionne pas et je ne comprend pas pourquoi .

Me.txtnom.Value = Application.WorksheetFunction.VLookup(Me.txtntravail.Value, Sheets("Sheet7").Range("A1:C1000"), 2, 0)

Edit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois

Pouvez-vous m'aider ?

Merci beaucoup

Le 06/10/2023 à 13:16

Bonjour

- Vous avez quoi dans la textbox txtntravail ?
- sheet7 c'est le nom de votre onglet ?

Sinon sans fichier ....

Crdlt

Le 06/10/2023 à 14:11

Bonjour Dan et ofleisheuer,

Essai ça pour la gestion de tes erreurs

Dim resultat As Variant

On Error Resume Next ' Ignorer les erreurs pour la recherche
resultat = Application.WorksheetFunction.VLookup(Me.txtntravail.Value, Sheets("Sheet7").Range("A1:C1000"), 2, 0)
On Error GoTo 0 ' Réactiver la gestion des erreurs

If Not IsError(resultat) Then
    Me.txtnom.Value = resultat ' Affecter la valeur trouvée à la zone de texte
Else
    Me.txtnom.Value = "Valeur introuvable" ' Gérer le cas où la valeur n'est pas trouvée
End If
Rechercher des sujets similaires à "vlookup vba user form"