Discussion :

[babybell]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

dep = "04"

ma formule en VBA devient donc comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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.

[Marc-L]

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, …

[babybell]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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

[babybell]

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