[XL-2003] Valeur par défaut (date) dans un combobox

[JeanYvesGascon]

Bonjour,

Sous Excel 2002 ou 2003, dans un formulaire, il y a un combobox qui
doit sélectionné une date.
Je souhaiterai que
1) par défaut, cette date soit la date de jour ("Date") ou celle qui
vient juste après.
2) ensuite en fonction du choix de la Combobox, s'affiche dans la
ListBox les valeurs concernées par cette date sélectionné.


Mes sources sont sur une feuille nommée Formation et les valeurs
recherchées pour alimenter la ListBox sont de A7:G400

Pour l'instant j'en sui arrivé là :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
   Dim j As Integer
 
   For j = 1 To Range("Formation!b65536").End(xlUp).Row
       CCB_Date_RIF = Range("B7" & j)
       If CCB_Date_RIF.ListIndex = -1 Then CCB_Date_RIF.AddItem
Range("B7" & j)
   Next j
 
   LB_RIF.ColumnCount = 7
   LB_RIF.ColumnWidths = "30;50;50;40;50;50;50"
   LB_RIF.ColumnHeads = True
 
   LB_RIF.RowSource = "Formation!a7:G400"
 
End Sub

Même si mon niveau s'améliore un peu plus chaque jour, là je coince un
peu.
J'espère avoir été assez explicite dans ma demande.

Merci de vos éclairages

Cordialement

JeanYves