J'ai écrit le code ci-dessous et je voudrais que ça fonctionne je sais que le problème vient du formatage du string qui contient certain charactères spéciaux:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub reset_archive_warning()
 
    ActiveWorkbook.Unprotect Password:=""
    ActiveSheet.Unprotect Password:=""
 
    Range("Z1").Select
    ActiveCell.Formula = "IF(E2=1, "Ce rapport n'a pas été archivé", "this report has not been archived")"
    Selection.Interior.ColorIndex = 3
 
    ActiveSheet.Protect Password:=""
    ActiveWorkbook.Protect Password:=""
 
End Sub
Comme vous devinez la langue de la phrase contenue dans la cellule Z1 change en fonction du nombre inscrit en E2, je dois donc enter une formule IF via Activecell.formula.
Je pourrais gèrer le IF via le script mais je ne veux pas, car Excel traque les changement pas mon script. J'aimerais donc savoir comment entrer ma formule dans une cellule via un script, comment formatter la phrase.