Problème de conversion formule excel -> Macro VBA

Version imprimable

Bonjour,

Je suis en train de développer une feuille de calcul qui utilise des fonctions assez longue et lorsque j'essaie de convertir ces fonctions pour générer une macro cela pose un problème.
En effet quand je re-execute la macro j'obtiens une erreur 1004.

J'ai l'impression que excel n'arrive pas à convertir mes formules en langages VBA.

Pour vous donner un exemple voici une formule utilisée dans une cellule :

Code:

=SI(ESTERREUR(CHERCHE("(rename ";N3));SI(F3="";"";SI(ESTERREUR(CHERCHE("(net ";A3));SI(ET(F4="";F3="");"F";CONCATENER("""";M2;""""));STXT(A3;11;NBCAR(A3)-4)));CONCATENER("""";GAUCHE(STXT(N3;10;NBCAR(N3)-10);CHERCHE("""";STXT(N3;10;NBCAR(N3)-10))-2);""""))

Et voici la conversion lorsque j'enregistre une macro
:
Code:

1 2 ActiveCell.FormulaR1C1 = _ "=ISERROR(SEARCH(""(rename "",RC[9]))?IF(RC[1]="""","""",IF(ISERROR(SEARCH(""(net "",RC[-4])),IF(AND(R[1]C[1]="""",RC[1]=""""),""F"",CONCATENATE("""""""",R[-1]C[8],"""""""")),MID(RC[-4],11,LEN(RC[-4])-4)))"""""""" MID(RC[9],10,LEN(RC[9])-10)?"""""""" MID(RC[9],10,LEN(RC[9])-10)?"
Quelqu'un a t'il déjà eu ce problème?

PS: J'utilise excel 2003

Je vous remercie pour votre aide.

Salut et bienvenue a toi

si tu as mis :
Code:

1 2 ActiveCell.FormulaR1C1 = _ "=ISERROR(SEARCH(""(rename "",RC[9]))?IF(RC[1]="""","""",IF(ISERROR(SEARCH(""(net "",RC[-4])),IF(AND(R[1]C[1]="""",RC[1]=""""),""F"",CONCATENATE("""""""",R[-1]C[8],"""""""")),MID(RC[-4],11,LEN(RC[-4])-4)))"""""""" MID(RC[9],10,LEN(RC[9])-10)?"""""""" MID(RC[9],10,LEN(RC[9])-10)?"
Je pense que ton problème vien des "?" que tu as mis à la place de ","

Je sais pas si il manque pas une ")" !!

14/04/2010, 18h16
bedrohung

Merci pour ta réponse mais en fait c'est pas moi qui est écrit la formule VBA.

Je fait un enregistrement de macro et je rentre la formule dans une cellule excel puis j'arrette l'enregistrement.
Et ensuite lorsque je vérifie en VBA comment la macro a été écrite, j'obtiens la formule que tu cite avec les ?

Là ou je ne comprend pas c'est pourquoi excel n'arrive pas à convertir correctement la formule en VBA.
Est-ce un problème de langage FR avec les formules?
Un problème avec les guillemets, je ne sais pas :(
14/04/2010, 18h18
sabzzz

bonjour bedrohung,

est ce que le code doit retouner une formule ou une valeur ?
14/04/2010, 18h20
bedrohung

Une valeur :)
14/04/2010, 18h23
Pierre Fauconnier

Salut.

Ecris la formule en excel et active la cellule qui contient la formule.

Dans le VBE, affiche la fenêtre d'exécution (CTRL+G) et saisis ceci

Code:

? activecell.formula

ou

Code:

? activecell.formular1c1

Tu pourras ainsi voir comment la formule est rédigée côté VBA

Apparamment cela vient de office 2003, je viens de faire la même manipulation sous 2007 et voici la formule obtenue
Code:

1 2 ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(SEARCH(""(rename "",RC[9])),IF(RC[1]="""","""",IF(ISERROR(SEARCH(""(net "",RC[-4])),IF(AND(R[1]C[1]="""",RC[1]=""""),""F"",CONCATENATE("""""""",R[-1]C[8],"""""""")),MID(RC[-4],11,LEN(RC[-4])-4))),CONCATENATE("""""""",LEFT(MID(RC[9],10,LEN(RC[9])-10),SEARCH("""""""",MID(RC[9],10,LEN(RC[9])-10))-2),""""""""))"
Je n'ai plus le problème de conversion et la macro fonctionne.

Merci pour votre aide