Formatage de string troublant [Résolu]

[needlesurfer]

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 :

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.

[Qwazerty]

Salut
En règle général, face a ce type de problème il faut doubler les " pour que vba les interprète comme faisant parti du texte

essais comme ça

Code :

ActiveCell.Formula = "IF(E2=1, ""Ce rapport n'a pas été archivé"", ""this report has not been archived"")"

A++
Qwaz

[Krovax]

Bonsoir,
Je te comprend moi aussi je peux être troublé par un string mais trop ca fait vulgaire
En gros tu as besoin de mettre " dans ta chaine de caractère tu peux mettre ""
ou alors chr(34)

Code :

1
2
msgbox "ceci "" est une guillemets"
msgbox "ceci " & chr(34) & est une guillemet"

Ca devrais fonctionner

Code :

"IF(E2=1, "3Ce rapport n'a pas été archivé"3, "3this report has not been archived"3)"

Par contre pour ton information il est tout a fait possible de "traquer" les changement d'une feuille avec une macro

evènement change de worksheet un petit tuto a ce propos
http://silkyroad.developpez.com/VBA/EvenementsFeuille/
ou pour tous les onglet
http://silkyroad.developpez.com/VBA/...asseur/#LII-20

Maintenant a toi de choisir ce que tu préfères

[Qwazerty]

Re
Il me semblait bien qu'il y avait un truc qui cloché, ton code est faut

Code :

1
2
 
Feuil2.[A1].Formula = "=IF(E2=1, ""Ce rapport n'a pas été archivé"", ""this report has not been archived"")"

Tu as oublié de mettre le = au début de ta formule, ça ne pouvait pas fonctionner ainsi :p

A++
Qwaz

[neiluj26]

Je dirais aussi qu'il faut remplacer les virgules qu'on utilise en VBA par des points virgules qu'on utilise dans les fonctions directement sur les feuilles, non?

Code :

Feuil2.[A1].Formula = "=IF(E2=1; ""Ce rapport n'a pas été archivé""; ""this report has not been archived"")"

[Krovax]

Effectivement ca me fait deux erreurs, il était vraiment troublant ce string et pas vulgaire pour deux sous

[Qwazerty]

Salut

hé non julien26, il ne faut pas mettre des ";", vbe va interpreter les "," et c'est lui qui se charge de la conversion
A++
Qwaz

[cafeine]

Hello,

vous pouvez mettre des ";" dans une FormulaLocal (pour les français avec un SI)
et des "," dans une Formula (pour tous avec un IF).

[Qwazerty]

Salut
Ha oki, je n'avais jamais fait le distinguo entre formula et formulalocal, c'est chose faite. Merci pour l'info.
A++
Qwaz

[needlesurfer]

Voilà résolu à l'aide des double " dans le string.

C'est honnêtement anti-intuitif mais vba ne fait pas dans l'intuitif de toute façons.

Merci pour votre aide