Valeur ComboBox automatique

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

Bonjour,

En disant :

Citation:

---

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:

---

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é.

Merci beaucoup.
Affaire rés:ccool:olue