XL 2013 definir une variable string avec une formule

[redexcel]

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.

 

[Staple1600]

Bonjour le fil, le forum

Et comme ceci?
Sheets("Références").Range("E1") = "=VLOOKUP(201711,'" & Range("E1").Text & "'!C[-4]:C[-3],2,0)"

EDITION: Test concluant sur mon PC

Sub Test()
ActiveCell = "=VLOOKUP(RC[-1]," & [E1] & "!R[-1]C[-1]:R[1]C,2,0)"
End Sub

NB: Ici c'est ma propre formule de test
Mais le nom de l'onglet est en E1 et la formule inscrite par la macro est correcte et fonctionne.

 

[Jacky67]

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
Si j'ai bien compris
Essaye ceci

nom_onglet = [VLOOKUP(201711,'Références'!A:B,2,0)]
MsgBox nom_onglet

 

[Staple1600]

Re jacky67

Tu m'as encore point vu passer ?
(voir le message#2)

 

[redexcel]

Merci a tous mais je pense que je me suis mal exprimé:

En fait ma premiere macro marche bien:

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)


Mais ce que je voudrais eviter, c'est de recuperer d'abord le resultat de la formule dans E1.

Je voudrais en fait pourvoir declarer directement la variable sans passer par E1, avoir genre:

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


Je ne sais pas si je suis clair

 

[Jacky67]

Re jacky67

Tu m'as encore point vu passer ?
(voir le message#2)

Re..
Si j'ai vu...
Mais pas la variable " nom_onglet"
Je n'ai peut être pas compris la même chose

 

[Jacky67]

Merci a tous mais je pense que je me suis mal exprimé:

En fait ma premiere macro marche bien:

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)


Mais ce que je voudrais eviter, c'est de recuperer d'abord le resultat de la formule dans E1.

Je voudrais en fait pourvoir declarer directement la variable sans passer par E1, avoir genre:

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


Je ne sais pas si je suis clair

Re..
Et ma proposition ne fait pas ?????

nom_onglet = [VLOOKUP(201711,'Références'!A:B,2,0)]
MsgBox nom_onglet

 

[redexcel]

NOn ne fonctionne pas chez moi

 

[Staple1600]

Re,

@redexcel
Et ma proposition, elle bug aussi?
(voir le message#2)

 

[redexcel]

JAcky 67

J'ai reessayé, ça marche bien finalement je te remercie

 

[redexcel]

j'ai une qurstion du coup messieur
mettre la formule entre crochet [ ] et mettre la formule entre guillemet , quelle est la diff ?
entre guillment permet d'utiliser les references R[]C[] ?

 

[Jacky67]

j'ai une qurstion du coup messieur
mettre la formule entre crochet [ ] et mettre la formule entre guillemet , quelle est la diff ?
entre guillment permet d'utiliser les references R[]C[] ?

Re..
C'est la version courte de "Evaluate"
Ceci donne le même résultat

nom_onglet = Evaluate("VLOOKUP(201711,'Références'!A:B,2,0)")

Un petit coup de F1 sur "Evaluate" donne plus d'informations

 

[Staple1600]

Re

@redexcel
Je pue de la gue.le?
Car tu ne m'as pas salué et je n'ai pas lu tes commentaires sur le code que je t'ai proposé dans le message N°2 de ta discussion?
Pourtant je me brosse les dents matin et soir.

 

[redexcel]

Salut Staple je suis désolé
en fait j'ai repondu a vous deux au debut pour dire que je m'etais mal exprimé
c'etait pas ce que je voulais en fait
sinon non tu pue pas de la gueule jte rassure lol

 

[redexcel]

en fait la formule suivante marche bien :
nom_onglet = [VLOOKUP(201711,'Références'!A:B,2,0)]

mais quand je remplace "201711" par Range("A1") par exemple ça ne marche plus ?

genre nom_onglet = [VLOOKUP(Range("A1"),'Références'!A:B,2,0)]