Discussion :

[raphaelm07]

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 :

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

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

[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/

[raphaelm07]

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.

[Menhir]

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

[raphaelm07]

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

[Menhir]

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 :

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

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.

ce code est placé dans un sub.

Et où est placé le Sub ?

[raphaelm07]

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 :

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

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.