Discussion :

[Floflo1007]

Bonjour la communauté,

J'aurais besoin de votre aide sur la fonction Vlookup que j'aimerais insérer dans un code VBA :

Mon besoin c'est de créer une formule sur la colonne A en fonction des données insérées sur les colonnes suivantes :

En clair : je veux faire une RECHERCHEV(E2;'Base DA '!$A:$D;4;FAUX)

et copier cette formule sur toute la colonne A en fonction de s'il y a ou non une données en B.

vous pourrez trouver en pièce jointe la feuille excel.

Merci bcp par avance.

[Philippe Tulliez]

Bonjour,
Les pièces jointes ne sont pas toujours les bienvenues surtout lors d'une ouverture de discussion.
Une bonne explication avec en plus éventuellement une illustration qui l'accompagne est largement suffisante pour être compréhensible par les contributeurs.

Pour répondre à ta question. Toutes fonctions d'excel n'ayant pas leur équivalent en VBA, peuvent être utilisées en utilisant la fonction WorksheetFunction
Ainsi pour obtenir en VBA l'équivalent de cette fonction

Code :

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

=RECHERCHEV(F2;$A$2:$C$4;2;FAUX)

Voici ci-dessous un Exemple simple

Code :

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

 MsgBox Application.WorksheetFunction.VLookup(Range("F2").Value, Range("A2:C4"), 2, False)

Cependant, comme en VBA, il est important pour ne pas rencontrer de problème majeur, de préciser la parentalité complète des objets, je te conseille vivement de plutôt t'inspirer de ce code ci

Code :

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

1
2
3
4
5
6
7
8
9
Sub t()
 Dim rngLookUpValue As Range, rngData As Range
 With ThisWorkbook.Worksheets("Feuil1")
  Set rngData = .Range("A2:C4")
  Set rngLookUpValue = .Range("F2")
 End With
 MsgBox Application.WorksheetFunction.VLookup(rngLookUpValue.Value, rngData, 2, False)
 Set rngData = Nothing: Set rngLookUpValue = Nothing
End Sub

[Floflo1007]

Bonjour Philippe,

Merci pour vos renseignements qui répondent à une partie de ma question. En effet j'aimerais que cette formule se copie sur toute la plage lorsqu'en colonne B j'ai une information.

Je pense qu'il faut faire une boucle mais je ne vois pas laquelle.

Si vous avez la réponse je suis preneur.

Merci par avance.

[Menhir]

Personnellement (question de goût) je préfère utiliser la méthode Find qui correspondrait plus à la fonction EQUIV() d'Excel.
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Pour moi, l'inconvénient de VLOOCKUP avec VBA, c'est qu'on n'est pas sûr du type de donnée renvoyée et qu'on doit donc mettre la variable qui recueille le résultat en Variant, ce qui peut ensuite poser des problèmes dans le traitement.

Find, on est sûr que ça renvoie un Range, même si le résultat est Nothing (ce qui n'est qu'un Range particulier).
Pour moi, c'est plus clair et plus simple à traiter.