Valeur par défaut (date) dans un combobox
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
