OVH Cloud OVH Cloud

Formules + Concatenation

1 réponse
Avatar
Christophe Joly
Bonsoir:

J'ai les deux formules suivantes:

Range("C16").Select
ActiveCell.FormulaR1C1 = _

"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"

Range("D16").Select
ActiveCell.FormulaR1C1 = _

"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"

Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule en
C16

Mon niveau débutant me pousserait à faire quelque chose du genre/

Range("E16").Select
ActiveCell.Formula = "=C16&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16

Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?

Merci d'avance pour votre aide.

Christophe

1 réponse

Avatar
Lepage Stephane
"Christophe Joly" a écrit dans le message de
news:
Quelquechose m'échappe pourquoi vouloir insérer en c16 le contenu de c16 et
d16?
Manuellement ou par macro il paraît plus aisé d'insérer une colonne dont la
formule serait Á6&D16.
Sinon en Vba tu peux relire les deux matrices colonnes C:C et D:D et les
recaser en C:c.
Pige pas l'intéret du but de la manoeuvre, mais cela dit c'est intéressant.