Remplir combobox sans doublon et avec formatRésolu

Question

Bonjour a tous,

Je souhaiterais remplir un combobox sur ma feuille excel avec les données de la colonne B d'une autre feuille mais sans doublon et sans l'heure.
B
02/06/2008 06:55
02/06/2008 08:23
02/06/2008 15:35
03/06/2008 05:43
03/06/2008 09:23
04/06/2008 07:40
...
Voila ma colonne B donc je voudrais remplir mon combobox avec juste la date (sans l'heure) et sans doublon. Cad avoir:
02/06/2008
03/06/2008
04/06/2008
...

J'ai commencé avec ce début de code pour virer les doublons:
Dim i As Integer



For i = 2 To Sheets("HIS").Range("B65536").End(xlUp).Row
  ComboBox1 = Sheets("HIS").Range("B" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("HIS").Range("B" & i)
Next i


Merci de votre aide

Renfield · Accepted Answer

voir plus haut, je t'indique "FormatDateTime"

Renfield · Answer

l'idée n'est pas de virer les doublons, mais simplement de ne pas les y ajouter...

en tapant simplement "doublon" sur Codyx, tu serait a coups sur tombé sur :

http://www.codyx.org/snippet_supprimer-doublons-combobox_374.aspx#1205

mortalino · Answer

Salut,

pour être franc, ton code ne vérifie jamais s'il y a des doublons.
En gros tu fais une boucle sur tes cellules, certes, mais ensuite faut boucler également sur les items de ton ComboBox.
Ton If... veut dire, en français : Si aucun Index n'est choisi dans la liste de mon ComboBox alors ajoute en tant qu'Item au ComboBox la donnée de la cellule B i de la feuille HIS.

3 soluces :

1/ Tu boucles sur les cellules, comme tu l'as fait, ensuite tu boucles sur tes Items (sert toi de ComboBox.ListCount pour For j = 1 To ComboBox.ListCount Next) et si aucune valeur n'est égale, alors là tu fais un AddItem.

2/ Lourd et moins rapide, tu peux te servir d'une Collection en étape intermédiaire : tu mets un On Error Resume Next, ensuite tu ajoutes les Items de tes cellules à la Collection, genre Dim cCol As New Collection, dans ton For i.. : cCol.Add Sheets("HIS").Range("B" & i).Vvalue, CStr(Sheets("HIS").Range("B" & i).Vvalue)
Puis tu ajoutes les élements de ta collection dans ton ComboBox.

3/ Je ne sais plus le code mais enregistre toi pour l'avoir : tu fais un filtre sur place ssans doublons (sélectionne la plage de donnée, menu Outils, Filtrer -> Filtre élaboré, Extraction sans doublons. Choisis la destination en cellule, tu boucles  sur les celles de destination pour les rajouter dans ton ComboBox, puis tu effaces les données de l'extraction.

Je pense que le mieux serait 1 puis 3 et enfin 2

@++

le mystérieux chevalier,"Provençal, le gaulois"

mortalino · Answer

Arf, m'a fallu 10 minutes pour écrire !!! Suis fatigué :(  Salut Renfiled 

@++

le mystérieux chevalier,"Provençal, le gaulois"

Renfield · Answer

tu pourrais également utiliser :

http://www.codyx.org/snippet_ajouter-elements-dans-zones-liste-combobox-sans-doublons_615.aspx

Renfield · Answer

et pour virer l'heure, voir FormatDateTime

mortalino · Answer

Lol, c'est mon snippet :)
M'en rappelais plus 

@++

le mystérieux chevalier,"Provençal, le gaulois"

drik56 · Answer

Ok merci de votre aide mais je pensais plutot a un formatage du combo et du coup il prendrais juste les dates.

drik56 · Answer

Merci a vous deux.
Code final:
Dim i As Integer



ComboBox1.Clear
For i = 2 To Sheets("HIS").Range("B65536").End(xlUp).Row



  ComboBox1 = DateValue(Sheets("HIS").Range("B" & i))
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem DateValue(Sheets("HIS").Range("B" & i))
Next i

Renfield · Answer

c'est discutable... (doit etre lent, de selectionner les eventuels doublons dans la combobox)
mais si tu en es satisfait, c'est el principal ^^

Remplir combobox sans doublon et avec format

10 réponses

Votre réponse

Discussions similaires