Comment enlever les blancs dans ComboBox
zer4
Messages postés
53
Date d'inscription
Statut
Membre
Dernière intervention
-
thev Messages postés 1987 Date d'inscription Statut Membre Dernière intervention -
thev Messages postés 1987 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Comment enlever les blancs dans ComboBox
- Comment enlever les pubs sur youtube gratuitement - Accueil - Streaming
- Comment enlever une page sur word - Guide
- Comment enlever les commentaires sur word - Guide
- Comment enlever le mode sécurisé - Guide
- Comment enlever les pubs - Guide
1 réponse
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 :
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