Erreur fin d'instruction - insertion

Bonjour,

J'ai une erreur de formulation mais je n'arrive pas à mettre le doigt dessus.

idée : reset une cellule modifiée en réinscrivant une formule dedans si elle a été retirée.

Mon code :

Sheets("Dispo 13 mois").Range("D11").Formula "=SI(D14=1;"100%";SI(D14="N/A";"";SI(D14=0;"";D14)))"

J'ai cru lire que c'était une erreur de guillemets, j'ai tenté ca aussi :

 Sheets("Dispo 13 mois").Range("D11").Formula "=SI(D14=1;""100%"";SI(D14=""N/A"";",SI(D14=0;"""";D14)))"

Si quelqu'un a une idée ?

Arthur

Bonjour

Essaie ça :

 Sheets("Dispo 13 mois").Range("D11").Formula = _
        "=IF(R[10]C[1]=1,""100%"",IF(R[10]C[1]=""N/A"","""",IF(R[10]C[1]=0,"""",R[10]C[1])))"

Bye !

Bonjour,

Je ne suis pas vraiment partisan d'utiliser VBA pour apposer des formules , mais quand on le fait il faut respecter la syntaxe :

    With Sheets("Dispo 13 mois").Range("D11")
        .Formula = "=IF(ISNA(D14),"""",IF(D14=0,"""",D14))"
        .NumberFormat = "0%"
    End With

NB- Ta formule initiale (une fois rétablie avec une syntaxe correcte) aurait renvoyé une erreur dans la cellule si #N/A...

Cordialement.

Ca marche parfaitement,

Merci à vous deux !

Très bonne journée