Discussion :

[remi2305]

Bonjour,

Je cherche à calculer une somme prod en VBA en utilisant des variables afin de définir les lignes et les colonnes.
J'ai cherché sur le forum sans succès donc si vous avez une idée, je suis preneur.

J'utilise le code suivant mais sans succès (ce n'est qu'une partie du code).

Code :

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

1
2
3
4
5
6
7
 Sub Mat_MO()
 
Dim c As Integer  ' n° decolonne
Dim l As Integer  'n°  de ligne
Dim nbmoyens As Integer
 
Cells(l, c).Value = "=SUMPRODUCT(RC[" & c"]:RC[" & nbmoyens"],R4C[" & c & "]:R4C[" & nbmoyens"])"

Merci.

[Aposto]

Bonjour,

Si je ne tropme pas, il faut que tu utilises, Cells(l, c).formulaR1C1 et non pas Cells(l, c).value.

Aposto

[Pierre Fauconnier]

Salut.

Vu que tu définis une formule pour ta cellule, tu dois utiliser la propriété Formula.

Code :

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

Cells(l, c).FormulaR1C1 = "=SUMPRODUCT(RC[" & c"]:RC[" & nbmoyens"],R4C[" & c & "]:R4C[" & nbmoyens"])"

[remi2305]

Merci pour vos réponses.

En utilisant le code suivant donné par Pierre :

Code :

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

Cells(l, c).FormulaR1C1 = "=SUMPRODUCT(RC[" & c"]:RC[" & nbmoyens"],R4C[" & c & "]:R4C[" & nbmoyens"])"

j'ai le message suivant : "Erreur de compilation : Attendu fin d'instruction" et il me surligne ce que j'ai mis en gras.

Savez-vous d'où peut venir l'erreur ?

Merci.

[Pierre Fauconnier]

Il manque & juste après le c mis en gras...

[remi2305]

Merci. Mon problème est résolu.