Pb sum IF sur USF

[ConsultantJP]

Bonjour à tous,

Un truc tout bete que je n'arrive pas à faire : dans un usf à son ouverture je veux qu'il me fasse un calcul somme si.

J'ai essayé le code suivant ça ne marche pas...

Private Sub UserForm_Initialize()
Dim X, y

DateCE.Value = Application.Evaluate("WORKDAY(TODAY(),-1)")
DateCE = Format(DateCE, "dd/mm/yyyy")

   X = Sheets("Cumul Charge Entrante").Range("A2:A65536")
   y = Sheets("Cumul Charge Entrante").Range("M2:M65536")

MsgBox Application.WorksheetFunction.SumIf(X, DateCE.Value, y)

End Sub

 

[Hulk]

Re : Pb sum IF sur USF

Hello tout le monde, ConsultantJP,

Essaye ceci pour la MsgBox... sans garantie.

MsgBox Application.WorksheetFunction = (Range(X), DateCE.Value, Range(y))

Cdt, Hulk.

 

[vbacrumble]

Re : Pb sum IF sur USF

Bonjour


C'est un TextBox ?

DateCE.Value

EDITION: bonjour Job75 😉 (je dois être invisible )

 

[job75]

Re : Pb sum IF sur USF

Bonjour ConsultantJP, Hulk,

X et Y doivent être des variables Range. Il faut donc les définir par

Set X =....
Set Y = ...

Edit 1 : salut vbacrumble, excuse-moi, par rafraichi...

Edit 2: de plus il faut probablement écrire :

MsgBox Application.WorksheetFunction.SumIf(X, [COLOR="Red"]CDate[/COLOR](DateCE.Value), y)

A+

 

[pierrejean]

Re : Pb sum IF sur USF

bonjour ConsultanJP

A tester

Private Sub UserForm_Initialize()
[COLOR=blue]Dim X as Range[/COLOR]
[COLOR=blue]Dim Y as Range[/COLOR]
 
DateCE.Value = Application.Evaluate("WORKDAY(TODAY(),-1)")
DateCE = Format(DateCE, "dd/mm/yyyy")
 
   [COLOR=blue]Set[/COLOR] X = Sheets("Cumul Charge Entrante").Range("A2:A65536")
   [COLOR=blue]Set[/COLOR] y = Sheets("Cumul Charge Entrante").Range("M2:M65536")
 
MsgBox Application.WorksheetFunction.SumIf(X,[COLOR=blue]DateValue([/COLOR]DateCE.Value[COLOR=blue])[/COLOR], y)
 
End Sub

Edit: Salut hulk
Salut Job
Salut vbacrumble

 

[Hulk]

Re : Pb sum IF sur USF

Hello tout le monde,

Ben comme ça apparemment ça joue aussi..

Private Sub UserForm_Initialize()
Dim X As Range
Dim y As Range

DateCE.Value = Application.Evaluate("WORKDAY(TODAY(),-1)")
DateCE = Format(DateCE, "dd/mm/yyyy")

Set X = [A2:A65536]
Set y = [M2:M65536]

MsgBox Application.WorksheetFunction.SumIf([X], DateCE.Value,[y])

End Sub

Cdt, Hulk.

 

[vbacrumble]

Re : Pb sum IF sur USF

Re


Une petite question


C'est quoi cette fonction ? (elle renvoie le dernier jour ouvré de la semaine ?)
=WORKDAY(AUJOURDHUI(),-1)


Elle fonctionne mais n'est pas référencé dans l'aide d'Excel

(en tout cas sous Excel 2000 )

 

[job75]

Re : Pb sum IF sur USF

Re,

@ vbacrumble : chez moi WORKDAY ne fonctionne pas et pourtant l'Utilitaire d'analyse est chargé.

Par contre SERIE.JOUR.OUVRE fonctionne dans la feuille de calcul, et en VBA dans Evaluate sans être traduite...

A+

 

[vbacrumble]

Re : Pb sum IF sur USF

Re


Merci job75


Sous Excel 2000(avec l'utilitaire d'analyse activé)

Les deux fonctionne chez moi ???

Sub test()
Range("A1").FormulaR1C1 = "=WORKDAY(TODAY(),-1)"
Range("B1").FormulaR1C1 = "=SERIE.JOUR.OUVRE(TODAY(),-1)"
End Sub

 

[ConsultantJP]

Re : Pb sum IF sur USF

Bonjour à tous désolé je n'ai pu revenir avant !!

Un grand merci j'ai pris ton code PierreJean , ça marche bien c cool grand merci !

Concernant la fonction workday est identique à celle de serie.jour.ouvré selon la version, moi je suis sur excel 2002 au boulot et en 2003 chez moi elle ça fonctionne bien !

A mon avis tout depend de la macro complementaire analyse tool pack si c'est en version US ou FR ? enfin je dis ça je suis pas sur !

Merci !!!!!!!