M
marco
Guest
Bonjours à tous le forum
j'ai besoin de votre aide pour un probleme de doublons dans un combobox.
Mon combobox fait référence à la colonne A qui sont des dates et qui comporte des doublons, je ne peut pas supprimer les doublons de la feuille, par contre je voudrait que mon combobox n'affiche pas deux fois la même date. Est ce possible?
J'ai éssayer ça, mais c'est pas terrible
Date1 = mon combobox
DER = Application.CountA(Columns('a')) + 1
For x = 9 To DER
If Range('A' & x).Value = Range('A' & x - 1).Value Then x = x + 2
If Range('A' & x).Value <> '' Then Date1.AddItem (Range('A' & x).Value)
Next
Bonne soirée
j'ai besoin de votre aide pour un probleme de doublons dans un combobox.
Mon combobox fait référence à la colonne A qui sont des dates et qui comporte des doublons, je ne peut pas supprimer les doublons de la feuille, par contre je voudrait que mon combobox n'affiche pas deux fois la même date. Est ce possible?
J'ai éssayer ça, mais c'est pas terrible
Date1 = mon combobox
DER = Application.CountA(Columns('a')) + 1
For x = 9 To DER
If Range('A' & x).Value = Range('A' & x - 1).Value Then x = x + 2
If Range('A' & x).Value <> '' Then Date1.AddItem (Range('A' & x).Value)
Next
Bonne soirée