Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro solution

macro solution

42 réponses
Avatar
j-claude
Bonjour,


Sur une feuille de calcul (feuil1) , j'ai une cellule dont le résultat
change plusieurs fois dans la journée suivant les valeurs entrées dans d'
autres cellules.
Ce que je voudrais : récupérer dans une autre feuille(par ex feuil2) , la
dernière valeur de la journée ainsi que la dernière valeur de la journée
suivante dans une cellule sur la ligne en dessous et ainsi de suite jusqu'à
la fin du mois.
Comme il s'agit de respecter une moyenne d'encaisse , il me faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée sur
la nouvelle feuille,la moyenne des valeurs des cellules précédentes.

Le fin du fin serait que les dates s'affichent dans les cellules
adjacentes (automatiquement avec la date système).

Ainsi : feuil1 ->>>> C1 (valeur change plrs fois /jr. ; récup.dernière
valeur).

Je voudrais :

Sur feuil2 ->>>>par ex.

01/07/04 (en A1)
copie valeur de feuil1 !C1 (en B1)
02/07/04 (en A2)
copie valeur de feuil1 !C1 (en B2)
03/07/04 (en A3)
copie valeur de feuil1 !C1 (en B3
affichage dans une cellule quelconque de la
moyenne , au jour le jour , des valeurs précédentes.


J'ai cherché dans les bouquins avec ou sans lutrin (bonsoir Serge :=) ,
dans ce forum et ailleurs , mais malgré la verte couleur de l'espoir , je
fais chou blanc.


Votre aide serait la bienvenue

cordialement,

j-claude
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
LeSteph
Bonsoir JClaude,
Comme il s'agit de respecter une moyenne d'encaisse , il me
faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée sur
la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................


Alors essaie la formule que je t'ai proposée mais
tu n'as pas répondu pour les samedi dimanche ?

"j-claude" a écrit dans le message de
news:4107e8b8$0$29369$
bonsoir Thierry , Le Steph et les autres...

moi , dans mon sac, je sens de plus en plus de noeuds , je préfèrerais y
trouver du vin (mais j'entends déjà les quolibets)...

pour ta macro , tu n'as pas oeuvré en vain car on frise la réussite!

quand je change de mois, j'ai bien la moyenne des jours du mois
précédent dans "C".Ce qui est très bien.

juste une petite modif. allant dans le sens de ma première
question qii était

......Comme il s'agit de respecter une moyenne d'encaisse , il
me

faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée sur
la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................

en effet il faut que je respecte une valeur moyenne d'encaisse et
donc

que chaque jour du mois , je sache où j'en suis...

ex . le 092/0704 il me faut la moyenne des 8 premiers jours de juillet
(affichée en"C")
le 28 /07/04 il me faut la moyenne des 27 jours
précédents...etc...


avec ta macro il faut que j'attende le premier jour du mois
suivant

pour avoir le résultat de la moyenne du mois d'avant (trop tard pour
rectifier le tir si je dépasse trop).

si ça devient trop escagassant, laisse , ça ne fait rien , je ferai
comme dit plus haut: j'entre chaque mois une nouvelle formule avec la
plage

de cellules du mois en cours de la colonne "B".

Le top serait la macro,

merci d'essayer encore...

à +
cordialement
j-cl.









"isabelle" a écrit dans le message news:

:-)))c'est comme ca que dit, Thierry ?
la main pris dans le sac ;-)
isabelle


