Transfert de formules Excel en VBE

[kromitou]

Bonjour,

Encore une problême de transfert de formule entre excel et VBE



Voilà une formule de ma feuille excel qui fonctionne trés bien sur Feuil1
=SI(G2="";0;RECHERCHEV(G2;BaseChoix;EQUIV(Choix!A1;Bcg;0)+1;0))
donc le résultat est bon.

Voilà ce que je rentre dans VBE d'aprés léditeur de macro :
"=IF(RC[5]="""",0,VLOOKUP(RC[5],BaseChoix,MATCH(Choix!R[-4]C[-1],Bcg,0)+1,0))"
le résultat me marque "FAUX".

Pourtant c'est la même formule............
Le soucis : encore une fois, cela ne fonctionne pas.

quelq'un pourrait-il m'éclairer sur ce que je devrais faire...(SVP) pour comprendre les différences entre les 2.

Merci d'avance

 

[pierrejean]

Re : Transfert de formules Excel en VBE

bonjour Kromitou

Si tu as une version française tu peux tester quelque chose du genre

Range("A3").FormulaLocal = "=SI(G2="""";0;RECHERCHEV(G2;BaseChoix;EQUIV(Choix!A1;Bcg;0)+1;0))"

 

[kromitou]

Re : Transfert de formules Excel en VBE

Bonjour Pierre-Jean

bon j'ai essayé encore plusieurs truc dont ta solution mais le résulat est toujours égal à "FAUX"

Pourtant les formules dans les colonnes "U" - "Y" fonctionnent bien.

'retourner dans le tableau
Sheets("Base de données").Select
Range("A1").Select
'colonne des H/L
Range("U" & ligne_active_base).FormulaR1C1 = _
"=IF(AND(RC[-2]>0,RC[-1]>0),CONCATENATE(RC[-2],""/"",RC[-1]),IF(AND(RC[-2]>0,RC[-1]=""""),(""Ø""&RC[-2]),""""""""))"
'colonne des Prix total
Range("Y" & ligne_active_base).FormulaR1C1 = _
"=RC[-3]*RC[-2]*RC[-15]"
'B
Range("B" & ligne_active_base).FormulaR1C1 = _
ActiveCell.FormulaLocal = _
"=SI(G2="";"";RECHERCHEV(G2;BaseChoix;EQUIV(Choix!A1;Bcg;0)+1;0))"

 

[kromitou]

Re : Transfert de formules Excel en VBE

Bon j'ai trouvé un truc qui fonctionne bien...



Range("C" & ligne_active_base).FormulaLocal = "=SI($B$2:$B$3000="""";0;RECHERCHEV($B$2:$B$3000;BaseChoix;EQUIV(Choix!$A$1;Bcg;0)+1;0))"

Merci quand même Pierre-Jean

De toute façon, m'ont fichier n'était pas trés clair...bon je continue.....

@+++