OVH Cloud OVH Cloud

une worksheetfunction que je n'arrive pas à faire tourner...

2 réponses
Avatar
Ricou
Bonjour à tous,

j'aimerais faire tourner une worksheetfunction. Le code que j'ai créé ne
fonctionne pas.
dans mes adresses de cellule, j'ai mis des "month(date)" pour que ma macro
fasse le calcul chaque mois (les feuilles sont organsées en mois par colonne
et réf par ligne).
Quelqu'un peut m'indiquer où ça cloche (c'est parce que je suis sur deux
feuilles différentes?)

sheets("Q annualisée").select
Cells(2, 12 + month(date)).Value =
WorksheetFunction.Sum(Sheets(1).Range(Cells(2, 17), Cells(2, 12 +
month(date)))) / (Month(Date) - 5)

Merci d'avance à tous

2 réponses

Avatar
anonymousA
bonjour,

si j'ai bien compris ce que que tu souhaites faire

with sheet(1).
WorksheetFunction.Sum(.Range(.Cells(2, 17), .Cells(2, 12 +
month(date)))) / (Month(Date) - 5)
end with

devrait mieux le faire

A+


Bonjour à tous,

j'aimerais faire tourner une worksheetfunction. Le code que j'ai créé ne
fonctionne pas.
dans mes adresses de cellule, j'ai mis des "month(date)" pour que ma macro
fasse le calcul chaque mois (les feuilles sont organsées en mois par colonne
et réf par ligne).
Quelqu'un peut m'indiquer où ça cloche (c'est parce que je suis sur deux
feuilles différentes?)

sheets("Q annualisée").select
Cells(2, 12 + month(date)).Value =
WorksheetFunction.Sum(Sheets(1).Range(Cells(2, 17), Cells(2, 12 +
month(date)))) / (Month(Date) - 5)

Merci d'avance à tous



Avatar
Ricou
Merci pour ta réponse mais je n'arrive pas vraiment à faire tourner la boucle
que tu me proposes.

en fait, j'aimerais qu'au mois de juillet, lorsque je lance la macro, le
calcul se fasse dans la cellule Cells(2, 12 + month(date)) de la feuille "Q
annualisée".

Ce calcul se présente ainsi. Dans la première feuille du classeur, on va
chercher les quantités mensuelles (de Cells(2, 17) à Cells(2, 12 +
month(date))) que l'on somme et on divise par le nombre de mois passés
(Month(Date)-5 car je ne commence pas exactement en début d'année pour ce
fichier).

j'ai ensuite fait un selection.autofill pour remplir la cellule où on entre
le calcul.

Merci


bonjour,

si j'ai bien compris ce que que tu souhaites faire

with sheet(1).
WorksheetFunction.Sum(.Range(.Cells(2, 17), .Cells(2, 12 +
month(date)))) / (Month(Date) - 5)
end with

devrait mieux le faire

A+


Bonjour à tous,

j'aimerais faire tourner une worksheetfunction. Le code que j'ai créé ne
fonctionne pas.
dans mes adresses de cellule, j'ai mis des "month(date)" pour que ma macro
fasse le calcul chaque mois (les feuilles sont organsées en mois par colonne
et réf par ligne).
Quelqu'un peut m'indiquer où ça cloche (c'est parce que je suis sur deux
feuilles différentes?)

sheets("Q annualisée").select
Cells(2, 12 + month(date)).Value =
WorksheetFunction.Sum(Sheets(1).Range(Cells(2, 17), Cells(2, 12 +
month(date)))) / (Month(Date) - 5)

Merci d'avance à tous