Discussion :

[Greg57365]

Bonjour,

Mon code actuel permet d'ouvrir un userform dans lequel une combobox est alimentée par une colonne d'un onglet de mon classeur Excel (avec End(xlUp))
Mon souci est que malgré un combobox1.clear inscrit dans Userform_Initialize, l'userform s'ouvre avec la liste attendue mais sa valeur n'est pas nulle...

Est-ce normal ?

[joe.levrai]

Bonjour,

difficile de te répondre sans voir le code d'alimentation et d'effacement.

En faisant un .Clear sur un combobox et en le réalimentant, je n'ai aucun souci de mon côté, le .Value est une valeur nulle

[Greg57365]

Voici le code alimentant ma Combobox1 inscrit dans Userform_Initialize :

Code :

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

1
2
3
4
5
6
Dim i As Integer
 
For i = 1 To Sheets("Database").Range("A65536").End(xlUp).Row
  ComboBox1 = Sheets("Database").Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Database").Range("A" & i)
Next i

Avec un combobox1.Clear au préalable

[pijaku]

Bonjour,

Oui, c'est normal.
Ceci devrait vous aider et convenir :

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
Private Sub UserForm_Initialize()
Dim i As Integer
ComboBox1.Clear
For i = 1 To Sheets("Database").Range("A65536").End(xlUp).Row
    ComboBox1 = Sheets("Database").Range("A" & i)
    If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Database").Range("A" & i)
Next i
'Pas de valeur initiale
ComboBox1.ListIndex = -1
'valeur initiale = premier item
'ComboBox1.ListIndex = 0
'valeur initiale = troisième item
'ComboBox1.ListIndex = 2
'etc
End Sub

[Greg57365]

Ca marche super !!

Merci beaucoup, sujet résolu.

[joe.levrai]

Je ne comprend pas pourquoi tu fais un .Clear alors qu'on est sur l'initialisation du userform, où normalement ton combobox est vide ?

Et je n'arrive pas non plus à reproduire le comportement

En évitant d'alimenter par une boucle, ça ne va pas mieux ? Attention, s'il y a des doublons, ils ne seront pas évités ... le but est ici de trouver pourquoi tu as ce comportement là

Code :

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

1
2
3
Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Application.Transpose(Sheets("Database").Cells(1, 1).CurrentRegion.Value)
End Sub

EDIT : décidemment, je suis pas réveillé moi aujourd'hui, j'avais pas vu qu'avant de faire un AddItem tu plaçais l'élément dans le .Value !

tournée de pour me faire pardonner

[pijaku]

EDIT : décidemment, je suis pas réveillé moi aujourd'hui, j'avais pas vu qu'avant de faire un AddItem tu plaçais l'élément dans le .Value !

Faute avouée est à moitié pardonnée ==> je te mets également un pouce levé !