Discussion :

[typouce]

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 :

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

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 !

[mat955]

Bonjour,

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

[typouce]

Salut mat955 et merci pour ton aide,

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

Cdlt,

[mat955]

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 :

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

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