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

[Loki83]

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

Le type mismatch persiste malheuresement

[Godzestla]

Le type mismatch persiste malheuresement

Oui, mais c'est quoi ce BDP ?
Cela ne vient pas de là ?

[Loki83]

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

Heu pourquoi utilise tu des ">" "<" ?
Mon if sert à afficher une valeur nulle si une cellule que j'ai spécifié est vide

[Loki83]

Oui, mais c'est quoi ce BDP ?
Cela ne vient pas de là ?

Je vais tester sans BDP
BDP est un addin excel fournit par Bloomberg

[Loki83]

Code :

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

    Worksheets(Principale).Range("O7").value = "3"

Meme pour ça j'ai une erreur type mismatch....
Je comprends pas là...

[cafeine]

Hello,

soit tu utilises FormulaLocal (français) et c'est SI( ... ; ... ; ...)
soit tu utilises Formula (anglais) et c'est IF( ... , ... , ... )

idem pour les R1C1

[Daranc]

Heu pourquoi utilise tu des ">" "<" ?
Mon if sert à afficher une valeur nulle si une cellule que j'ai spécifié est vide

non je ne t'ai donné qu'un exemple tu as la première formule telle que dans la feuille (tès simple) et l'autre "traductionnée" par l'enregistreur de macro ce qui explique mon commentaire sur la clarté de la chose

[Loki83]

Hello,

soit tu utilises FormulaLocal (français) et c'est SI( ... ; ... ; ...)
soit tu utilises Formula (anglais) et c'est IF( ... , ... , ... )

idem pour les R1C1

Mon Excel doit être hybride car il est en anglais et utilise les ";" comme séparateur...

Je pense qu'en utilisant l'enregistreur de macro comme vous l'avez dit je devrai m'en sortir!

Merci !