Combobox sans vide

bonjour a tous

dans le fichier joint je cherche a effacer les blanc dans le combobox CBox1

merci

Bonjour,

Dans ta macro d'initialisation du CBox1

remplace par ceci

With Me.CBox1
    For i = 2 To ws.Range("B" & Rows.Count).End(xlUp).Row Step 5
      .AddItem ws.Range("B" & i)
    Next i
  End With

Bonjour,

autre solution via l'utilisation de ma fonction liste_sans_doublons

    Date1 = Date: Date1 = Format(Date1, "dddd d mmmm yyyy")
    Frame1.Visible = False: CB4.Visible = True: CB8.Visible = False

  With Me.CBox1
    .List = liste_sans_doublons(ws.Columns("B"))
  End With

Function liste_sans_doublons(plage)
    Dim liste As Object
    Dim tb(), i As Long, clé As Variant

    liste_sans_doublons = Array()
    'la plage doit être une colonne ou une ligne
    If plage.Rows.Count > 1 And plage.Columns.Count > 1 Then MsgBox "plage non limitée à une colonne ou une ligne  ": Exit Function

    'chargement tableau à une dimension selon type de plage
    If plage.Columns.Count = 1 Then tb = Application.Transpose(plage.Value)
    If plage.Rows.Count = 1 Then tb = Application.Transpose(Application.Transpose(plage.Value))

    'création liste sans doublons
    Set liste = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(tb)
        clé = tb(i): If IsDate(clé) Then clé = CDate(clé)
        If Not liste.exists(clé) And clé <> Empty Then liste(clé) = tb(i)
    Next i

    'assignation de la liste
    liste_sans_doublons = liste.Items

End Function

re

merci a vous deux

tout est parfait

bonne fin de journée ,amicalement

re dsl mais cela ne me transmet pas correctement ma base de données

je m'explique quand je selectionne CBox1pour rapeller ma saisie les lignes sont decalés