Combobox dans formulaire VBA

Bonjour,

J'essaye d'utiliser un ComboBox qui se nourrit à partir d'un onglet nommé data comprenant des noms d'usagers.

La liste pouvant varier, et donc également le nombre de lignes, je préfère utiliser un code VBA que de passer par la ligne RowSource.

Le code que j'utilise est le suivant mais la ComboBox reste désepérément vide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm1_Initialize()   Call tridata ComboBox1.Clear numLigneDernierSalarie = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row   'Salarie.Value = "" For i = 3 To numLigneDernierSalarie UserForm1.ComboBox1.AddItem Sheets("Data").Range("A" & i).Value Next   End Sub

---

Avez-vous des idées ?

Merci !

Bonjour,

As-tu essayé de dérouler ton code en mode pas à pas pour vérifier que numLigneDernierSalarie était bien supérieur à 3 ?

Salut mat955 et merci pour ton aide,

Oui j'ai vérifié en mode pas à pas et numLigneDernierSalarie est = à 8.

Cdlt,

Ok ça ne m'a pas sauté aux yeux tout de suite, mais tu ne dois pas ajouter 1 à la fin de Userform sur la première ligne de ton code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize()   Call tridata ComboBox1.Clear numLigneDernierSalarie = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row   'Salarie.Value = "" For i = 3 To numLigneDernierSalarie UserForm1.ComboBox1.AddItem Sheets("Data").Range("A" & i).Value Next   End Sub

---