Definir une variable string avec une formule

Bonjour a tous

Je voudrais déclarer une variable as string que je récupère avec une formule recherchev, mais je suis obliger de recuperer le resultat de la formule dans une cellule (Range("E1")), voila mon code:

Dim nom_onglet As String
Sheets("Références").Range("E1") = "=VLOOKUP(201711,'Références'!C[-4]:C[-3],2,0)"
nom_onglet = Range("E1")
MsgBox (nom_onglet)

J'ai essayer de faire directement:

nom_onglet = "=VLOOKUP(201711,'Références'!C[-4]:C[-3],2,0)"

mais le resultat en msgbox me donne "=VLOOKUP(201711,'Références'!C[-4]:C[-3],2,0)" et non le resultat de la formule.

merci pour votre aide.

Bonjour,

Comme ceci :

Sub Test()

    Dim nom_onglet As String

    nom_onglet = Application.VLookup(201711, Worksheets("Références").Range("A:B"), 2, 0)
    MsgBox nom_onglet

End Sub

Bonsoir,

Des exemples.

Cdlt.

Public Sub TEST()
Dim nom_onglet As String
    nom_onglet = "=VLOOKUP(201711,'Références'!C[-4]:C[-3],2,0)"
    Range("E1") = nom_onglet
    MsgBox Range("E1")
End Sub

Public Sub TEST2()
Dim Cell As Range
    Set Cell = Range("E1")
    Cell.Formula = "=VLOOKUP(201711,'Références'!C[-4]:C[-3],2,0)"
    MsgBox Cell
End Sub

Theze a écrit :

Bonjour,

Comme ceci :

Sub Test()

    Dim nom_onglet As String

    nom_onglet = Application.VLookup(201711, Worksheets("Références").Range("A:B"), 2, 0)
    MsgBox nom_onglet

End Sub

Merci bien c'est ce que je voulais