renvoyer une valeur vers une feuille spécifique.

[Mazne]

Bonjour,
je souhaiterais pouvoir renvoyer des valeurs calculée à partir d'une base de donnée située sur une feuille 1 directement sur une feuille 2. J'avoue que je sèche complétement sur le comment.

Voici le code que j'ai tapé:

Sub MMC()
Dim i, j, l, col As Integer, k As Double
For col = 2 To 36
j = 13
For i = j To 37
k = Application.Sum(Range(Cells(i + 2, col), Cells(i + 13, col))) / 12
Sheets("feuil1").Cells(i -11, col).Value = k
Next i
Next col
End Sub

Avec ce code, je n'obtiens que des 0 sur ma nouvelle feuille1 et je n'arrive pas à comprendre pourquoi.
Si quelqu'un peut m'éclairer, ce serait génial ! Merci d'avance !

Mazne

 

[JNP]

Re : renvoyer une valeur vers une feuille spécifique.

Bonjour Mazne

je souhaiterais pouvoir renvoyer des valeurs calculée à partir d'une base de donnée située sur une feuille 1 directement sur une feuille 2.
Sub MMC()
Dim i, j, l, col As Integer, k As Double
For col = 2 To 36
j = 13
For i = j To 37
k = Application.Sum(Sheets("feuil2").Range(Cells(i + 2, col), Sheets("feuil2").Cells(i + 13, col))) / 12
Sheets("feuil1").Cells(i -11, col).Value = k
Next i
Next col
End Sub

a plus de chance de marcher, car autrement, c'est la feuille qui est active qui est utilisée, donc certainement la 1 ...
Bon courage

 

[Mazne]

Re : renvoyer une valeur vers une feuille spécifique.

Ah, ben super, c'est tout ce qu'il me fallait en effet !
Au cas où ça intéresserait d'autre personnes ton code est bon à un détail près,

k = Application.Sum(Range(Sheets("feuil2").Cells(i + 2, col), Sheets("feuil2").Cells(i + 13, col))) / 12

En tout cas, je te remercie ! Je vais enfin pouvoir avancer