Salut Ctplm,
Tout d'abord merci pour ta réponse, c'est vrai qu'elle me dégrossit un peu le travail déjà.
Pourtant j'ai encore quelques soucis. En fait j'aurais besoin de 5 selection, j'ai donc fait 5 ComboBox, et les données qui doivent figurer dans les listes des ComboBox sont les mêmes à chaque fois (elles sont située en colonne A de la ligne 5 à la ligne LignesTableau ), sachant qu'un tri préalable empeche qu'il y ai des doublons dans cette colonne
Ce qui se passe c'est que la boirte de dialogue s'ouvre mais y' rien dans les liste des ComboBox...
Voila ce que j'ai mis :
DANS USERFORM
Dim Selec1, Selec2, Selec3 As String
Dim NbLignes, a, b As Integer
'Lors du clic "OK", on enregistre les chapitres sélectionnés et on ferme l'Userform
Sub CommandButton1_Click()
Selec1 = EssaiListBox.ComboBox1
Selec2 = EssaiListBox.ComboBox2
Selec3 = EssaiListBox.ComboBox3
Selec4 = EssaiListBox.ComboBox4
Selec5 = EssaiListBox.ComboBox5
Unload Me
End Sub
'Annuler
Private Sub CommandButton2_Click()
Unload Me
End Sub
'Lors du lancement de l'Userform, on charge les variables dans les combobox
Private Sub UserForm1_Initialize()
'Calcul du nombre de lignes dans le tableau
LignesTableau = Sheets("Calcul" ).Application.CountA(Range("A1:A65536" )) + 4
'On boucle sur chaque combobox
For a = 1 To 5
'Et sur chaque chapitre dans le tableau
For b = 4 To LignesTableau
'Pour éviter les doublons on sélectionne la dernière ligne dans laquelle le chapitre est cité.
NomChapitre = Sheets("Calcul" ).Range("A" & b)
EssaiListBox.Controls("ComboBox" & a).AddItem NomChapitre
End If
Next b
Next a
End Sub
DANS UN MODULE
Public Sub Lancement()
UserForm1.Show 1
End Sub
pour lancer mon userform
