Premier userform avec combobox

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:

---

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é.

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

Code:

---

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

Ça ne fonctionne toujours pas...

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:

---

1 2 3

Private Sub CommandButton1_Click() Modification_Userform.Show End Sub

---

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

Code:

---

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???

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 !...

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.

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...

Bonjour,

Code:

---

1 2 3

Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = "Feuil1!H8:H" & Sheets("Feuil1").Range("H" & Cells.Rows.Count).End(xlUp).Row End Sub

---