Discussion :

[wulfram]

Bonsoir à tous,

Désolé pour cette double question, mais elles me semblent relativement courtes et liées (peut-être ?!) pour ne pas les séparer.

Je souhaite insérer une formule dans une cellule, via le code.
En utilisant la macro, j'en arrive à un code ressemblant à ceci :

Code :

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

1
2
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP([@Devise],Table1[#All],Table1[[#Headers],[Symbol]])"

Afin de l'adapter à mon code :

Code :

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

Worksheets("TblCash").Cells(ligne, 3).FormulaR1C1 = "=VLOOKUP([@Devise];Table1[#All];Table1[[#Headers],[Symbol]])"

L'exécution me renvoit un message d'erreur run-time 1004 (application or object difinited error)
Il en va de même en essayant via un range :

Code :

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

Worksheets("TblCash").Range("C" & ligne).FormulaR1C1 = "=VLOOKUP([@Devise];Table1[#All];Table1[[#Headers],[Symbol]])"

Ca, c'est pour le côté "code" de ma question
!
La seconde partie est : comment, plutôt que d'indiquer un numéro de colonne (qui peut varier dans le temps), utiliser le nom de celle-ci comme 3ème argument de mon VLOOKUP ?! (La première colonne sera toujours figée, par contre)

En vous remerciant par avance pour votre précieuse aide,

Wulfram

[78chris]

Bonjour

Ne pas oublier le 4ème argument...

Pour remplacer un numéro de colonne par son titre il faut imbriquer un EQUIV ou, si colonne nommée dans le gestionnaire de noms, par les propriétés du range nommé

[wulfram]

Bonsoir,

Effectivement, en utilisant un MATCH (équivalent anglais d'EQUIV je suppose !), j'arrive à faire fonctionner la fonction VLOOKUP !

Mais pas plus à l'assigner à la cellule via le code VBA ! Je pense que la matinée de demain sera destinée à régler ce petit inconvénient passager !

Merci en tout cas de m'avoir montré la canne à pêche, c'est effectivement plus productif que d'apporter le poisson tout prêt !

Wulfram

[EDIT]
Pour ce qui est du code VBA, en passant par la propriété FormulaLocal :

Code :

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

Worksheets("TblCash").Cells(ligne, 3).FormulaLocal = "=VLOOKUP([@Devise];Table1[#All];MATCH(Table1[[#Headers];[Symbol]];TblListeDevises!$1:$1;0);FALSE)"

Le code fonctionne sans problèmes. Par contre, je trouve cela étrange, utilisant moi-même une version anglaise de la suite Office, le simple "Formula" devrait avoir le même effet ?!
Et, pour le coup, cette formule m'enlève pas mal de portabilité puisqu'elle ne fonctionnera que sur des postes utilisant la même langue que moi ?

[78chris]

Re

Tu peux utiliser FormulaR1C1

[wulfram]

Bonjour,

C'est bien la propriété que je pensais utiliser initialement, mais comme indiqué dans mon premier message, j'ai alors un message d'erreur !

[78chris]

Re

Remplacer $1:$1 par C1 : on ne peut mélanger les 2 notations