.............= Evaluate("sumproduct


Tiens donc !
Et qui plus est avec une pincée d'Evaluate !
C'est pas parceque tu caches "ça" sous une "soutane anglaise" qu'on a
pas repéré


!

AV









Avatar
j-claude
Bonsoir Le Steph,

j'ai essayé ta formule

En c2 formule²

En c3 formule:

=SI(B3<>"";SI(MOIS(A2)<>MOIS(A3);B3;((C2*JOUR(A2)+(B3))/JOUR(A3)));"")


mais ça na marche pas , je n'ai peut être pas
compris comment l'exploiter??

avec la méthode que tu m'as donnée au début , les valeurs
s'inscrivent bien à côté des jours travaillés ; mais je ne vois pas comment
adapter ta formule ?

si tu peux m'en dire un peu plus,

et à +...



















"LeSteph" a écrit dans le message news:
4107f4bb$0$29382$
Bonsoir JClaude,
Comme il s'agit de respecter une moyenne d'encaisse , il me
faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée
sur


la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................


Alors essaie la formule que je t'ai proposée mais
tu n'as pas répondu pour les samedi dimanche ?

"j-claude" a écrit dans le message de
news:4107e8b8$0$29369$
bonsoir Thierry , Le Steph et les autres...

moi , dans mon sac, je sens de plus en plus de noeuds , je préfèrerais y
trouver du vin (mais j'entends déjà les quolibets)...

pour ta macro , tu n'as pas oeuvré en vain car on frise la réussite!

quand je change de mois, j'ai bien la moyenne des jours du mois
précédent dans "C".Ce qui est très bien.

juste une petite modif. allant dans le sens de ma première
question qii était

......Comme il s'agit de respecter une moyenne d'encaisse , il
me

faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée
sur


la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................

en effet il faut que je respecte une valeur moyenne d'encaisse et
donc

que chaque jour du mois , je sache où j'en suis...

ex . le 092/0704 il me faut la moyenne des 8 premiers jours de
juillet


(affichée en"C")
le 28 /07/04 il me faut la moyenne des 27 jours
précédents...etc...


avec ta macro il faut que j'attende le premier jour du mois
suivant

pour avoir le résultat de la moyenne du mois d'avant (trop tard pour
rectifier le tir si je dépasse trop).

si ça devient trop escagassant, laisse , ça ne fait rien , je
ferai


comme dit plus haut: j'entre chaque mois une nouvelle formule avec la
plage

de cellules du mois en cours de la colonne "B".

Le top serait la macro,

merci d'essayer encore...

à +
cordialement
j-cl.









"isabelle" a écrit dans le message news:

:-)))c'est comme ca que dit, Thierry ?
la main pris dans le sac ;-)
isabelle


