XL 2013 definir une variable string avec une formule

redexcel · 20 Janvier 2018

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 · 20 Janvier 2018

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

VB:

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 · 20 Janvier 2018

redexcel à dit:
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

Code:

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

Staple1600 · 20 Janvier 2018

Re jacky67

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

redexcel · 20 Janvier 2018

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 · 20 Janvier 2018

Staple1600 à dit:
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 · 20 Janvier 2018

redexcel à dit:
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 ?????

Code:

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

redexcel · 20 Janvier 2018

NOn ne fonctionne pas chez moi

Staple1600 · 20 Janvier 2018

Re,

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

redexcel · 20 Janvier 2018

JAcky 67

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

redexcel · 20 Janvier 2018

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 · 20 Janvier 2018

redexcel à dit:
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

Code:

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

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

Staple1600 · 20 Janvier 2018

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 · 20 Janvier 2018

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 · 20 Janvier 2018

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)]

XL 2013 definir une variable string avec une formule

redexcel

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

redexcel

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

redexcel

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

redexcel

XLDnaute Junior

redexcel

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

redexcel

XLDnaute Junior

redexcel

XLDnaute Junior

Discussions similaires