Rendre paramétrable la référence à des cellules dans une formule

Version imprimable

bonjour,

je coince depuis quelque jour sur un problème de formule. je veux insérer automatiquement la formule "sommeprod" dans les ligne d'un tableau et faire référence à la 2éme colonnes de la ligne active et la première ligne de la colonne active. Pour compléter mon tableau, je fais tourner une boucle qui incrémente le numéro de ligne. A chaque lancement de ma macro j'ai un message d'erreur "erreur d’exécution 1004'

voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 '************************************************************************************************ 'création des formule dans le tableau '************************************************************************************************ ligne = 0 colonne = 0 Do While ligne <= 16 Cells(2 + ligne, 3 + colonne).FormulaR1C1 = _ "=SUMPRODUCT((MONTH(dates)=MONTH(R[-1-ligne]C))*(reel=R[2+ligne]C2))" Cells(2 + ligne, 3 + colonne).Select Selection.AutoFill Destination:=Range(Cells(ligne + 2, 3), Cells(ligne + 2, 14)), Type:=xlFillDefault ligne = ligne + 1 Loop
Merci d'avance pour votre aide
Raphael

08/04/2019, 16h45
Menhir

On va commencer par éliminer les évidences : ce code, dans quoi est-il placé ? Un Sub, une fonction, un userform ?
S'il est déposé "tel quel" dans un module, c'est sûr que ça ne fonctionnera pas.
Si tu as procédé ainsi, je pense qu'il serait utile de voir quelques bases : http://bidou.developpez.com/article/VBA/
09/04/2019, 09h31
raphaelm07

Citation:

Envoyé par Menhir

On va commencer par éliminer les évidences : ce code, dans quoi est-il placé ? Un Sub, une fonction, un userform ?
S'il est déposé "tel quel" dans un module, c'est sûr que ça ne fonctionnera pas.
Si tu as procédé ainsi, je pense qu'il serait utile de voir quelques bases : http://bidou.developpez.com/article/VBA/

ce code est placé dans un sub.
09/04/2019, 10h11
Menhir

Est-ce que "dates", "ligne" et "réel" qui sont dans ton SOMPROD dont des noms de cellules ?
10/04/2019, 17h38
raphaelm07

Citation:

Envoyé par Menhir

Est-ce que "dates", "ligne" et "réel" qui sont dans ton SOMPROD dont des noms de cellules ?

Dates et reel sont des cellules et ligne n'est que la variable qui me sert a incrémenter pour changer de ligne
10/04/2019, 19h44
Menhir

Citation:

Envoyé par raphaelm07

ligne n'est que la variable qui me sert a incrémenter pour changer de ligne

Dans ce cas, il ne doit pas rester dans le résultat final transmis à la cellule mais doit être utilisé dans VBA pour modifier le contenu de ce qui est transmis à la cellule.
En somme :

Code:

Cells(2 + ligne, 3 + colonne).FormulaR1C1 = "=SUMPRODUCT((MONTH(dates)=MONTH(R[" & (-1-ligne) & "]C))*(reel=R[" & (2+ligne) & "]C2))"

Tout ça, bien sûr, à condition que "dates" et "reel" soient bien des noms de cellule au sens où l'entend Excel.

Cela dit, puisque la seule partie variable concerne les n° de ligne, je ne comprends pas pourquoi tu transmet ta formule sous le format R1C1.
Je ne comprends pas non plus pourquoi tu transmets le numéro de ligne en référence relative dans le premier "R" alors qu’apparemment le calcul avec ligne a pour seule vocation de pointer toujours sur la même cellule. Le mettre en référence absolue serait bien plus simple.

Citation:

Envoyé par raphaelm07

ce code est placé dans un sub.

Et où est placé le Sub ?
12/04/2019, 14h18
raphaelm07

Citation:

Envoyé par Menhir

Dans ce cas, il ne doit pas rester dans le résultat final transmis à la cellule mais doit être utilisé dans VBA pour modifier le contenu de ce qui est transmis à la cellule.
En somme :

Code:

Cells(2 + ligne, 3 + colonne).FormulaR1C1 = "=SUMPRODUCT((MONTH(dates)=MONTH(R[" & (-1-ligne) & "]C))*(reel=R[" & (2+ligne) & "]C2))"

Tout ça, bien sûr, à condition que "dates" et "reel" soient bien des noms de cellule au sens où l'entend Excel.

Cela dit, puisque la seule partie variable concerne les n° de ligne, je ne comprends pas pourquoi tu transmet ta formule sous le format R1C1.
Je ne comprends pas non plus pourquoi tu transmets le numéro de ligne en référence relative dans le premier "R" alors qu’apparemment le calcul avec ligne a pour seule vocation de pointer toujours sur la même cellule. Le mettre en référence absolue serait bien plus simple.

Et où est placé le Sub ?

Merci pour votre aide, votre apport m'a permis de solutionner mon problème:).