.............= Evaluate("sumproduct


Tiens donc !
Et qui plus est avec une pincée d'Evaluate !
C'est pas parceque tu caches "ça" sous une "soutane anglaise" qu'on
a




pas repéré
!

AV













Avatar
LeSteph
Il te suffit de recopier vers le bas
voici l'exemple de résultat
Date du jour Montant moyenne
jeu 15/07/2004 291,19 291,19
ven 16/07/2004 382,65 296,91
sam 17/07/2004 959,32 335,87
dim 18/07/2004 964,91 370,82
lun 19/07/2004 775,75 392,13
mar 20/07/2004 763,41 410,69
mer 21/07/2004 792,32 428,87

Dans le cas présent on démare du 15 donc
la moyenne du jeudi15 coeff15+le chiffredu vendredi16
le tout divisé par 16 donne la moyenne du jeudi 16..etc..

D'où ma question sur les samedi dimanche...

"j-claude" a écrit dans le message de
news:41080b14$0$490$
Bonsoir Le Steph,

j'ai essayé ta formule

En c2 formule²

En c3 formule:

=SI(B3<>"";SI(MOIS(A2)<>MOIS(A3);B3;((C2*JOUR(A2)+(B3))/JOUR(A3)));"")


mais ça na marche pas , je n'ai peut être pas
compris comment l'exploiter??

avec la méthode que tu m'as donnée au début , les valeurs
s'inscrivent bien à côté des jours travaillés ; mais je ne vois pas
comment

adapter ta formule ?

si tu peux m'en dire un peu plus,

et à +...



















"LeSteph" a écrit dans le message news:
4107f4bb$0$29382$
Bonsoir JClaude,
Comme il s'agit de respecter une moyenne d'encaisse , il me
faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée
sur


la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................


Alors essaie la formule que je t'ai proposée mais
tu n'as pas répondu pour les samedi dimanche ?

"j-claude" a écrit dans le message de
news:4107e8b8$0$29369$
bonsoir Thierry , Le Steph et les autres...

moi , dans mon sac, je sens de plus en plus de noeuds , je préfèrerais
y



trouver du vin (mais j'entends déjà les quolibets)...

pour ta macro , tu n'as pas oeuvré en vain car on frise la réussite!

quand je change de mois, j'ai bien la moyenne des jours du mois
précédent dans "C".Ce qui est très bien.

juste une petite modif. allant dans le sens de ma première
question qii était

......Comme il s'agit de respecter une moyenne d'encaisse ,
il



me
faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée
sur


la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................

en effet il faut que je respecte une valeur moyenne d'encaisse et
donc

que chaque jour du mois , je sache où j'en suis...

ex . le 092/0704 il me faut la moyenne des 8 premiers jours de
juillet


(affichée en"C")
le 28 /07/04 il me faut la moyenne des 27 jours
précédents...etc...


avec ta macro il faut que j'attende le premier jour du mois
suivant

pour avoir le résultat de la moyenne du mois d'avant (trop tard pour
rectifier le tir si je dépasse trop).

si ça devient trop escagassant, laisse , ça ne fait rien , je
ferai


comme dit plus haut: j'entre chaque mois une nouvelle formule avec la
plage

de cellules du mois en cours de la colonne "B".

Le top serait la macro,

merci d'essayer encore...

à +
cordialement
j-cl.









"isabelle" a écrit dans le message news:

:-)))c'est comme ca que dit, Thierry ?
la main pris dans le sac ;-)
isabelle


.............= Evaluate("sumproduct


Tiens donc !
Et qui plus est avec une pincée d'Evaluate !
C'est pas parceque tu caches "ça" sous une "soutane anglaise"
qu'on





a
pas repéré
!

AV

















Avatar
GD
'tain !!!!
le bonnezeaux l'est costaud cet été,
l'enfant de choeur l'a renversé les burettes su ch' coucou,
mînme l' pindule l'a un coup dans le scion ...

enfin bon réveillon mon père....
;-)))


dans news:uOLA$,
ru-th typed:
Les problèmes d'encaisse, les problèmes d'encaisse... du moment qu'il
y ait assez de sous à la fin du mois pour ... commencer le mois
suivant
Excel est avant tout fait pour faire de .....la poésie ou alors t'es
chirogourdiste ou cruciverbiste (je ne sais plus trop, avec le
bonnezeaux et le petit rosé catalan de ce soir)
m'enfin
les moyennes du mois en colonne C et les moyennes complètes en
colonne D, le tout en instant "tané" (pleine vache) et en utilisant
un machin aussi limité que sommeprod (alors qu'avec un "moyenne si"
susse été bien plus joli)

Private Sub Worksheet_Calculate()
On Error Resume Next
With Sheets("feuil2")
If [c1] <> valeur Then
ligne = .[a65536].End(xlUp).Row + 1
If Int(Now) = Int([max(feuil2!a:a)]) Then ligne = ligne - 1
End If
.Range("a" & ligne) = Now
.Range("b" & ligne) = [c1]
'moyenne du mois en C
repa = Month(.Range("a" & ligne))
repb = Year(.Range("a" & ligne))
.Range("c" & ligne) = _
Evaluate("sumproduct((month(feuil2!A1:a65000)=" & repa &
" )*(year(feuil2!A1:a65000)=" & repb & " ) *(feuil2!b1:b65000))/
sumproduct((month(feuil2!A1:a65000)=" & repa &
")*(year(feuil2!A1:a65000)=" & repb & "))")
'moyenne générique en D
.Range("d" & ligne) = [AVERAGE(feuil2!B1:B65000)]
valeur = [c1]
End With
End Sub

;-))
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"j-claude" a écrit dans le message de
news:4107e8b8$0$29369$
bonsoir Thierry , Le Steph et les autres...

