Discussion :

[bedrohung]

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 :

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

=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 :

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

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.

[FCL31]

Salut et bienvenue a toi

si tu as mis :

Code :

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

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 ")" !!

[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

[sabzzz]

bonjour bedrohung,

est ce que le code doit retouner une formule ou une valeur ?

[bedrohung]

Une valeur

[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 :

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

? activecell.formula

ou

Code :

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

? activecell.formular1c1

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

[bedrohung]

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

Code :

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

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