Vlookup VBA - pb de format?

Bonjour,

Voici mon tableau dans lequel je vais chercher des valeurs :
Référence | Heure
026354 | 12:00:23
789124 | 14:25:36
124332 | 16:02:59
124785 | 23:54:23

Le code que j'utilise pour renvoyer l'heure

Code:

---

1 2 3 4 5 6 7

Sub TrouverHeureDebutRef Dim HeureDebut as Date Dim Reference as String   HeureDebut=Application.VLookup(Reference, Range("A2:B100"), 2, False)   End Sub

---

J'écris cette valeur heure de début dans une autre feuille. Il me renvoie "#N/A".
Pourriez-vous m'éclairer sur ce problème?
Merci d'avance pour vos réponses

AD

Salut,

Je trouve toujours délicat d'utiliser des fonctions Excel avec la méthode application, donc voici une autre méthode .Find
Voici ton code avec cette méthode.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub TrouverHeureDebutRef() Dim MaRech As Range Dim Reference As String Dim HeureDebut As Date Reference = "789124" 'C'était pour mon test...   Set MaRech = Sheets("TaFeuille").Range("A2:B100").Find(Reference, LookIn:=xlValues) 'Adapter le nom de la feuille qui contient le tableau + une recherche dans l'aide de Find pour plus d'info ;-) If Not MaRech Is Nothing Then 'Si MaRech n'est pas rien (donc référence trouvée) HeureDebut = MaRech.Offset(0, 1) 'Affectation à la variable du contenu de la cellule de droite de celle qui contient la référence Else 'Sinon MsgBox "La référence n'est pas connue" 'Boite de dialogue indiquant que la référence n'existe pas End If End Sub

---

A+

Ca marche parfaitement!

Merci pour la solution et le conseil.

Cordialement

AD