moi , dans mon sac, je sens de plus en plus de noeuds , je
préfèrerais y trouver du vin (mais j'entends déjà les quolibets)...

pour ta macro , tu n'as pas oeuvré en vain car on frise la réussite!

quand je change de mois, j'ai bien la moyenne des jours du mois
précédent dans "C".Ce qui est très bien.

juste une petite modif. allant dans le sens de ma
première question qii était

......Comme il s'agit de respecter une moyenne d'encaisse
, il me faudrait
également sous la dernière cellule (ou sur tte autre cellule)
affichée sur la nouvelle feuille,la moyenne des valeurs des cellules
précédentes. ..................

en effet il faut que je respecte une valeur moyenne d'encaisse
et donc que chaque jour du mois , je sache où j'en suis...

ex . le 092/0704 il me faut la moyenne des 8 premiers jours de
juillet (affichée en"C")
le 28 /07/04 il me faut la moyenne des 27 jours
précédents...etc...


avec ta macro il faut que j'attende le premier jour du mois
suivant pour avoir le résultat de la moyenne du mois d'avant (trop
tard pour rectifier le tir si je dépasse trop).

si ça devient trop escagassant, laisse , ça ne fait rien , je
ferai comme dit plus haut: j'entre chaque mois une nouvelle formule
avec la plage de cellules du mois en cours de la colonne "B".

Le top serait la macro,

merci d'essayer encore...

à +
cordialement
j-cl.









"isabelle" a écrit dans le message
news:
:-)))c'est comme ca que dit, Thierry ?
la main pris dans le sac ;-)
isabelle


.............= Evaluate("sumproduct


Tiens donc !
Et qui plus est avec une pincée d'Evaluate !
C'est pas parceque tu caches "ça" sous une "soutane anglaise"
qu'on a pas repéré !

AV









Avatar
ChrisV
Salut Thierry,

... du moment qu'il y ait
assez de sous à la fin du mois pour ... commencer le mois suivant


Mais de là à "Evaluer" des projections sur 5 mois...
(pense à régler ta date system...)
;-)


ChrisV


"ru-th" a écrit dans le message de
news:uOLA$
Les problèmes d'encaisse, les problèmes d'encaisse... du moment qu'il y
ait

assez de sous à la fin du mois pour ... commencer le mois suivant
Excel est avant tout fait pour faire de .....la poésie ou alors t'es
chirogourdiste ou cruciverbiste (je ne sais plus trop, avec le bonnezeaux
et

le petit rosé catalan de ce soir)
m'enfin
les moyennes du mois en colonne C et les moyennes complètes en colonne D,
le

tout en instant "tané" (pleine vache) et en utilisant un machin aussi
limité

