Discussion :

[[ZiP]]

Bonjour,

Je souhaite insérer une formule dans une cellule via une macro mais j'ai une erreur à l'exécution de mon code.

Pouvez-vous m'aider à faire fonctionner cette ligne :

Code :

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

1
2
 
xlBook.Worksheets("TABLEAU").Cells(TableauLigne, TableauColonne + 1).Value = "=RECHERCHEV(" & xlBook.Worksheets("TABLEAU").Cells(TableauLigne, TableauColonne).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ";DATA!A:B;2;FAUX)"

J'ai l'erreur suivante :

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

D'après mes tests, l'erreur se situe exactement ici :

Code :

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

xlBook.Worksheets("TABLEAU").Cells(TableauLigne, TableauColonne).Address(RowAbsolute:=False, ColumnAbsolute:=False)

Mais je ne sais pas comment la corriger...

Merci pour votre aide,
ZiP

[Minick]

Salut,

Le probleme vient plutot de Value je pense.
Tu veux ajouter une formule dans ta cellule, il faut lui signaler avec FormulaLocal

Code :

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

xlBook.Worksheets("TABLEAU").Cells(TableauLigne, TableauColonne + 1).FormulaLocal = "=RECHERCHEV(" & xlBook.Worksheets("TABLEAU").Cells(TableauLigne, TableauColonne).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ";DATA!A:B;2;FAUX)"

[[ZiP]]

Bonjour Minick,

Effectivement, votre diagnostic est le bon !

J'avais effectué un test avec :

Code :

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

xlBook.Worksheets("TABLEAU").Cells(TableauLigne, TableauColonne + 1).Value = "123"

Qui m'a mis sur la mauvaise voie

Merci,
ZiP