Discussion :

[Loki83]

Bonjour,

Je cherche à insérer des formules excel via VBA à l'aide de ce code :

Code :

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

Worksheets(Principale).Range("O7").value = "=if(D7="";"";BDP($C7;$O$6))"

Cependant j'ai un
Run-time error '13':
Type mismatch

Comment cela se fait?

Merci pour vos réponses

[Daranc]

fait un tour du coté de l'aide en ligne

Code :

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

.Range("O7").formulaR1C1=

si tu veut le truc plus simple fait un enregistrement de macro via l'enregistreur

[Loki83]

J'ai type mismatch maintenant...

[decondelite]

Elles sont en anglais tes formules Excel? Moi j'ai la version français où on tape SI, et l'autre fonction je vois pas du tout ce que c'est.

[Loki83]

oui c'est en anglais.
L'autre est une formule bloomberg. Mais ma fonction n'est pas le probleme, elle est bonne.

[decondelite]

Ah je viens de voir ce qui ne va pas.

Mets ça à la place:

Code :

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

"=if(D7="""";"""";BDP($C7;$O$6))"

[Daranc]

la formule avec formulaR1C1 donne un truc en R[-5]
la formule

Code :

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

=SI(F7>E7;E7;MAX(E3:G5))

donne

Code :

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

    Range("F9").FormulaR1C1 = "=IF(R[-2]C>R[-2]C[-1],R[-2]C[-1],MAX(R[-6]C[-1]:R[-4]C[1]))"

c'est sur qu'au niveau clarté c'est pas du 100W basse consommation