Erreur de compilation : Attention : fin d'instruction VBA

Bonjour,

Je tente vainement d'insérer une formule juste dans ma macro.

le message d'erreur est "erreur de compilation attendue : Fin d'instruction"

Pour récupérer mes formules sous VBA je ne les écris pas, j'écris au préalable ?Range.formula("-Cellule-") dans la fenêtre d'exécution.

Ainsi lorsque j'écris dans ma macro :

Range("E2").Select
    ActiveCell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(F2,'Fusion des SIREN'!A:B,2,FALSE)),D2,VLOOKUP(F2,'Fusion des SIREN'!A:B,2,FALSE))"
    Selection.AutoFill Destination:=Range("E2:E9000")

Elle fonctionne,

Tandis que si j'écris :

Range("H2").Select
    ActiveCell.FormulaR1C1 = "=IF(COUNTIF(TopContract!D:D,'Valeurs Formulées ZCAPBR'!F:F)=1,"CC","HC")"
    Selection.AutoFill Destination:=Range("H2:H9000")

ou encore

Range("I2").Select
    ActiveCell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(F2,FamiJacques!B:C,2,FALSE)),"Famille non déterminée",VLOOKUP(F2,FamiJacques!B:C,2,FALSE))"
    Selection.AutoFill Destination:=Range("I2:I9000")

Excel me refuse, avec comme message d'erreur "Erreur de compilation : Attention : fin d'instruction"

Est-ce que vous avez une idée ? Je fais chou blanc...

Merci !

Bonjour,

Si tu veux inscrire des guillemets dans ta formule, il faut en utiliser 4, exemple :

ActiveCell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(F2,FamiJacques!B:C,2,FALSE)),""""Famille non déterminée"""",VLOOKUP(F2,FamiJacques!B:C,2,FALSE))"

Inspire toi du code produit par l'enregistreur de macro, si besoin.

ça marche, merci beaucoup !