que sommeprod (alors qu'avec un "moyenne si" susse été bien plus joli)

Private Sub Worksheet_Calculate()
On Error Resume Next
With Sheets("feuil2")
If [c1] <> valeur Then
ligne = .[a65536].End(xlUp).Row + 1
If Int(Now) = Int([max(feuil2!a:a)]) Then ligne = ligne - 1
End If
.Range("a" & ligne) = Now
.Range("b" & ligne) = [c1]
'moyenne du mois en C
repa = Month(.Range("a" & ligne))
repb = Year(.Range("a" & ligne))
.Range("c" & ligne) = _
Evaluate("sumproduct((month(feuil2!A1:a65000)=" & repa &
" )*(year(feuil2!A1:a65000)=" & repb & " ) *(feuil2!b1:b65000))/
sumproduct((month(feuil2!A1:a65000)=" & repa &
")*(year(feuil2!A1:a65000)="

& repb & "))")
'moyenne générique en D
.Range("d" & ligne) = [AVERAGE(feuil2!B1:B65000)]
valeur = [c1]
End With
End Sub

;-))
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"j-claude" a écrit dans le message de
news:4107e8b8$0$29369$
bonsoir Thierry , Le Steph et les autres...

moi , dans mon sac, je sens de plus en plus de noeuds , je préfèrerais y
trouver du vin (mais j'entends déjà les quolibets)...

pour ta macro , tu n'as pas oeuvré en vain car on frise la réussite!

quand je change de mois, j'ai bien la moyenne des jours du mois
précédent dans "C".Ce qui est très bien.

juste une petite modif. allant dans le sens de ma première
question qii était

......Comme il s'agit de respecter une moyenne d'encaisse , il
me

faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée
sur


la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................

en effet il faut que je respecte une valeur moyenne d'encaisse et
donc

que chaque jour du mois , je sache où j'en suis...

ex . le 092/0704 il me faut la moyenne des 8 premiers jours de
juillet


(affichée en"C")
le 28 /07/04 il me faut la moyenne des 27 jours
précédents...etc...


avec ta macro il faut que j'attende le premier jour du mois
suivant

pour avoir le résultat de la moyenne du mois d'avant (trop tard pour
rectifier le tir si je dépasse trop).

si ça devient trop escagassant, laisse , ça ne fait rien , je
ferai


comme dit plus haut: j'entre chaque mois une nouvelle formule avec la
plage

de cellules du mois en cours de la colonne "B".

Le top serait la macro,

merci d'essayer encore...

à +
cordialement
j-cl.









"isabelle" a écrit dans le message news:

:-)))c'est comme ca que dit, Thierry ?
la main pris dans le sac ;-)
isabelle


.............= Evaluate("sumproduct


Tiens donc !
Et qui plus est avec une pincée d'Evaluate !
C'est pas parceque tu caches "ça" sous une "soutane anglaise" qu'on
a




pas repéré
!

AV













Avatar
AV
t'as lu la dernière phrase ?


Achhh... j'étais même pas arrivé jusque là, tellement la surprise......

AV

Avatar
ru-th
arch !
je m'en suis rendu juste après le départ du message !


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ChrisV" a écrit dans le message de
news:%
Salut Thierry,

... du moment qu'il y ait
assez de sous à la fin du mois pour ... commencer le mois suivant


Mais de là à "Evaluer" des projections sur 5 mois...
(pense à régler ta date system...)
;-)


ChrisV


"ru-th" a écrit dans le message de
news:uOLA$
Les problèmes d'encaisse, les problèmes d'encaisse... du moment qu'il y
ait

assez de sous à la fin du mois pour ... commencer le mois suivant
Excel est avant tout fait pour faire de .....la poésie ou alors t'es
chirogourdiste ou cruciverbiste (je ne sais plus trop, avec le
bonnezeaux


et
le petit rosé catalan de ce soir)
m'enfin
les moyennes du mois en colonne C et les moyennes complètes en colonne
D,


le
tout en instant "tané" (pleine vache) et en utilisant un machin aussi
limité

