Discussion :

[apt]

Bonsoir à tous,

Pour activer une valeur dans un ComboBox1 et ComboBox2, j'aimerais trouver le numero de la semaine en cours depuis un tableau de dates en se basant sur la date du jour.

Ex : 18/06/2012 , N°=24 :: c'est le jour de mon annivesaire )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ComboBox1.ListIndex = 23 ' Affiche le 13.06.2012
ComboBox2.ListIndex = 23 ' Affiche le 19.06.2012

N° Semaine Du Au
....

22 30.05.2012 05.06.2012
23 06.06.2012 12.06.2012
24 13.06.2012 19.06.2012
25 20.06.2012 26.06.2012
26 27.06.2012 03.07.2012
27 04.07.2012 10.07.2012

....

Merci d'avance.

[dlight]

Voilà !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
 
Dim datetest As Date
 
 
datetest = [LaDate] ' La cellule A1 est nommé "Ladate" dans l'exemple
semaine = Format(datetest, "ww", vbMonday, vbFirstFourDays)
MsgBox (semaine)
 
End Sub

Dlight

[kiki29]

Salut,
APT une remarque :

Ex : 18/06/2012 , N°=24 :: c'est le jour de mon annivesaire

. En fait le N° de semaine est 25 et pas 24.

A titre documentiare lire N° ISO des semaines

[apt]

Bonsoir dlight, kiki29,

dlight :: Ca marche en changeant le Lundi par Mercredi. Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

semaine = Format(DateTest, "ww", vbWednesday, vbFirstFourDays)

Salut,
APT une remarque : . En fait le N° de semaine est 25 et pas 24.

A titre documentiare lire N° ISO des semaines

N° 24, parce que le 18/06/2012 est contenu entre le 13/06/2012 et le 19/06/2012.

Avec les fonctions IsoWeekNumberDM et IsoWeekNumber, ça donne N°=25.

Peut-être la déférence vient que mes semaines commencent par Mercredi et non pas Lundi

[apt]

Bonsoir,

Le numéro de semaine est trouvé, reste que les ComboBox (1 et 2) affichent un numéro de série au lieu de la date dans le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ComboBox1.ListIndex = Semaine - 1    'début de la semaine en cours 
    ComboBox2.ListIndex = Semaine - 1    'fin de la semaine en cours

Les ComboBox sont remplies par des plages nommées dans RowSource.

ComboBox1 par la plage nommée "Du" : =Feuil1!$F$2:$F$53

ComboBox2 par la plage nommée "Au" : =Feuil1!$G$2:$G$53

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize() 
    Dim Mois As Long, i As Long, Semaine As Long 
    Dim DateTest As Date 
 
    Mois = Month(Date): DateTest = Now() 
 
    '-- Trouver le numéro de la semaine 
    Semaine = Format(DateTest, "ww", vbWednesday, vbFirstFourDays) 
 
   '-- Afficher l'élément correspondant à semaine - 1 
   '-- Mais affiche 41080 au lieu du 20/06/2012 ? 
    ComboBox1.ListIndex = Semaine - 1    'début de la semaine en cours 
    ComboBox2.ListIndex = Semaine - 1    'fin de la semaine en cours 
 
    For i = 1 To Mois 
        ComboBox3.AddItem MonthName(i) 
    Next i 
    ComboBox3.ListIndex = Mois - 1 
 
End Sub

[apt]

Bonsoir,

J'ai annulé l’alimentation des CombobBox depuis la propriété RowSource avec des plages nommées, et je l'ai remplacé par l'alimentation directe depuis la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With Sheets("Base")
        For i = 8 To .Range("J65536").End(xlUp).Row
            ComboBox1 = .Range("J" & i)
            If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("J" & i)
            ComboBox2 = .Range("K" & i)
            If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem .Range("K" & i)
        Next i
    End With

Et maintenant, l'affichage dans les deux ComboBox est une date et non pas un numéro de série.

Mais j'aimerais savoir pourquoi avec la priorité RowSource ça ne marchait pas et avec un remplissage directe de la feuille marche ?

Merci.

[JPierreM]

Bonjour,

Je pense aussi que la formule proposée par dlight n'est pas bonne, au moins pour l'Europe.
Elle renvoie par exemple 53 pour le lundi 31/12/2007 alors qu'elle devrait renvoyer 1. Je parle de la norme Européenne.

En changeant lundi par mercredi on a semaine 52 pour le 31/12/2007, ce qui est faux aussi

Au vu du drapeau figurant sous le nom de dlight, ne serait-il pas canadien, où le calcul des semaines est peut-être différent.

JP

[apt]

Bonjour JPierreM,

le calcul des semaines est peut-être différent.

Oui, le calcul des semaines est défirent, car elle commencent par un "Mercredi".

Mais reste la question :

Mais j'aimerais savoir pourquoi avec la priorité RowSource ça ne marchait pas et avec un remplissage directe de la feuille marche ?

Merci.

[JPierreM]

Bonjour,

Effectivement on obtient le n° de série, je n'ai pas d'explication

Pour résoudre le problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub

JP

[apt]

Bonsoir JPierreM,

Ta solution est acceptable dans le OnChange de la ComboBox.

Mais dans UserForm_Initialize, comment peut-on formater en date la valeur choisie par défaut dans cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.ListIndex = Semaine - 1

Lire aussi les cours et tutoriels pour apprendre Excel.

[JPierreM]

Bonjour,

Essayez de remplir la combobox de la façon suivante en supprimant bien sûr les références dans RowSource

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
DateTest = Now()
 
Semaine = Format(DateTest, "ww", vbWednesday, vbFirstFourDays)
 
For i = 2 To 53
 ComboBox1.AddItem Format(Range("F" & i), "dd/mm/yyyy")
Next i
 
    ComboBox1.ListIndex = Semaine - 1   
 
End Sub

les dates s'affichent comme souhaité

JP

[apt]

Salut JPierreM et merci pour ta réponse.

Désolé d’avoir répondu si tard