Menu

Comment enlever les blancs dans ComboBox

zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 7 déc. 2017 à 11:09 - Dernière réponse : thev 1719 Messages postés lundi 7 avril 2008Date d'inscription 27 mai 2018 Dernière intervention
- 7 déc. 2017 à 12:47
Bonjour,
J'aimerais savoir comment enlever les blancs entre mes valeurs (Mes cellules sont fusionner ) dans ma ComboBox ? où alors enlever les doublons si je ne fusionne pas mes cellules ?

Private Sub UserForm_Initialize()
Me.mat.RowSource = "Stock!A2:A" & Sheets("Stock").[a65000].End(xlUp).Row
End Sub

Cordialement.


Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
thev 1719 Messages postés lundi 7 avril 2008Date d'inscription 27 mai 2018 Dernière intervention - Modifié par thev le 7/12/2017 à 12:54
1
Merci
Bonjour,

Le plus simple est d'utiliser une collection "ArrayList" qui te permettra d'enlever les doublons et de trier tes valeurs.
Exemple de code ci-dessous :

Private Sub UserForm_Initialize()
Dim liste As Object
Dim first_cell As Range, last_cell As Range

Set liste = CreateObject("System.Collections.Arraylist")
With Sheets("Stock")
Set first_cell = .Range("A2")
Set last_cell = .Columns("A").Find("*", SearchDirection:=xlPrevious)
End With
For Each cell In Range(first_cell, last_cell)
If cell <> Empty _
And Not liste.contains(cell.Value) Then liste.Add cell.Value
Next cell

liste.Sort
If liste.Count > 0 Then Me.mat.List = liste.toarray

End Sub

Merci thev 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24363 internautes ce mois-ci

Commenter la réponse de thev