Discussion :

[Yarblek]

Bonjour,

Je suis nouveau sur le site et débutant en VBA.

Je souhaiterai trouver un code simple pour retirer ou ne pas prendre en compte les vides dans mon combobox.
Ci-dessous le code que j'ai utilisé pour remplir ma combobox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
ComboBox1.List() = Sheets("Feuil3").Range("B1:B15").Value
End Sub

Si quelqu'un peut m'aider.

Merci.

[Philippe Tulliez]

Bonjour,
Si tu entends par les vides le fait que les cellules B1:B15 ne sont pas toutes remplies mais qu'elles se suivent de B1 à Bn
Tu peux utiliser ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub UserForm_Initialize()
 With Sheets("Feuil3")
  ComboBox1.List() = .Range("B1:B" & .Range("B1").End(xlDown).Row).Value
 End With
End Sub

[Yarblek]

Bonjour cotonna,
Merci pour ta réponse, je l'ai essaye en la modifiant pour voir si ça changais quelquechose. Cependant ça ne donne pas le résultat escompte. Si tu as d' autres idée je suis a l écouté.

[Esak59]

Bonjour, j'ai eu le même problème que toi. Je t'invite à regarder le sujet que j'ai posté ICI.

Enjoy !

[Theze]

Bonjour,

Il te faut faire une boucle sur ta plage et contrôler si la cellule n'est pas vide avant de récupérer sa valeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub UserForm_Initialize()
 
    Dim I As Integer
 
    With Sheets("Feuil3")
 
        For I = 1 To .Range("B" & .Rows.Count).End(xlUp).Row
 
            If .Range("B" & I) <> "" Then
                ComboBox1.AddItem .Range("B" & I)
            End If
 
        Next I
 
    End With
 
End Sub

Hervé.

[rvtoulon]

Bonjour,
il faut faire une boucle sur les cellues de ta plage B1:B15 et vérifier si la cellule est pleine. Si c'est le cas on remplis la combo avec la méthode additem.
comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 With Sheets("Feuil3")
  For Each vcel In .Range("B1:B15")
  If vcel <> "" Then Me.ComboBox1.AddItem vcel.Value
  Next vcel
 End With
End Sub

EDIT: Bonjour theze désolé pour le doublon