Combobox sans vide

[Seb]

Bonjours a tous,

Petit pb avec un combobox dans une USF.

Pour alimenter ma combobox je tape directerment le nom de ma liste dans ROWSOURCE dans les propriétés de celle-ci.

Le probleme c'est que dans ma feuille excel, la ou la liste se trouve, il peut y avoir des vides. Et je cherche le moyen de supprimer ces vides.

M5:M74 = Liste de nom à afficher = CATAGRAPH
A savoir que cette liste est dynamique elle change tout le temps ...

Quelqu'un sait comment s'y prendre ?

Merci encore.
Seb

 

[BOISGONTIER]

Re : Combobox sans vide

Bonsoir,

Listes Triées

JB

 

[Seb]

Re : Combobox sans vide

Bonsoir BOISGONTIER

Merci pour le lien mais ça me met une erreur '1004 .. Erreur definie par l'application ou par l'objet"

Voila ma macro c'est les derniere ligne... Je comprend pas d'ou viens l'erreur...

Private Sub userform_initialize()
TextBox1 = Sheets("base").Range("b3")
TextBox2 = Sheets("base").Range("C3")
TextBox3 = ActiveSheet.Range("dh53")
TextBox4 = ActiveSheet.Range("dh54")
ComboBox1 = ActiveSheet.Range("dh7")
ComboBox2 = ActiveSheet.Range("di7")
ComboBox3 = ActiveSheet.Range("dj7")
ComboBox4 = ActiveSheet.Range("dk7")
If ActiveSheet.Range("dg52") = " " Then
OptionButton1 = False
OptionButton2 = False
Else
If ActiveSheet.Range("dg52") = "N" Then
OptionButton1 = True
OptionButton2 = False
Else
If ActiveSheet.Range("dg52") = "N-1" Then
OptionButton1 = False
OptionButton2 = True
End If
End If
End If

For Each c In Sheets("recapoperation").Range([M5], [M74].End(xlUp))
If c <> "" Then Me.ComboBox5.AddItem c
Me.ComboBox6.AddItem c
Me.ComboBox7.AddItem c
Me.ComboBox8.AddItem c
Next c

End Sub

 

[BOISGONTIER]

Re : Combobox sans vide

Private Sub UserForm_Initialize()
 With Sheets("recapoperation")
  For Each c In Sheets("recapoperation").Range("M5:M" & .Range("M65000").End(xlUp).Row)
   If c <> "" Then
     Me.ComboBox5.AddItem c
     'Me.ComboBox6.AddItem c
     'Me.ComboBox7.AddItem c
     'Me.ComboBox8.AddItem c
    End If
   Next c
 End With
End Sub

JB