Enlever les cellules vide dans un ComboBox
Bonjour, je désire enlever les cellules vides d'une combobox.
J'ai trouver ce sujet de 2007 qui en parle, mais lorsque j'essaie de faire la même chose, cela ne fonctionne pas. (ici le post https://www.developpez.net/forums/d3...vide-combobox/)
il est écris
Dans un module vous copiez le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Public dl, i As Long
Public c As Integer
Public text As String
Sub dernlign()
Dim ComboBox_1 As ComboBox
Sheets("Feuil1").Activate
dl = Range("A65536").End(xlUp).Row
'N° de la colonne contenant les données (modifier éventuellement)
c = 1
Load UserForm1
UserForm1.Show
End Sub |
et Dans la feuille Userform1 vous copiez ce code :
Code:
1
2
3
4
5
6
7
8
| Private Sub UserForm_Initialize()
For i = 1 To dl
text = Cells(i, c)
If text <> "" Then
ComboBox_1.AddItem text
End If
Next i
End Sub |
Or cela ne marche pas chez moi.
VBA a_il changé entre 2007 et aujourd'hui ?
Merci pour votre aide
