Discussion :

[ADbtr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ADbtr]

Ca marche parfaitement!

Merci pour la solution et le conseil.

Cordialement

AD