VLOOKUP

Bonjour le forum,

Je cherche à savoir comment fonctionne VLOOKUP sous VBA...

Comment faire pour faire marché cette fonction?

A l'aide !

Merci

bonsoir

comme recherchev() ou vlookup dans excel

exemple

plage de données en a1:b6

colonne A : T1 T2 T3 T4 T5 T6 ....

colonne B : 44 12 45 60 82 32

je veux le résultat en A12

Sub recherchev()

Range("a12") = Application.WorksheetFunction.VLookup("t1", Range("a1:b6"), 2, 0)

End Sub

cordialement

Bonjour,

Public Sub TestVLookup()
    MsgBox Application.WorksheetFunction.VLookup("a", Sheets("Feuil1").Range("A2:C5"), 2, 0)
End Sub

• "a" est la valeur recherché
• Sheets("Feuil1").Range("A2:C5") représente ton tableau
• 2 la colonne du résultat
• 0 recherché la valeur exacte

Nickel ! Explication rapide et simple pour les deux, parfait !

Merci

Bonjour à tous,

La fonction Application.Vlookup m'intéresse :

J'explique en détails avec la capture d'écran ci-jointe :

• il s'agit de copier/coller E1 et F1 dans les mêmes colonnes mais à la ligne qui correspond. (E1 et F1 sont obtenus à partir de formules Excel)
• Copier E1 pour le coller en valeurs dans la colonne E à la ligne dont la cellule de la colonne A est égale à A1 (qui est la date du jour).
• idem pour F1

J'ai essayé de faire une macro en enregistrant d'abord la manipulation du copier-coller pour ensuite retoucher avec une fonction recherche ou si. L'idée, c'est que la macro sélectionne une case que le langage VBA trouverait de lui-même et collerait dans cette case le contenu d'une autre case.

Est-ce que cela vous paraît faisable ? Ou faut-il coller toute une ligne ?

Voici mon extrait de code vba (je n'ai pour l'instant mis la condition que pour E1) :

Sub collagevalptf()
'
' collagevalptf Macro
'

'
    Sheets("DATA").Select
    Range("E1").Select
    Selection.Copy
    Dim R As Variant
    R = Application.VLookup(Cells("1A"), Range("A5:F40"), 5, False).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        End If

    Range("F1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I10").Select
    Sheets("MACROS").Select
End Sub

Pourriez-vous me guider pour me dire comment bien rédiger la condition, s'il vous plaît ?

Je ne demande pas un code tout fait, j'ai vraiment besoin de comprendre.

Merci beaucoup pour votre temps consacré à m'aider.

Salut,

Il est toujours difficile de placer sa demande à la suite d’un sujet résolu qui ne correspond jamais entièrement à son propre souci et il est encore plus difficile de répondre à une demande sans avoir de fichier Excel à disposition, mais uniquement des copies d’écran.

Dans le fichier ci-joint, si tu cliques sur le bouton ‘’Go’’, tu devrais avoir le résultat attendu.

Cordialement.

Bonsoir Yvouille,

Merci de ton aide. Ca donne exactement le résultat souhaité.

Désolé de t'avoir contrarié avec mon double post.

Bonne soirée !