Formule VBA IF(AND(ISERROR fonctionne pas

[jpmasclet]

Bonjour,

Je cherche desesperement à reproduire une formule classique en VBA

la formule :

=SI(ET(ESTERREUR(R6);ESTERREUR(S6);ESTERREUR(T6));"Oui";"")

J'ai fait plusieurs tentavie dont celle ci

ActiveCell.Value = "=SI(ET(ESTERREUR(R5);ESTERREUR(S5);ESTERREUR(T5)); Chr(34)& "oui" &  Chr(34);" & Chr(34) & Chr(34) & ")"

ou encore avec les If(AND(ISERROR

Mais j'ai toujours un probleme au niveau du "Oui", ça bloque, auriez vous svp une solution ?

Merci

 

[tototiti2008]

Re : Formule VBA IF(AND(ISERROR fonctionne pas

bonjour jpmasclet,

le mieux est encore d'enregistrer une macro et de taper ta formule dans une cellule pour voir comment il l'écrit.

Cependant, si tu remplace ActiveCell.Value par Activecell.FormulaLocal il y a une chance que ça fonctionne

 

[tototiti2008]

Re : Formule VBA IF(AND(ISERROR fonctionne pas

autant pour moi, j'avais pas vu l'histoire du "oui" :

ActiveCell.FormulaLocal = "=SI(ET(ESTERREUR(R5);ESTERREUR(S5);ESTERREUR(T5));""oui"")"

 

[jpmasclet]

Re : Formule VBA IF(AND(ISERROR fonctionne pas

Je viens d'essayer ton exellente idée et cela fonctionne, je suis dégouté j'ai passé deux heures à chercher alors qu'il ne me manquait que 2 guillements, la rage ....

ActiveCell.FormulaR1C1 = _
        "=IF(AND(ISERROR(RC[-3]),ISERROR(RC[-2]),ISERROR(RC[-1])),""oui"","""")"

Encore merci

 

[tototiti2008]

Re : Formule VBA IF(AND(ISERROR fonctionne pas

oui, il faut doubler les guillemets,

exemple :

on veut afficher :
aaa "bbb"
-> Msgbox "aaa ""bbb"""
aa "bb" cc
-> Msgbox "aa ""bb"" cc"
aa "" bb
-> Msgbox "aa """" bb"