intégrer des " dans une string

quelqu'un a une idée de comment faire ?

Question connexe : si quelqu'un voit une erreur dans cette ligne :

Code:

---

1 2 3 4 5 6

Cells(2, 14).Formula = "=SI(ET(" & nom & "!$P$2=0;" & nom & _ "!$P$3=0;" & nom & "!$P$4=0;" & nom & "!$P$5=0);" & """" & ";SI(ET(((" & nom & _ "!$P$5-" & nom & "!$P$3)/(" & nom & "!$P$4-" & nom & "!$P$2)*(1026-" & nom & _ "!$P$2)+" & nom & "!$P$3)/" & nom & "!$B$1031<1,05;((" & nom & "!$P$5-" & nom & _ "!$P$3)/(" & nom & "!$P$4-" & nom & "!$P$2)*(1026-" & nom & "!$P$2)+" & nom & _ "!$P$3)/" & nom & "!$B$1031>0,95);attention;" & """))"

---

Bon, d'accord, elle est illisibe :oops:

bonsoir

je t'ai ajouté
des ' si tes noms de feuilles ont des espaces
des "
des caractères de continuité (& _) --> aussi ajoutés sur ton post
de quoi d'embrouiller sur la fin ""attention:-("","":-)""))" vs ""attention"",""""))"

Code:

---

1 2 3 4 5 6 7

Cells(2, 14).Formula = _ "=IF(AND('" & nom & "'!$P$2=0,'" & nom & "'!$P$3=0,'" & nom & _ "'!$P$4=0,'" & nom & "'!$P$5=0),"""",IF(AND((('" & nom & "'!$P$5-'" & nom & _ "'!$P$3)/('" & nom & "'!$P$4-'" & nom & "'!$P$2)*(1026-'" & nom & "'!$P$2)+'" & nom & _ "'!$P$3)/'" & nom & "'!$B$1031<1.05,(('" & nom & "'!$P$5-'" & nom & "'!$P$3)/('" & nom & _ "'!$P$4-'" & nom & "'!$P$2)*(1026-'" & nom & "'!$P$2)+'" & nom & "'!$P$3)/'" & nom & _ "'!$B$1031>0.95),""attention:-("","":-)""))"

---

cordialement


edit N'hésite pas à utiliser l'éditeur de macro, la formule sort presque tout faite, il te reste à remplacer le nom de feuille (par ex: Feuil1) par "' & nom & "' et le tour est joué.

Bonsoir,

Bonsoir,

Pas mal de choses à changer : remplacer les

• Les SI() par des IF()
• Les ET() par des AND()
• Les ";" par des ","

Voici un exemple qui fonctionne :

Code:

---

1 2 3 4 5

Sub Test() Dim Nom As String Nom = "Feuil2" ActiveCell.Formula = "=IF(" & Nom & "!$D$13 = 0,1,0)" End Sub

---

Je te laisse adapter ta looooooooooongue formule; Bon courage 8-)

SAlut

Bon j'ai mis du temps et il y a deja des reponse mais je met qd meme

Code:

---

Cells(5, 1).FormulaLocal = "=If(And(" & nom & "!$P$2=0;" & nom & "!$P$3=0;" & nom & "!$P$4=0;" & nom & "!$P$5=0);;IF(And(((" & nom & "!$P$5-" & nom & "!$P$3)/(" & nom & "!$P$4-" & nom & "!$P$2)*(1026-" & nom & "!$P$2)+" & nom & "!$P$3)/" & nom & "!$B$1031<1,05;((" & nom & "!$P$5-" & nom & "!$P$3)/(" & nom & "!$P$4-" & nom & "!$P$2)*(1026-" & nom & "!$P$2)+" & nom & "!$P$3)/" & nom & "!$B$1031>0,95);attention;;))"

---

A++
Qwaz

rebonsoir,

vite fait, je ne crois pas que ta solution soit la bonne, sur la fin il me semble qu'il faut

Code:

---

""attention"";"""";

---

et pas

Code:

---

attention;;

---

enfin de ce que j'ai compris de la formule.@+
fred

J'avoue ne pas mettre interessé au sens de la formule :s
j'ai fait en sorte que la ligne compile peut etre que certaine partie de la formule n'etaient pas fausses mais que je les ai viré quand meme au cours de mes essais, les ;""""; par exemple car je voyais pas l'interet.

Un truc me semble bizard sur la formule que j'ai placé, c'est les ';', comme l'indique Bigalo au debut, je me suis aussi dis que les ';' devaient etre remplacés par des ',', mais ca marche meme avec les ';' :aie:

a++
Qwaz

Merci !!!

Ha ok si je suis co* j'ai compris bien sur tu as raison Fred ;""""; pour avoir des chaine vide dans le corp de la formule ;)

re Qwazerty

j'ai aussi vu que tu avais laissé les ; je crois que ça fonctionne car

Code:

---

.FormulaLocal

---

et non

Code:

---

.Formula

---

Je m'avance peut être.

cordialement

edit c'est pourquoi j'ai mis ""attention:-("","":-)""))", histoire de simplifier avec les parenthèses :( :)

+1 encore
Effectivement mon FormulaLocal permet de faire plein de chose qui au final cré des erreurs dans tous les sens ;)

bonne soirée
a++
Qwaz

juste pour éprouver mes humbles compétences en VBA (pas ma formation), ne pouvait-on pas utiliser des chr(34) au lieu des guillemets, pour ceux qui sont "non-VBA" ?

par exemple :

Code:

---

"&chr(34) & attention & chr(34) & ";" & chr(34) & chr(34) & ";

---

ça évite d'avoir trop de guillemets...

pas testé cela dit :ange:

Bonjour,

Ce n’est pas possible : le compilateur attend des guillemets de part et d’autre de chaque chaine de caractères, et Chr(34) à la place n’est pas accepté, même si cela correspond à un guillemet en ASCII : Chr() est une fonction que l’on peut appeler, mais cela ne modifie pas les règles de compilation : un guillemet, résultat d’une fonction, ne peut remplacer un guillemet explicite, attendu par le compilateur.