recherchev vba

[papa59]

bonjour
je suis débutant et je travail sur un projet utilisant la recherchev en vba. j'ai consulté le forum pour m'inspirer du travail des autres mais a chaque fois ma macro ne fonctionne pas.
Le principe est simple en théorie, en fonction de la date d’aujourd’hui il recherche sur la deuxième page du classeur le numéro associé.
j'ai joint mon fichier pour ce qui ne trouvent pas mon projet clair.
Voici mon code:

dateaujourdhui = Range("B2").Value
Range("B3").Value = WorksheetFunction.VLookup(dateaujourdhui, Sheets("feuil2").Range("A1:B4"), 2)

serait il possible de m'aider à avancer?

merci d'avance

Ps: je sais faire une recherche v sur une feuille excel mais il faut absolument sur ce projet que la fonction soit faites en vba

 

[BOISGONTIER]

Re : recherchev vba

Bonjour,

Sub actualisation()
dateaujourdhui = Sheets("feuil1").Range("B2").Value2
tmp = Application.VLookup(dateaujourdhui, Sheets("feuil2").Range("A1:B4"), 2, False)
If Not IsError(tmp) Then
   Sheets("feuil1").Range("B3") = tmp
Else
   MsgBox "non trouvé"
End If
End Sub

JB

 

[papa59]

Re : recherchev vba

merci ca marche nickel

 

[Dull]

Re : recherchev vba

Salut papa59, JB, le Forum

une autre façon de faire

Option Explicit
Dim C As Range

Sub actualisation()
Set C = Feuil2.Columns(1).Find(What:=Format(Range("B2"), "mmm.-yy"))
If Not C Is Nothing Then Feuil1.Range("B3") = C.Offset(, 1) Else MsgBox "Non Trouvé"
End Sub

Bonne Journée