Bonjour,

j'ai lu plusieurs discussions qui traite de cela mais malgré ma mise en application cela ne fonctionne pas.

Je veux insérer en cellule B17 une formule. "
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=SI(J12="";"";RECHERCHEV(J12;Database!A1:J150;3;FAUX))
J'ai tenté deux codes:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Sheets(2).Range("B17").Select
ActiveCell.FormulaR1C1Local = "=SI('J12'="";"";RECHERCHEV('J12';Database!'A1':'J150';3;FAUX))"
J'ai tenté d'effectué un enregistrement de macro, ce qui donne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[10]C[8]="""","""",VLOOKUP(R[10]C[8],Database!R[-1]C[-1]:R[148]C[8],3,FALSE))"
    Range("B3").Select
Avec cette deuxième méthode, la formule s'insère bien en B17, sauf que toutes mes autres formules passent en version US/EN et donc plus rien de fonctionne.

Merci d'avnance