Discussion :

[sdispro]

Bonjour le Forum,

J'ai 2 combobox dans un userform:
Dans la première je saisi une date : 01/01/12
Dans le seconde je voudrais avoir de manière automatique une liste me donnant toutes les dates jusqu'à plus 31 jours soit 01/02/12.

J'ai bricolé un code via des calculs sur fichier mais je pense qu'il éxiste une solution (je pense ou j'espère).

En vous remerciant par avance.

Bonne journée le Forum

[Theze]

Bonjour,

En disant :

Dans la première je saisi une date : 01/01/12

je suppose que tu choisis une date ?
Donc, la 1ère combo se nomme "ComboBox1" là où tu choisis la date et la seconde se nomme "ComboBox2", là où seront entrées les 31 dates suivantes :

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
21
22
23
24
25
 
Private Sub ComboBox1_Change()
 
    Dim I As Integer
    Dim LaDate As Date
 
    On Error Resume Next
    LaDate = DateValue(ComboBox1.Text)
 
    If Err.Number <> 0 Then
 
        MsgBox "Entrez une date valide !"
        Exit Sub
 
    End If
 
    ComboBox2.Clear
 
    For I = 1 To 31
 
        ComboBox2.AddItem LaDate + I
 
    Next I
 
End Sub

Hervé.

[sdispro]

Merci beaucoup.
Affaire résolue