Dates et numéros de semaine : fonction à intégrer dans un userform

[azerty6767]

Bonjour,

J'ai un userform qui contient 2 champs, dont 1 seul à remplir :
- l'un est à renseigner avec une date : exemple : 22/08/2007
- dans l'autre, il doit apparaître le numéro de semaine correspondant à la date entrée dans le 1er champ. Pour l'exemple pris ci-dessus, on doit donc voir apparaître 34 (semaine 34).

La fonction qui calcule cela est :
______________________________________________________
Function NumeroSemaine(DateSaisie As Date) As Integer

'Teste si une date a été saisie
If DateSaisie = 0 Then
NumeroSemaine = 0
Else
NumeroSemaine = Format(DateSaisie, "ww")
End If

End Function
______________________________________________________

Cette fonction est facilement utilisable dans des champs d'une feuille de calcul Excel.

Ma question : comment intégrer cette foncton dans un formulaire ? Peut-on le faire ?...


Merci pour votre aide,


Alain

 

[Cousinhub]

Re : Dates et numéros de semaine : fonction à intégrer dans un userform

Euh, tu l'as sort d'où ta fonction?
Quelle version d'excel?

Edit : annule ça marche, je connaissais pas, superbe!

 

[azerty6767]

Re : Dates et numéros de semaine : fonction à intégrer dans un userform

Excel 2003 !

 

[Cousinhub]

Re : Dates et numéros de semaine : fonction à intégrer dans un userform

Regarde le fichier joint

 

[azerty6767]

Re : Dates et numéros de semaine : fonction à intégrer dans un userform

super 🙂 merci !

 

[Spitnolan08]

Re : Dates et numéros de semaine : fonction à intégrer dans un userform

Bonsoir,
en plus court :

Private Sub TextBox1_Change()
If Len(TextBox1.Value) < 10 Then Exit Sub
If IsDate(CDate(TextBox1)) Then TextBox2 = Format(CDate(TextBox1), "ww")
End Sub

Cordialement

 

[Cousinhub]

Re : Dates et numéros de semaine : fonction à intégrer dans un userform

ReBonsoir,
un petit bémol, le numéro de semaine que tu obtiens, c'est le numéro de semaine Américaine (ben, oui, c'est Bill qui l'a créee cette fonction.
Regarde le fichier joint, et entre la date du 07/01/2007, soit un dimanche.
En Europe, la semaine commence le lundi, là-bas, le dimanche.

 

[Pierrot93]

Re : Dates et numéros de semaine : fonction à intégrer dans un userform

Bonjour Azerty, Spitnolan, bhbh

autre solution, utiliser la fonction "DatePart"', comme dans l'exemple ci dessous :

x = DatePart("ww", Date, vbMonday, vbFirstFourDays)

permet le choix du 1er jour de la semaine, ainsi que les critères de détermination de la première semaine de l'année.

bonne journée
@+