Sub test()
gdatas
MsgBox "La base de test est crée." & Chr(13) & "Test de RECHERCHEV en VBA", vbOKOnly
'test 1
[A5:B5].Font.Bold = True
MsgBox "Valeur cherchée: 105" & Chr(13) & "Valeur renvoyée: " & Application.VLookup(105, [zBASE], 2, 0), vbInformation, "Test 1"
'test 2
[A9:B9].Font.Bold = True
MsgBox "Valeur cherchée: 109" & Chr(13) & "Valeur renvoyée en D1", vbInformation, "Test 2"
[D1] = Application.VLookup(109, [zBASE], 2, 0)
End Sub
Private Sub gdatas()
'Cette macro ne sert qu'à créer un petit jeu d'exemples
Columns("A:D").Clear
With Range("A1:A15")
.Formula = "=100+ROW()"
.Offset(, 1).Formula = "=REPT(CHAR(64+ROW()),3)&ROW()"
.Resize(, 2).Value = .Resize(, 2).Value
.Resize(, 2).Name = "zBASE"
End With
End Sub