que sommeprod (alors qu'avec un "moyenne si" susse été bien plus joli)

Private Sub Worksheet_Calculate()
On Error Resume Next
With Sheets("feuil2")
If [c1] <> valeur Then
ligne = .[a65536].End(xlUp).Row + 1
If Int(Now) = Int([max(feuil2!a:a)]) Then ligne = ligne - 1
End If
.Range("a" & ligne) = Now
.Range("b" & ligne) = [c1]
'moyenne du mois en C
repa = Month(.Range("a" & ligne))
repb = Year(.Range("a" & ligne))
.Range("c" & ligne) = _
Evaluate("sumproduct((month(feuil2!A1:a65000)=" & repa &
" )*(year(feuil2!A1:a65000)=" & repb & " ) *(feuil2!b1:b65000))/
sumproduct((month(feuil2!A1:a65000)=" & repa &
")*(year(feuil2!A1:a65000)="

& repb & "))")
'moyenne générique en D
.Range("d" & ligne) = [AVERAGE(feuil2!B1:B65000)]
valeur = [c1]
End With
End Sub

;-))
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"j-claude" a écrit dans le message de
news:4107e8b8$0$29369$
bonsoir Thierry , Le Steph et les autres...

moi , dans mon sac, je sens de plus en plus de noeuds , je préfèrerais
y



trouver du vin (mais j'entends déjà les quolibets)...

pour ta macro , tu n'as pas oeuvré en vain car on frise la réussite!

quand je change de mois, j'ai bien la moyenne des jours du mois
précédent dans "C".Ce qui est très bien.

juste une petite modif. allant dans le sens de ma première
question qii était

......Comme il s'agit de respecter une moyenne d'encaisse ,
il



me
faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée
sur


la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................

en effet il faut que je respecte une valeur moyenne d'encaisse et
donc

que chaque jour du mois , je sache où j'en suis...

ex . le 092/0704 il me faut la moyenne des 8 premiers jours de
juillet


(affichée en"C")
le 28 /07/04 il me faut la moyenne des 27 jours
précédents...etc...


avec ta macro il faut que j'attende le premier jour du mois
suivant

pour avoir le résultat de la moyenne du mois d'avant (trop tard pour
rectifier le tir si je dépasse trop).

si ça devient trop escagassant, laisse , ça ne fait rien , je
ferai


comme dit plus haut: j'entre chaque mois une nouvelle formule avec la
plage

de cellules du mois en cours de la colonne "B".

Le top serait la macro,

merci d'essayer encore...

à +
cordialement
j-cl.









"isabelle" a écrit dans le message news:

:-)))c'est comme ca que dit, Thierry ?
la main pris dans le sac ;-)
isabelle


.............= Evaluate("sumproduct


Tiens donc !
Et qui plus est avec une pincée d'Evaluate !
C'est pas parceque tu caches "ça" sous une "soutane anglaise"
qu'on





a
pas repéré
!

AV

















Avatar
ru-th
arch !
je m'en suis rendu juste après le départ du message !


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ChrisV" a écrit dans le message de
news:%
Salut Thierry,

... du moment qu'il y ait
assez de sous à la fin du mois pour ... commencer le mois suivant


Mais de là à "Evaluer" des projections sur 5 mois...
(pense à régler ta date system...)
;-)


ChrisV


"ru-th" a écrit dans le message de
news:uOLA$
Les problèmes d'encaisse, les problèmes d'encaisse... du moment qu'il y
ait

assez de sous à la fin du mois pour ... commencer le mois suivant
Excel est avant tout fait pour faire de .....la poésie ou alors t'es
chirogourdiste ou cruciverbiste (je ne sais plus trop, avec le
bonnezeaux


et
le petit rosé catalan de ce soir)
m'enfin
les moyennes du mois en colonne C et les moyennes complètes en colonne
D,


le
tout en instant "tané" (pleine vache) et en utilisant un machin aussi
limité

