Discussion :

[20100.]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Bigalo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

SAlut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

rebonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

""attention"";"""";

et pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

attention;;

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

[Qwazerty]

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 ';'

a++
Qwaz

[20100.]

Merci !!!

[Qwazerty]

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

[fred65200]

re Qwazerty

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FormulaLocal

et non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Formula

Je m'avance peut être.

cordialement

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

[Qwazerty]

+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

[laloune]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

pas testé cela dit

[Bigalo]

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.