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
MichDenis
Essaie ceci :
Private Sub CommandButton1_Click() Dim No as Integer Dim T As Long If IsDate(Me.TextBox1) Then T = CDate(Me.TextBox1) No = Evaluate("1+INT(MIN(MOD(" & T & "-DATE(YEAR(" & T & _ ")+{-1;0;1},1,5)+WEEKDAY(DATE(YEAR(" & T & _ ")+{-1;0;1},1,3)),734))/7)") MsgBox No End If
End Sub
"croky23" a écrit dans le message de news:
bonjour le forum je cherche à transformer une date en numero de semaine dans un texbox
19/11/06 = Numero semaine Me.Semaine = Numerosemaine?(Me.Date_Livraison)
Essaie ceci :
Private Sub CommandButton1_Click()
Dim No as Integer
Dim T As Long
If IsDate(Me.TextBox1) Then
T = CDate(Me.TextBox1)
No = Evaluate("1+INT(MIN(MOD(" & T & "-DATE(YEAR(" & T & _
")+{-1;0;1},1,5)+WEEKDAY(DATE(YEAR(" & T & _
")+{-1;0;1},1,3)),734))/7)")
MsgBox No
End If
End Sub
"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de news:
2349E597-227E-4353-A960-BB02EB9E8D11@microsoft.com...
bonjour le forum
je cherche à transformer une date en numero de semaine dans un texbox
19/11/06 = Numero semaine
Me.Semaine = Numerosemaine?(Me.Date_Livraison)
Private Sub CommandButton1_Click() Dim No as Integer Dim T As Long If IsDate(Me.TextBox1) Then T = CDate(Me.TextBox1) No = Evaluate("1+INT(MIN(MOD(" & T & "-DATE(YEAR(" & T & _ ")+{-1;0;1},1,5)+WEEKDAY(DATE(YEAR(" & T & _ ")+{-1;0;1},1,3)),734))/7)") MsgBox No End If
End Sub
"croky23" a écrit dans le message de news:
bonjour le forum je cherche à transformer une date en numero de semaine dans un texbox
19/11/06 = Numero semaine Me.Semaine = Numerosemaine?(Me.Date_Livraison)
croky23
merci bcp bon dimanche
Essaie ceci :
Private Sub CommandButton1_Click() Dim No as Integer Dim T As Long If IsDate(Me.TextBox1) Then T = CDate(Me.TextBox1) No = Evaluate("1+INT(MIN(MOD(" & T & "-DATE(YEAR(" & T & _ ")+{-1;0;1},1,5)+WEEKDAY(DATE(YEAR(" & T & _ ")+{-1;0;1},1,3)),734))/7)") MsgBox No End If
End Sub
"croky23" a écrit dans le message de news:
bonjour le forum je cherche à transformer une date en numero de semaine dans un texbox
19/11/06 = Numero semaine Me.Semaine = Numerosemaine?(Me.Date_Livraison)
merci bcp
bon dimanche
Essaie ceci :
Private Sub CommandButton1_Click()
Dim No as Integer
Dim T As Long
If IsDate(Me.TextBox1) Then
T = CDate(Me.TextBox1)
No = Evaluate("1+INT(MIN(MOD(" & T & "-DATE(YEAR(" & T & _
")+{-1;0;1},1,5)+WEEKDAY(DATE(YEAR(" & T & _
")+{-1;0;1},1,3)),734))/7)")
MsgBox No
End If
End Sub
"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de news:
2349E597-227E-4353-A960-BB02EB9E8D11@microsoft.com...
bonjour le forum
je cherche à transformer une date en numero de semaine dans un texbox
19/11/06 = Numero semaine
Me.Semaine = Numerosemaine?(Me.Date_Livraison)
Private Sub CommandButton1_Click() Dim No as Integer Dim T As Long If IsDate(Me.TextBox1) Then T = CDate(Me.TextBox1) No = Evaluate("1+INT(MIN(MOD(" & T & "-DATE(YEAR(" & T & _ ")+{-1;0;1},1,5)+WEEKDAY(DATE(YEAR(" & T & _ ")+{-1;0;1},1,3)),734))/7)") MsgBox No End If
End Sub
"croky23" a écrit dans le message de news:
bonjour le forum je cherche à transformer une date en numero de semaine dans un texbox
19/11/06 = Numero semaine Me.Semaine = Numerosemaine?(Me.Date_Livraison)
Daniel.j
Quelques trucs interressants ici http://dj.joss.free.fr/faq.htm#numsemaine Daniel
FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm "croky23" a écrit dans le message de news:
bonjour le forum je cherche à transformer une date en numero de semaine dans un texbox
19/11/06 = Numero semaine Me.Semaine = Numerosemaine?(Me.Date_Livraison)
Quelques trucs interressants ici
http://dj.joss.free.fr/faq.htm#numsemaine
Daniel
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de
news: 2349E597-227E-4353-A960-BB02EB9E8D11@microsoft.com...
bonjour le forum
je cherche à transformer une date en numero de semaine dans un texbox
19/11/06 = Numero semaine
Me.Semaine = Numerosemaine?(Me.Date_Livraison)