Discussion :

[Nishruu05]

Bonjour tout le monde,

J'aimerais faire une combobox pour faire une date. Pour limiter la longueur de ma combobox, je l'ai divisée en 3 parties. La première pour les jours, la deuxième pour les mois et la dernières pour les années.

J'ai donc le code suivant pour remplir la cellule:

Code :

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

1
2
 
ThisWorkbook.Worksheets("Ventes").Cells(i, 6) = ComboBox2 & "/" & ComboBox1 & "/" & ComboBox3

Ce code fonctionne et il affiche bien la date dans la cellule demandée.

Cependant, le problème vient du Spinbouton qui me permet de passer de d'une date à l'autre dans mon userform.

Code :

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

1
2
 
ComboBox2 & "/" & ComboBox1 & "/" & ComboBox3 = Worksheets("Ventes").Cells(i, 6)

Là, VBA refuse la formulation et donc mon spinbouton ne fonctionne pas avec cette cellule là.

Avez vous une solution pour ce problème?

En vous remerciant d'avance.

Nishruu

[pgz]

Bonjour.

Dans ce cas, tu dois renseigner les combos par 3 instructions

Code :

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

1
2
3
Me.Combobox1 = Day(ThisWorkbook.Worksheets("Ventes").Cells(i, 6))
Me.Combobox2 = Month(ThisWorkbook.Worksheets("Ventes").Cells(i, 6)
Me.Combobox3 = Year(ThisWorkbook.Worksheets("Ventes").Cells(i, 6))

Si j'ai les comboboxes dans le bon ordre!

PGZ

[Nishruu05]

Tout fonctionne!
Parfait!
Merci beaucoup!!!