que sommeprod (alors qu'avec un "moyenne si" susse été bien plus joli)

Private Sub Worksheet_Calculate()
On Error Resume Next
With Sheets("feuil2")
If [c1] <> valeur Then
ligne = .[a65536].End(xlUp).Row + 1
If Int(Now) = Int([max(feuil2!a:a)]) Then ligne = ligne - 1
End If
.Range("a" & ligne) = Now
.Range("b" & ligne) = [c1]
'moyenne du mois en C
repa = Month(.Range("a" & ligne))
repb = Year(.Range("a" & ligne))
.Range("c" & ligne) = _
Evaluate("sumproduct((month(feuil2!A1:a65000)=" & repa &
" )*(year(feuil2!A1:a65000)=" & repb & " ) *(feuil2!b1:b65000))/
sumproduct((month(feuil2!A1:a65000)=" & repa &
")*(year(feuil2!A1:a65000)="

& repb & "))")
'moyenne générique en D
.Range("d" & ligne) = [AVERAGE(feuil2!B1:B65000)]
valeur = [c1]
End With
End Sub

;-))
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"j-claude" a écrit dans le message de
news:4107e8b8$0$29369$
bonsoir Thierry , Le Steph et les autres...

moi , dans mon sac, je sens de plus en plus de noeuds , je préfèrerais
y



trouver du vin (mais j'entends déjà les quolibets)...

pour ta macro , tu n'as pas oeuvré en vain car on frise la réussite!

quand je change de mois, j'ai bien la moyenne des jours du mois
précédent dans "C".Ce qui est très bien.

juste une petite modif. allant dans le sens de ma première
question qii était

......Comme il s'agit de respecter une moyenne d'encaisse ,
il



me
faudrait
également sous la dernière cellule (ou sur tte autre cellule) affichée
sur


la nouvelle feuille,la moyenne des valeurs des cellules précédentes.
..................

en effet il faut que je respecte une valeur moyenne d'encaisse et
donc

que chaque jour du mois , je sache où j'en suis...

ex . le 092/0704 il me faut la moyenne des 8 premiers jours de
juillet


(affichée en"C")
le 28 /07/04 il me faut la moyenne des 27 jours
précédents...etc...


avec ta macro il faut que j'attende le premier jour du mois
suivant

pour avoir le résultat de la moyenne du mois d'avant (trop tard pour
rectifier le tir si je dépasse trop).

si ça devient trop escagassant, laisse , ça ne fait rien , je
ferai


comme dit plus haut: j'entre chaque mois une nouvelle formule avec la
plage

de cellules du mois en cours de la colonne "B".

Le top serait la macro,

merci d'essayer encore...

à +
cordialement
j-cl.









"isabelle" a écrit dans le message news:

:-)))c'est comme ca que dit, Thierry ?
la main pris dans le sac ;-)
isabelle


