J'esp=E8re arriver =E0 la fin.... Voici: avec la colonne A,=20
des dates sont inscrites sous la forme mm dd yy. Ce que je=20
cherche =E0 avoir, c'est le nombre de jours que l'on a=20
distribu=E9 du travail. Donc, si plusieurs t=E2ches ont =E9t=E9=20
distribu=E9es une m=EAme journ=E9e, cette date ne doit=20
apparaitre qu'une fois dans le r=E9sultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le=20
r=E9sultat pour le mois en cours. Cependant, pour des fins=20
statistiques, j'ai besoin d'avoir les r=E9sultats de tous=20
les mois de l'ann=E9e courante affich=E9s dans les cellules=20
S1:S12. Voici ce que j'ai concoct=E9 jusqu'=E0 pr=E9sent.=20
Cependant Excel me donne comme r=E9sultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys
Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc.....
With ActiveSheet()
Mois =3D Month(Date)
Ligne =3D .[a65536].End(xlUp)(2).Row
Jan =3D DateSerial(Year(Date), 1, 0)
Feb =3D DateSerial(Year(Date), 2, 0)
etc......
Range("S1").Value =3D Evaluate("=3DSUM(1*ISNUMBER(MATCH(ROW("=20
& Jan & "),$A$8:$A$" & Ligne & ",0)))")
=20
End With
End Sub
On adapte donc (puisque tu écris en S1:S12) : With Range("S1") .FormulaArray = "=SUM(1*ISNUMBER(MATCH(ROW(INDIRECT(DATE(YEAR(" & _ "TODAY()),ROW(),1) & "":"" &DATE(YEAR(TODAY()),ROW()+1,0))),$A$8:$A$" & _ Ligne & ",0)))" .AutoFill Destination:=.Resize(12), Type:=xlFillDefault .Resize(12).Value = .Resize(12).Value End With
Salutations,
Daniel M.
"Denys" wrote in message news:6d1801c343e9$c32971a0$ Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A, des dates sont inscrites sous la forme mm dd yy. Ce que je cherche à avoir, c'est le nombre de jours que l'on a distribué du travail. Donc, si plusieurs tâches ont été distribuées une même journée, cette date ne doit apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le résultat pour le mois en cours. Cependant, pour des fins statistiques, j'ai besoin d'avoir les résultats de tous les mois de l'année courante affichés dans les cellules S1:S12. Voici ce que j'ai concocté jusqu'à présent. Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc..... With ActiveSheet() Mois = Month(Date) Ligne = .[a65536].End(xlUp)(2).Row Jan = DateSerial(Year(Date), 1, 0) Feb = DateSerial(Year(Date), 2, 0) etc...... Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW(" & Jan & "),$A$8:$A$" & Ligne & ",0)))")
On adapte donc (puisque tu écris en S1:S12) :
With Range("S1")
.FormulaArray = "=SUM(1*ISNUMBER(MATCH(ROW(INDIRECT(DATE(YEAR(" & _
"TODAY()),ROW(),1) & "":""
&DATE(YEAR(TODAY()),ROW()+1,0))),$A$8:$A$" & _
Ligne & ",0)))"
.AutoFill Destination:=.Resize(12), Type:=xlFillDefault
.Resize(12).Value = .Resize(12).Value
End With
Salutations,
Daniel M.
"Denys" <denys.perreault@rbc.com> wrote in message
news:6d1801c343e9$c32971a0$a401280a@phx.gbl...
Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A,
des dates sont inscrites sous la forme mm dd yy. Ce que je
cherche à avoir, c'est le nombre de jours que l'on a
distribué du travail. Donc, si plusieurs tâches ont été
distribuées une même journée, cette date ne doit
apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le
résultat pour le mois en cours. Cependant, pour des fins
statistiques, j'ai besoin d'avoir les résultats de tous
les mois de l'année courante affichés dans les cellules
S1:S12. Voici ce que j'ai concocté jusqu'à présent.
Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys
Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc.....
With ActiveSheet()
Mois = Month(Date)
Ligne = .[a65536].End(xlUp)(2).Row
Jan = DateSerial(Year(Date), 1, 0)
Feb = DateSerial(Year(Date), 2, 0)
etc......
Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW("
& Jan & "),$A$8:$A$" & Ligne & ",0)))")
On adapte donc (puisque tu écris en S1:S12) : With Range("S1") .FormulaArray = "=SUM(1*ISNUMBER(MATCH(ROW(INDIRECT(DATE(YEAR(" & _ "TODAY()),ROW(),1) & "":"" &DATE(YEAR(TODAY()),ROW()+1,0))),$A$8:$A$" & _ Ligne & ",0)))" .AutoFill Destination:=.Resize(12), Type:=xlFillDefault .Resize(12).Value = .Resize(12).Value End With
Salutations,
Daniel M.
"Denys" wrote in message news:6d1801c343e9$c32971a0$ Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A, des dates sont inscrites sous la forme mm dd yy. Ce que je cherche à avoir, c'est le nombre de jours que l'on a distribué du travail. Donc, si plusieurs tâches ont été distribuées une même journée, cette date ne doit apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le résultat pour le mois en cours. Cependant, pour des fins statistiques, j'ai besoin d'avoir les résultats de tous les mois de l'année courante affichés dans les cellules S1:S12. Voici ce que j'ai concocté jusqu'à présent. Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc..... With ActiveSheet() Mois = Month(Date) Ligne = .[a65536].End(xlUp)(2).Row Jan = DateSerial(Year(Date), 1, 0) Feb = DateSerial(Year(Date), 2, 0) etc...... Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW(" & Jan & "),$A$8:$A$" & Ligne & ",0)))")
End With End Sub
Denys
Salut Daniel,
Wow!!!! Même le dimanche tu me sauves la mise!!!! Hier c'était Denis Michon et aujourd'hui toi...
"Denys" wrote in message news:6d1801c343e9$c32971a0$ Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A, des dates sont inscrites sous la forme mm dd yy. Ce que je cherche à avoir, c'est le nombre de jours que l'on a distribué du travail. Donc, si plusieurs tâches ont été distribuées une même journée, cette date ne doit apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le résultat pour le mois en cours. Cependant, pour des fins statistiques, j'ai besoin d'avoir les résultats de tous les mois de l'année courante affichés dans les cellules S1:S12. Voici ce que j'ai concocté jusqu'à présent. Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc..... With ActiveSheet() Mois = Month(Date) Ligne = .[a65536].End(xlUp)(2).Row Jan = DateSerial(Year(Date), 1, 0) Feb = DateSerial(Year(Date), 2, 0) etc...... Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW(" & Jan & "),$A$8:$A$" & Ligne & ",0)))")
End With End Sub
.
Salut Daniel,
Wow!!!! Même le dimanche tu me sauves la mise!!!! Hier
c'était Denis Michon et aujourd'hui toi...
"Denys" <denys.perreault@rbc.com> wrote in message
news:6d1801c343e9$c32971a0$a401280a@phx.gbl...
Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A,
des dates sont inscrites sous la forme mm dd yy. Ce que je
cherche à avoir, c'est le nombre de jours que l'on a
distribué du travail. Donc, si plusieurs tâches ont été
distribuées une même journée, cette date ne doit
apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le
résultat pour le mois en cours. Cependant, pour des fins
statistiques, j'ai besoin d'avoir les résultats de tous
les mois de l'année courante affichés dans les cellules
S1:S12. Voici ce que j'ai concocté jusqu'à présent.
Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys
Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc.....
With ActiveSheet()
Mois = Month(Date)
Ligne = .[a65536].End(xlUp)(2).Row
Jan = DateSerial(Year(Date), 1, 0)
Feb = DateSerial(Year(Date), 2, 0)
etc......
Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW("
& Jan & "),$A$8:$A$" & Ligne & ",0)))")
"Denys" wrote in message news:6d1801c343e9$c32971a0$ Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A, des dates sont inscrites sous la forme mm dd yy. Ce que je cherche à avoir, c'est le nombre de jours que l'on a distribué du travail. Donc, si plusieurs tâches ont été distribuées une même journée, cette date ne doit apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le résultat pour le mois en cours. Cependant, pour des fins statistiques, j'ai besoin d'avoir les résultats de tous les mois de l'année courante affichés dans les cellules S1:S12. Voici ce que j'ai concocté jusqu'à présent. Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc..... With ActiveSheet() Mois = Month(Date) Ligne = .[a65536].End(xlUp)(2).Row Jan = DateSerial(Year(Date), 1, 0) Feb = DateSerial(Year(Date), 2, 0) etc...... Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW(" & Jan & "),$A$8:$A$" & Ligne & ",0)))")
End With End Sub
.
Daniel.M
Salut Serge,
Pourquoi? Faut pas. :-) C'est une belle petite formule matricielle, toute mignonne. :-))
Elle paraît un peu longue parce que je génère, dans la formule, les dates de début et fin de mois (au lieu de faire travailler Denys pour les coder à chaque fois). Enlève les 2 Date(Year(Today()),...,...) et elle te semblera beaucoup plus mince!.
Le reste c'est du petit code pour copier sur les 12 lignes et remplacer par les valeurs.
Salutations,
Daniel M.
"garnote" wrote in message news:91%Na.16814$
Ça me fout la trouille ce genre de code !
Serge
"Daniel.M" a écrit dans le message de news: urZMvb$
On adapte donc (puisque tu écris en S1:S12) : With Range("S1") .FormulaArray = "=SUM(1*ISNUMBER(MATCH(ROW(INDIRECT(DATE(YEAR(" & _ "TODAY()),ROW(),1) & "":"" &DATE(YEAR(TODAY()),ROW()+1,0))),$A$8:$A$" & _ Ligne & ",0)))" .AutoFill Destination:=.Resize(12), Type:=xlFillDefault .Resize(12).Value = .Resize(12).Value End With
Salutations,
Daniel M.
Salut Serge,
Pourquoi? Faut pas. :-)
C'est une belle petite formule matricielle, toute mignonne. :-))
Elle paraît un peu longue parce que je génère, dans la formule, les dates de
début et fin de mois (au lieu de faire travailler Denys pour les coder à
chaque fois).
Enlève les 2 Date(Year(Today()),...,...) et elle te semblera beaucoup plus
mince!.
Le reste c'est du petit code pour copier sur les 12 lignes et remplacer par
les valeurs.
Salutations,
Daniel M.
"garnote" <laogarno@globetrotter.net> wrote in message
news:91%Na.16814$q42.6252@charlie.risq.qc.ca...
Ça me fout la trouille ce genre de code !
Serge
"Daniel.M" <daniel.maher@bigfoot.com> a écrit dans le message de news:
urZMvb$QDHA.2636@TK2MSFTNGP10.phx.gbl...
On adapte donc (puisque tu écris en S1:S12) :
With Range("S1")
.FormulaArray = "=SUM(1*ISNUMBER(MATCH(ROW(INDIRECT(DATE(YEAR(" & _
"TODAY()),ROW(),1) & "":""
&DATE(YEAR(TODAY()),ROW()+1,0))),$A$8:$A$" & _
Ligne & ",0)))"
.AutoFill Destination:=.Resize(12), Type:=xlFillDefault
.Resize(12).Value = .Resize(12).Value
End With
Pourquoi? Faut pas. :-) C'est une belle petite formule matricielle, toute mignonne. :-))
Elle paraît un peu longue parce que je génère, dans la formule, les dates de début et fin de mois (au lieu de faire travailler Denys pour les coder à chaque fois). Enlève les 2 Date(Year(Today()),...,...) et elle te semblera beaucoup plus mince!.
Le reste c'est du petit code pour copier sur les 12 lignes et remplacer par les valeurs.
Salutations,
Daniel M.
"garnote" wrote in message news:91%Na.16814$
Ça me fout la trouille ce genre de code !
Serge
"Daniel.M" a écrit dans le message de news: urZMvb$
On adapte donc (puisque tu écris en S1:S12) : With Range("S1") .FormulaArray = "=SUM(1*ISNUMBER(MATCH(ROW(INDIRECT(DATE(YEAR(" & _ "TODAY()),ROW(),1) & "":"" &DATE(YEAR(TODAY()),ROW()+1,0))),$A$8:$A$" & _ Ligne & ",0)))" .AutoFill Destination:=.Resize(12), Type:=xlFillDefault .Resize(12).Value = .Resize(12).Value End With
Salutations,
Daniel M.
michdenis
Bonsoir Denys,
Je t'ai envoyé un fichier exemple avec la formule à Daniel.
Elle (la formule) fonctionne très bien !
Salutations!
"Denys" a écrit dans le message de news:6e7401c3440d$39a19420$ Rebonjour Daniel,
en appliquant le code Excel me donne l'erreur suivante:
compile error expected: ) tout de suite après le deuxième YEAR (sur la 3e ligne ci-bas)
.FormulaArray = "=SUM(1*ISNUMBER(MATCH(ROW(INDIRECT DATE (YEAR(" & "TODAY()),ROW(),1) & "":""" _ & DATE(YEAR(TODAY()),ROW()+1,0))),$A$8:$A$" & Ligne & ",0)))"
"Denys" wrote in message news:6d1801c343e9$c32971a0$ Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A, des dates sont inscrites sous la forme mm dd yy. Ce que je cherche à avoir, c'est le nombre de jours que l'on a distribué du travail. Donc, si plusieurs tâches ont été distribuées une même journée, cette date ne doit apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le résultat pour le mois en cours. Cependant, pour des fins statistiques, j'ai besoin d'avoir les résultats de tous les mois de l'année courante affichés dans les cellules S1:S12. Voici ce que j'ai concocté jusqu'à présent. Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc..... With ActiveSheet() Mois = Month(Date) Ligne = .[a65536].End(xlUp)(2).Row Jan = DateSerial(Year(Date), 1, 0) Feb = DateSerial(Year(Date), 2, 0) etc...... Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW(" & Jan & "),$A$8:$A$" & Ligne & ",0)))")
End With End Sub
.
Bonsoir Denys,
Je t'ai envoyé un fichier exemple avec la formule à Daniel.
Elle (la formule) fonctionne très bien !
Salutations!
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:6e7401c3440d$39a19420$a401280a@phx.gbl...
Rebonjour Daniel,
en appliquant le code Excel me donne l'erreur suivante:
compile error expected: ) tout de suite après le deuxième
YEAR (sur la 3e ligne ci-bas)
.FormulaArray = "=SUM(1*ISNUMBER(MATCH(ROW(INDIRECT DATE
(YEAR(" & "TODAY()),ROW(),1) & "":""" _
& DATE(YEAR(TODAY()),ROW()+1,0))),$A$8:$A$" & Ligne
& ",0)))"
"Denys" <denys.perreault@rbc.com> wrote in message
news:6d1801c343e9$c32971a0$a401280a@phx.gbl...
Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A,
des dates sont inscrites sous la forme mm dd yy. Ce que je
cherche à avoir, c'est le nombre de jours que l'on a
distribué du travail. Donc, si plusieurs tâches ont été
distribuées une même journée, cette date ne doit
apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le
résultat pour le mois en cours. Cependant, pour des fins
statistiques, j'ai besoin d'avoir les résultats de tous
les mois de l'année courante affichés dans les cellules
S1:S12. Voici ce que j'ai concocté jusqu'à présent.
Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys
Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc.....
With ActiveSheet()
Mois = Month(Date)
Ligne = .[a65536].End(xlUp)(2).Row
Jan = DateSerial(Year(Date), 1, 0)
Feb = DateSerial(Year(Date), 2, 0)
etc......
Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW("
& Jan & "),$A$8:$A$" & Ligne & ",0)))")
"Denys" wrote in message news:6d1801c343e9$c32971a0$ Bonjour à tous,
J'espère arriver à la fin.... Voici: avec la colonne A, des dates sont inscrites sous la forme mm dd yy. Ce que je cherche à avoir, c'est le nombre de jours que l'on a distribué du travail. Donc, si plusieurs tâches ont été distribuées une même journée, cette date ne doit apparaitre qu'une fois dans le résultat du mois.
Daniel M. m'avait fourni une solution qui me donnait le résultat pour le mois en cours. Cependant, pour des fins statistiques, j'ai besoin d'avoir les résultats de tous les mois de l'année courante affichés dans les cellules S1:S12. Voici ce que j'ai concocté jusqu'à présent. Cependant Excel me donne comme résultat #Value!
Quelqu'un saurait pourquoi?
Merci beaucoup...
Denys Sub JrsTravail()
Dim Jan As Long, Feb As Long, Mar As Long, etc..... With ActiveSheet() Mois = Month(Date) Ligne = .[a65536].End(xlUp)(2).Row Jan = DateSerial(Year(Date), 1, 0) Feb = DateSerial(Year(Date), 2, 0) etc...... Range("S1").Value = Evaluate("=SUM(1*ISNUMBER(MATCH(ROW(" & Jan & "),$A$8:$A$" & Ligne & ",0)))")
