XL 2010 Liste de choix sans espace dans Combobox

[jeanba]

Bonjour à tous,

Un exemple vaut mieux que mille poèmes.
Voyez ci-joint s'il vous plaît.

Merci par avance
Jeanba

 

[jeanba]

Re bonsoir à tous,

J'ai bien vu sur le forum des cas traités mais avec des formules excel.
Mais, j'ai rien vu qui traite de ce cas directement sur une feuille VBA.
Si quelqu'un a vu un lien de cette nature s'il vous plaît...

 

[jeanba]

Le titre modifié n'en dit que mieux

 

[mapomme]

Bonsoir jeanba,

Essayez ce code:

Private Sub UserForm_Initialize()
Dim x
  With Sheets("Feuil1")
    derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
    If derlig > 1 Then
      For Each x In Feuil1.Range("A2:A" & derlig)
        If x <> "" Then ComboBox1.AddItem x
      Next x
    End If
  End With
End Sub

 

[jeanba]

Bonsoir à tous,

Finalement, en cherchant j'ai trouvé ceci sur un autre forum et suis heureux de le partager ici:

Private Sub UserForm_Initialize()
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
Feuil1.Select
lf = Range("A15").End(xlUp).Row 'définit la variable lf
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox4
For Each cel In Range("A2:A" & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> "" Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule 'Dim Malist As Range
'With Feuil1
'    Set Malist = .Range("A1:A10")
'End With
'Dim l As Integer
'UserForm1.ComboBox1.List = Malist.Value
End Sub

 

[Si...]

Bonjour

un autre exemple ...
Qu'en est-il de ce message ?