Combobox date ne trouve pas cellule date

[Cougar]

Bonjour le forum,

Mon problème est que la date qui se trouve dans un combobox ne trouve pas sa semblable dans un cellule.

J'aliment le combobox1 :

For i = 8 To 30
If IsDate(.Cells(1, i)) Then ComboBox1.AddItem Format(.Cells(1, i), "yyyy/mm/dd")
Next i

Par la suite je recherche la cellule contenant la même date. La cellule affiche 2014/05/05 et le combobx "2014/05/05". Comment modifier pour les guillemets disparaissent ?
Do Until ActiveCell = ComboBox1
ActiveCell.Offset(0, 3).Select
Loop

Merci de votre aide

 

[job75]

Re : Combobox date ne trouve pas cellule date

Bonjour Cougar,

La cellule affiche 2014/05/05 et le combobx "2014/05/05".

Si c'est bien le cas écrivez Do Until ActiveCell.Text = ComboBox1

Sinon il y a d'autres méthodes (et meilleures) pour rechercher une date dans une feuille de calcul...

A+

 

[Cougar]

Re : Combobox date ne trouve pas cellule date (résolu)

Bonjour job75.

Simple et efficace.

Merci