Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<=" &
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement avec
les quote ". Mais même si j'ajoute des chr(34) de chaque côté du critère je
n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<=" &
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement avec
les quote ". Mais même si j'ajoute des chr(34) de chaque côté du critère je
n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<=" &
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement avec
les quote ". Mais même si j'ajoute des chr(34) de chaque côté du critère je
n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour,
As-tu essayé quelque chose comme ceci :
Dim MaDate As Date
MaDate = DateSerial(2010, 27, 4) 'La date que tu veux !
MsgBox Evaluate("SUMIFS(Sheet1!AO2:AO11414," & _
"Sheet1!AY2:AY11414,I16,Sheet1!" & _
"AE2:AE11414,""<=" & MaDate & """)")
"HD" a écrit dans le message de groupe de discussion :
hr6k5v$2cg2$
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
&
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
--
@+
HD
Bonjour,
As-tu essayé quelque chose comme ceci :
Dim MaDate As Date
MaDate = DateSerial(2010, 27, 4) 'La date que tu veux !
MsgBox Evaluate("SUMIFS(Sheet1!AO2:AO11414," & _
"Sheet1!AY2:AY11414,I16,Sheet1!" & _
"AE2:AE11414,""<=" & MaDate & """)")
"HD" <hd@anti.spam.fr> a écrit dans le message de groupe de discussion :
hr6k5v$2cg2$1@saria.nerim.net...
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
&
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
--
@+
HD
Bonjour,
As-tu essayé quelque chose comme ceci :
Dim MaDate As Date
MaDate = DateSerial(2010, 27, 4) 'La date que tu veux !
MsgBox Evaluate("SUMIFS(Sheet1!AO2:AO11414," & _
"Sheet1!AY2:AY11414,I16,Sheet1!" & _
"AE2:AE11414,""<=" & MaDate & """)")
"HD" a écrit dans le message de groupe de discussion :
hr6k5v$2cg2$
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
&
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
--
@+
HD
Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
DanielBonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
Daniel
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
DanielBonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour Daniel.C,
J'ai en fait fait plusieurs essais avec Da2... Da2 étant défini comme une
variable Date.
J'ai testé:
Da2 = CDate(a2)
Ce qui me renvoi 0
J'ai aussi essayé de définir la date autrement via
Da2 = DateSerial (2008,6,30)
Mais j'obtiens toujours 0
--
@+
HD
"Daniel.C" a écrit dans le message de news:
%Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
DanielBonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour Daniel.C,
J'ai en fait fait plusieurs essais avec Da2... Da2 étant défini comme une
variable Date.
J'ai testé:
Da2 = CDate(a2)
Ce qui me renvoi 0
J'ai aussi essayé de définir la date autrement via
Da2 = DateSerial (2008,6,30)
Mais j'obtiens toujours 0
--
@+
HD
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23yVgOxg5KHA.4740@TK2MSFTNGP06.phx.gbl...
Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
Daniel
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour Daniel.C,
J'ai en fait fait plusieurs essais avec Da2... Da2 étant défini comme une
variable Date.
J'ai testé:
Da2 = CDate(a2)
Ce qui me renvoi 0
J'ai aussi essayé de définir la date autrement via
Da2 = DateSerial (2008,6,30)
Mais j'obtiens toujours 0
--
@+
HD
"Daniel.C" a écrit dans le message de news:
%Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
DanielBonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Essaie comme string, format mm/dd/yyyy
DanielBonjour Daniel.C,
J'ai en fait fait plusieurs essais avec Da2... Da2 étant défini comme une
variable Date.
J'ai testé:
Da2 = CDate(a2)
Ce qui me renvoi 0
J'ai aussi essayé de définir la date autrement via
Da2 = DateSerial (2008,6,30)
Mais j'obtiens toujours 0
--
@+
HD
"Daniel.C" a écrit dans le message de news:
%Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
DanielBonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Essaie comme string, format mm/dd/yyyy
Daniel
Bonjour Daniel.C,
J'ai en fait fait plusieurs essais avec Da2... Da2 étant défini comme une
variable Date.
J'ai testé:
Da2 = CDate(a2)
Ce qui me renvoi 0
J'ai aussi essayé de définir la date autrement via
Da2 = DateSerial (2008,6,30)
Mais j'obtiens toujours 0
--
@+
HD
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23yVgOxg5KHA.4740@TK2MSFTNGP06.phx.gbl...
Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
Daniel
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Essaie comme string, format mm/dd/yyyy
DanielBonjour Daniel.C,
J'ai en fait fait plusieurs essais avec Da2... Da2 étant défini comme une
variable Date.
J'ai testé:
Da2 = CDate(a2)
Ce qui me renvoi 0
J'ai aussi essayé de définir la date autrement via
Da2 = DateSerial (2008,6,30)
Mais j'obtiens toujours 0
--
@+
HD
"Daniel.C" a écrit dans le message de news:
%Bonjour.
Comment as-tu défini la variable Da2 ?
Cordialement.
DanielBonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA (par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
& Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
Bonjour,
As-tu essayé quelque chose comme ceci :
Dim MaDate As Date
MaDate = DateSerial(2010, 27, 4) 'La date que tu veux !
MsgBox Evaluate("SUMIFS(Sheet1!AO2:AO11414," & _
"Sheet1!AY2:AY11414,I16,Sheet1!" & _
"AE2:AE11414,""<=" & MaDate & """)")
"HD" a écrit dans le message de groupe de discussion :
hr6k5v$2cg2$
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
&
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
--
@+
HD
Bonjour,
As-tu essayé quelque chose comme ceci :
Dim MaDate As Date
MaDate = DateSerial(2010, 27, 4) 'La date que tu veux !
MsgBox Evaluate("SUMIFS(Sheet1!AO2:AO11414," & _
"Sheet1!AY2:AY11414,I16,Sheet1!" & _
"AE2:AE11414,""<=" & MaDate & """)")
"HD" <hd@anti.spam.fr> a écrit dans le message de groupe de discussion :
hr6k5v$2cg2$1@saria.nerim.net...
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
&
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
--
@+
HD
Bonjour,
As-tu essayé quelque chose comme ceci :
Dim MaDate As Date
MaDate = DateSerial(2010, 27, 4) 'La date que tu veux !
MsgBox Evaluate("SUMIFS(Sheet1!AO2:AO11414," & _
"Sheet1!AY2:AY11414,I16,Sheet1!" & _
"AE2:AE11414,""<=" & MaDate & """)")
"HD" a écrit dans le message de groupe de discussion :
hr6k5v$2cg2$
Bonjour,
J'ai un souci avec la fonction "SOMME.SI.ENS". Je souhaite l'utiliser en
VBA
(par souci de rapidité d'exécution) j'ai donc la ligne suivant :
Application.WorksheetFunction.SumIfs(Sheets(NomD).Columns(ColCredit),
Sheets(NomD).Columns(ColCpt1), nCpt1, Sheets(NomD).Columns(ColDate), "<="
&
Da2)
Je n'obtiens rien... alors que si je tape la fonction à la main :
=SOMME.SI.ENS(Sheet1!AO2:AO11414;Sheet1!AY2:AY11414;I16;Sheet1!AE2:AE11414;"<0/6/2008")
Là j'obtiens bien une valeur... Le souci se pose donc vraissemblablement
avec les quote ". Mais même si j'ajoute des chr(34) de chaque côté du
critère je n'ai toujours rien.
Auriez vous une solution ?
Merci d'avance pour votre aide
--
@+
HD