Discussion :

[zealot37]

Bonjour le forum,

Est-il possible d'associer (de concatener ?) deux rechercheV dans la même cellule ?
J'ai bien essayé mais cela ne fonctionne pas!!! Et je ne trouve pas mon bonheur avec notre cher ami google ^^

Voici le bout de code testé :

Code :

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

1
2
Range("I2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],FICHIER GAL!R1C1:R3000C7,7,0)" & "-" & "=VLOOKUP(RC[-8],FICHIER GAL!R1C1:R3000C4,4,0)"

Quelqu'un peut-il me venir en aide ?

[jfontaine]

Bonjour,

Essais en retirant le 2eme "="

Code :

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

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],FICHIER GAL!R1C1:R3000C7,7,0)-VLOOKUP(RC[-8],FICHIER GAL!R1C1:R3000C4,4,0)"

[zealot37]

Merci pour cette réponse rapide,

il me met une erreur #nom... et m'ouvre une fenetre pour une mise à jour de la valeur GAL ??? j'ai l'impression qu'il comprend cela comme une soustraction, alors que je veux simplement séparer les deux rechercheV avec un tiret -

J'ai essayé avec &"-"& et sans "="

Code :

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

= "=VLOOKUP(RC[-8],FICHIER GAL!R1C1:R3000C7,7,0)"&" - "&VLOOKUP(RC[-8],FICHIER GAL!R1C1:R3000C4,4,0)

=> débogage...

[Philippe Tulliez]

Bonjour,
Dans un code VBA pour concaténer une chaine qui est une constante entourée de guillemets, il faut utiliser son code ascii.
Soit

Code :

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

chr(34) & "Toto" & chr(34) & "-" & chr(34) & "Titi"

Le code ascii j'en suis sûr pour la syntaxe complète pas les moyens d'où je suis de tester donc écrit de mémoire.

[zealot37]

Bonjour,

là je ne suis pas sur de tout suivre...

mes rechercheV renvoi des valeurs (un montant et un numéro d'opération) mais ces valeurs (dans ma feuille FICHIER GAL) ne sont pas entourées de guillemets.

Je cherche juste à renvoyer ces deux valeurs dans la même cellule d'une seconde feuille, et séparer ces deux valeurs par un tiret...

[jfontaine]

En effet, ma proposition fait une soustraction (je pensais que c'étais ton but)

Je remarque que le nom de ta feuille ne comporte par de quote
A tester

Code :

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

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],'FICHIER GAL'!R1C1:R3000C7,7,0)" & " - " & "VLOOKUP(RC[-8],'FICHIER GAL'!R1C1:R3000C4,4,0)"