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:
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.
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
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.
Partager