Discussion :

[Log_polmed]

Bonjour,

Voilà en quelques mots mon problème.

Je dois remplir chaque cellule d'une colonne avec une formule assez longue et cela de manière dynamique.

Code :

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

StrFormula = "=SI(SOMMEPROD(($M$1:M[" & j - 1 & "]=M[" & j & "])*(T$1:T[" & j - 1 & "]=T[" & j & "]))=0;SOMMEPROD(($M$2:$M$[" & NbLignes & "]=M[" & j & "])*($T$2:$T$[" & NbLignes & "]=T[" & j & "]);$AX$2:$AX$[" & NbLignes & "])/SOMME.SI($M$2:$M$[" & NbLignes & "];M[" & j & "];$AX$2:$AX$[" & NbLignes & "]);\" \ ")"

Avec j = Ligne parcourue actuellement
C'est assez immonde, je vous l'accorde, j'ai mis en couleur les chaines que je concatène pour que ce soit un peu plus clair.

Lorsque je lance l'execution, il me sort l'erreur 13 : "Incompatibilité de type".

Si quelqu'un a une idée...

Merci bien

[Log_polmed]

Bon, je m'auto-répond.

C'est une erreur à la fin, tout bêtement. au lieu de \"\" (on n'est pas en C) il faut """".

Mais un autre problème se pose. Je veux maintenant l'affecter à un attribut "formula" d'une cellule, suite logique me direz-vous. Mais le malheur s'abt sur moi dans ce monde de brute.... et...

Code :

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

1
2
3
4
StrFormula = "=SI(SOMMEPROD(($M$1:M[" & j - 1 & "]=M[" & j & "])*(T$1:T[" & j - 1 & "]=T[" & j & "]))=0;SOMMEPROD(($M$2:$M$[" & NbLignes & "]=M[" & j & "])*($T$2:$T$[" & NbLignes & "]=T[" & j & "]);$AX$2:$AX$[" & NbLignes & "])/SOMME.SI($M$2:$M$[" & NbLignes & "];M[" & j & "];$AX$2:$AX$[" & NbLignes & "]);"""")"
 
 
Cells(j, 66).FormulaR1C1 = StrFormula

... ne marche pas.

Erreur retournée : 1004 " définie par l'application ou l'objet"

Je pense que je me perds dans laa syntaxe...

[Invité]

Bonjour

A la place de

Code :

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

FormulaR1C1

essaye

Code :

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

FormulaLocal

pour voir

Starec

[Log_polmed]

Non PLus...

quelle est la différence ?

[Invité]

J'utilise souvent FormulaLocal quand les termes sont en français.

Pourquoi les """" à la fin ?

Starec

[Log_polmed]

POur laisser la cellule vide au cas ou elle ne devrait pas etre remplie.

[Invité]

Et seulement avec "" devrait suffire.

Starec

[Log_polmed]

Non plus....

j'avais essayé en anglais et ca ne passait pas non plus.
En fait je me demande ce qui renvoit l'erreur... Est-ce que l'erreur peut etre soulevée a cause d'une simple erreur de syntaxe ?

[Invité]

Est-ce que la fonction (en plaçant des données à la place) des variables fonctionne quand tu la mets dans une cellule Excel ?

Starec

[Log_polmed]

Oui oui, j'avais fait les tests.
Mais les premieres lignes de mon tableau sont vides. Je devrais d'abord la supprimer ?
Ca devrait quand meme pas poser probleme, puisqu'a priori l'érreur se situe lorsque la formule est attribuée a la cellule.

[Invité]

Lorsque ta formule fonctionne tu as aussi des crochets ?

Starec

[Log_polmed]

Non, je les ai rajouté pour tester. Meme sans, ca ne marche toujours pas.

[mordrhim]

je pense que j'ai trouvé la solution :s

Code :

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

1
2
StrFormula = "=SI(SOMMEPROD(($M$1:M" & j - 1 & "=M" & j & ")*(T$1:T" & j - 1 & "=T" & j & "))=0;SOMMEPROD(($M$2:$M$" & NbLignes & "=M" & j & ")*($T$2:$T$" & NbLignes & "=T" & j & ");$AX$2:$AX$" & NbLignes & ")/SOMME.SI($M$2:$M$" & NbLignes & ";M" & j & ";$AX$2:$AX$" & NbLignes & ");" & Chr(34) & Chr(34) & ")"
Cells(1, 2).FormulaLocal = StrFormula

c'est inbuvable je sais mais en gros j'ai enlevé les [ ] et remplacé le """" par des Chr(34)
ensuite, comme c'est du francais remplacé FormulaR1C1 par FormulaLocal

essaye voir si ca marche ^^

[Log_polmed]

Extra !


L'insertion marche, la chaine est exacte. Aprés le calcul rate, mais c'est un autre problème ^^ !

Merci beaucoup pour votre implication !