problème de variable dans un RECHERCHEV

Amis du forum bonjour

Je rencontre un problème lorsque je veux faire un RECHERCHEV, non pas d'une cellule, mais d'une variable. Si je tape ce code, pas de problème;

Code:

---

=SI(ET(S6>10;S6<=20);RECHERCHEV("04";'[Grille des Tarifs.xlsx]Tarifs'!$A$1:$F$50;4;FAUX);"")

---

Par contre, lorsque je défini une variable et que je veux faire un RECHERCHEV sur cette variable, par exemple

Code:

---

dep = "04"

---

ma formule en VBA devient donc comme cela :

Code:

---

Range("AE" & descente).FormulaR1C1 = "=IF(AND(RC[-12]>10,RC[-12]<=20),VLOOKUP(" & dep & ",'[Grille des Tarifs.xlsx]Tarifs'!R1C1:R50C6,4,FALSE),"""")"

---

et le résultat donne ceci :

Code:

---

=SI(ET(S6>10;S6<=20);RECHERCHEV(4;'[Grille des Tarifs.xlsx]Tarifs'!$A$1:$F$50;4;FAUX);"")

---

ce qui ne fonctionne pas !

Comme je dois faire ces tests sur tous les départements, je me vois mal faire autant de ligne que de départements.

Si quelqu'un a une solution à me proposer, je l'en remercie grandement.

Bonjour,

il manque juste les guillemets comme dans la formule de feuille de calculs !
A comparer avec ce que renvoie en VBA la propriété Formula de cette cellule …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci de ta réponse, mais lorsque je rajoute encore des guillemets,

Code:

---

Range("AE" & descente).FormulaR1C1 = "=IF(AND(RC[-12]>10,RC[-12]<=20),VLOOKUP("" & dep & "",'[Grille des Tarifs.xlsx]Tarifs'!R1C1:R50C6,4,FALSE),"""")"

---

voici le résultat dans la cellule, il recherche & dep & :

Code:

---

=SI(ET(S6>10;S6<=20);RECHERCHEV(" & dep & ";'[Grille des Tarifs.xlsx]Tarifs'!$A$1:$F$50;4;FAUX);"")

---

Oui car tu as oublié de fermer la chaine de caractères avant & dep & par un guillemet
et il en manque encore un après pour ouvrir la chaine suivante !

Rappel : un guillemet doit être doublé au sein d'une chaine elle-même balisée par des guillemets …

Et si bobo à la tête utiliser alors à la place l'instruction VBA Chr$(34) !

Cool, merci beaucoup, ça fonctionne.
On en apprend tous les jours !