Discussion :

[Sherman750]

Bonjour à tous,

Je cherche à remplir un combobox dans mon premier userform à vie. Le remplissage du combobox est dynamique car sa plage change tout le temps.

Je voudrais que le remplissage sois dynamique aussi, je ne veux pas tout le temps modifier le range dans mon fichier excel. Voici mon code jusuq'à maintenant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Modification_Userform_Initialize()
 
Set Ws_Scie = Sheets("Scie")
 
'Empty Job_ComboCox
Job_ComboBox.Clear
 
'Fill Job_ComboBox
    With Ws_Scie
        Job_ComboBox.List = .Range("H8:H" & .Range("H" & .Rows.Count).End(xlUp).Row).Value
    End With
 
End Sub

Je ne sais pas si c'est parce que je dois appeler le private sub à s'executer par lui-même.

un coup de main serait apprécié.

[XLRATOR]

Bonjour,
Dans l'événement Activate ou Initialize de votre Userform collez le code suivant:

Code :

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

1
2
3
 
Job_ComboBox.RowSource = Range("H8:H" & Range("H65536").End(xlUp).Row).Address 
'##### Pour une travail plus complet, remplacez H65536 par H1048576, si vous utilisez une version d'Excel supérieur à 2003 ######

Dans ce cas, L'instruction Job_ComboBox.Clear ne vous servira à plus rien.

Cordialement.
Karim

[Sherman750]

Ça ne fonctionne toujours pas...

[Thautheme]

Bonsoir Sherman, Xlrator, bonsoir le forum,

Ton code est correct, mis à part la ligne Clear qui ne sert à rien et la variable Ws_Scie qui n'est pas déclarée.
Si l'Userform s'appelle Modification_Userform tu devrais avoir ta combobox correctement alimentée.
Pour l'afficher, un CommandButton dans un onglet par exemple :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Modification_Userform.Show
End Sub

[Sherman750]

Dans le Module j'ai cette partie de code qui affiche le userform

Code :

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

1
2
3
4
5
Sub Bouton_modification()
 
Modification_Userform.Show
 
End Sub

Est-ce que je devrais prendre ce bout de code et le mettre dans une private sub???

[Thautheme]

Bonsoir le fil, bonsoir le forum,

Normalement non, ce code semble correspondre à un bouton qui doit se trouver quelque part dans un onglet. Tu cliques dessus et ça t'affiche l'Userform. Mais sans le fichier on va y passer des heures !...

[Invité]

Salut,

Je ne vais pas te fournir d'exemple, mais avec la propriété .RowSource défini par une plage nommée dont sa référence (ReferTo) utilise une fonction (avec DECALER par exemple) te donnera une plage dynamique.
Il est possible de mettre la propriété .Visible à False pour ne pas gêner les utilisateurs d'Excel.
Dans le pire des cas, il y a de toute façon les événements Worksheet pour notifier les changement dans les cellules.

[Thautheme]

Bonjour le fil, bonjour le forum,

Personnellement je n'utilise jamais la propriété [RowSource] qui ne permet pas, par exemple de filtrer les données d'une ComboBox ou d'une ListBox. La manière utilisée par Sherman et tout autant dynamique que la méthode avec une plage nommée à l'aide de Decaler. Mais comme on dit : les coups et les douleurs, hein...