Comment enlever les blancs dans ComboBox

Fermé

zer4 Messages postés 53 Date d'inscription lundi 31 octobre 2011 Statut Membre Dernière intervention 12 décembre 2017 - 7 déc. 2017 à 11:09
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 - 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.

A voir également:

Comment enlever les blancs dans ComboBox
Comment enlever une page sur word - Guide
Enlever bing - Guide
Comment enlever les cookies - Guide
Comment enlever le mode sécurisé - Guide
Enlever logo tiktok - Guide

1 réponse

Réponse 1 / 1

thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
Modifié le 7 déc. 2017 à 12:54

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

Comment enlever les blancs dans ComboBox

1 réponse

Discussions similaires

Newsletters