.............= Evaluate("sumproduct


Tiens donc !
Et qui plus est avec une pincée d'Evaluate !
C'est pas parceque tu caches "ça" sous une "soutane anglaise"
qu'on





a
pas repéré
!

AV

















Avatar
j-claude
'mande pardon de m'immiscer dans le fil, sur la pointe de mes bottes
,(car , moi aussi je suis un rural).

juste pour savoir si tu as testé la dernière macro, car chez
moi, j'ai beau mettre un peu de poésie dedans , il y a la partie suivante
qui ne rime pas avec le reste:
'moyenne du mois en C
repa = Month(.Range("a" & ligne))
repb = Year(.Range("a" & ligne))
.Range("c" & ligne) = _
Evaluate("sumproduct((month(feuil2!A1:a65000)=" & repa &
" )*(year(feuil2!A1:a65000)=" & repb & " ) *(feuil2!b1:b65000))/
sumproduct((month(feuil2!A1:a65000)=" & repa &
")*(year(feuil2!A1:a65000)=" & repb & "))")



j'ai beau tenter les césures mais au bout c'est toujours la
déconfiture (dans ma rurale lorraine , celle de groseilles est d'ailleurs
pas mal, cette année ;-)

en fait , la colonne "c" reste vide...

il y a des messages d'erreur sur sumproduct et d'autres...


Rappel : on est bien d'accord même si tu sembles réticent au manque de
poésie d'une encaisse (normal puisqu'il n'y a ni Rimbaud ni Baudelaire que
ça a inspiré).

en "A" la date OK

en "B" la dernière valeur du jour OK

en "C" la moyenne des valeurs des cellules précédentes du
mois "EN COURS".(ainsi le 1 aout , le compteur de la moyenne doit se
remettre à 0. pas
OK

en "D" ton average est optionnel car ça me donne la moyenne de
TOUT ce qui précède. je prends qd. même.




j'insiste un peu car comme diraient certains gardiens:
dans notre métier on est si près du...


à+ ???


























"AV" a écrit dans le message news:

t'as lu la dernière phrase ?


Achhh... j'étais même pas arrivé jusque là, tellement la surprise......

AV





Avatar
ru-th
voui, j'ai testé jusqu'en décembre

bon, je retente l'envoi
Private Sub Worksheet_Calculate()
On Error Resume Next
With Sheets("feuil2")
If [c1] <> valeur Then
ligne = .[a65536].End(xlUp).Row + 1
If Int(Now) = Int([max(feuil2!a:a)]) Then ligne = ligne - 1
End If
.Range("a" & ligne) = Now
.Range("b" & ligne) = [c1]
'moyenne du mois en C
repa = Month(.Range("a" & ligne))
repb = Year(.Range("a" & ligne))
.Range("c" & ligne) = _
Evaluate("sumproduct((month (feuil2!A1:a65000)= " _
& repa & " )*(year(feuil2!A1:a65000)=" _
& repb & " ) *(feuil2!b1:b65000))/ sumproduct((month(feuil2!A1:a65000)=" _
& repa & _
")*(year(feuil2!A1:a65000)=" & repb & "))")
'moyenne générique en D
.Range("d" & ligne) = [AVERAGE(feuil2!B1:B65000)]
valeur = [c1]
End With
End Sub

sinon envoi, une adresse valide que je t'envoi le fichier test
en ôtant le machin

mais fais vite, je déconnecte pour cause de vacances pendant 15 jours, dans
les toutes prochaines heures
m'enfin y aura bien chiromachin pour prendre le relai, c'est d'ailleurs pour
cela que j'ai utilisé le sommeprod, histoire qu'ils sentent en confiance
;-))

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"j-claude" a écrit dans le message de
news:41090f65$0$24063$
'mande pardon de m'immiscer dans le fil, sur la pointe de mes bottes
,(car , moi aussi je suis un rural).

juste pour savoir si tu as testé la dernière macro, car
chez

moi, j'ai beau mettre un peu de poésie dedans , il y a la partie suivante
qui ne rime pas avec le reste:
'moyenne du mois en C
repa = Month(.Range("a" & ligne))
repb = Year(.Range("a" & ligne))
.Range("c" & ligne) = _
Evaluate("sumproduct((month(feuil2!A1:a65000)=" & repa &
" )*(year(feuil2!A1:a65000)=" & repb & " ) *(feuil2!b1:b65000))/
sumproduct((month(feuil2!A1:a65000)=" & repa &
")*(year(feuil2!A1:a65000)=" & repb & "))")



j'ai beau tenter les césures mais au bout c'est toujours
la

déconfiture (dans ma rurale lorraine , celle de groseilles est d'ailleurs
pas mal, cette année ;-)

en fait , la colonne "c" reste vide...

il y a des messages d'erreur sur sumproduct et d'autres...


Rappel : on est bien d'accord même si tu sembles réticent au manque de
poésie d'une encaisse (normal puisqu'il n'y a ni Rimbaud ni Baudelaire que
ça a inspiré).

en "A" la date OK

en "B" la dernière valeur du jour OK

en "C" la moyenne des valeurs des cellules précédentes du
mois "EN COURS".(ainsi le 1 aout , le compteur de la moyenne doit se
remettre à 0. pas
OK

en "D" ton average est optionnel car ça me donne la moyenne
de

TOUT ce qui précède. je prends qd. même.




j'insiste un peu car comme diraient certains gardiens:
dans notre métier on est si près du...


à+ ???


























"AV" a écrit dans le message news:

t'as lu la dernière phrase ?


Achhh... j'étais même pas arrivé jusque là, tellement la surprise......

AV









1 2 3 4 5