XL 2010 Liste de choix sans espace dans Combobox

jeanba

XLDnaute Occasionnel
Bonjour à tous,

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

Merci par avance
Jeanba
 

Pièces jointes

  • Liste de choix sans espace.xlsm
    18.9 KB · Affichages: 37

jeanba

XLDnaute Occasionnel
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...
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir jeanba,

Essayez ce code:
VB:
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
 

Pièces jointes

  • jeanba- ComboBox sans espace- v1.xlsm
    20.8 KB · Affichages: 25

jeanba

XLDnaute Occasionnel
Bonsoir à tous,

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

VB:
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
 

Discussions similaires

Réponses
2
Affichages
195

Statistiques des forums

Discussions
312 827
Messages
2 092 557
Membres
105 451
dernier inscrit
mariane_lp