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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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