Discussion :

[QuestVba]

Bonjour à Tous,

Une bête question comme d'habitude.

J'ai un combobox rempli avec des dates ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
...
    Dim vda1(365)
    For m = 0 To 364
 
        vda1(m) = Format(Date - m, "dd/mm/yyyy")
        ComboBox2.AddItem vda1(m)
    Next m
    ComboBox2.Value = vda1(0)
...

Et je mets ensuite la valeur dans ma feuille excel (la cellule a comme format 'Date')

Code :

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

ActiveCell.Value = Format(ComboBox2.Value, "dd/mm/yyyy")

Mais rien n'y fait, tout ressemble à une date mais ce n'est pas une date. Une autre preuve: j'ai un autre tableau avec un SOMMEPROD et il ne me donne le bon résultat que si je sélectionne la cellule et que je fais ENTER.

Qu'ai-je encore oublié ? Merci pour toutes vos idées.

[PMO2017]

Bonjour,

Essayez

Code :

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

ActiveCell.Value = CDate(ComboBox2)

[QuestVba]

Merci PMO2017. Ben oui