insérer liste dans combobox

Bonjour,

Je ne comprends pas ce qui ne va pas avec ce code

Code:

---

1 2 3 4 5

Private Sub ComboBox1_Change() Sheets("Clients").Activate ' Récupère le nombre de lignes de la colonne concernée Lgn = Cells(2, Me.ComboBox1.ListIndex + 1).End(xlDown).Row End Sub

---

Je veux tout simplement récupérer les donner de la colonne 2 de la feuille "Clients" dans une combobox situé dans un userform dépendant de la feuille "Accueil"

J'ai trouvé dans un tutoriel ça, pratique pour les doublons :

Code:

---

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

Dim Cell As Range   'Supprime les données existantes dans le ComboBox Feuil1.ComboBox1.Clear   'Boucle sur les cellules de la plage A1:A20 pour 'alimenter le ComboBox For Each Cell In Feuil1.Range("A1:A20") Feuil1.ComboBox1 = Cell 'remplissage sans doublon If Feuil1.ComboBox1.ListIndex = -1 Then _ Feuil1.ComboBox1.AddItem Cell Next Cell

---

je l'ai surement mal adapté car ça ne marche pas, j'ai fais ça :

Code:

---

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

Dim Cell As Range   'Supprime les données existantes dans le ComboBox Sheets "Accueil".ComboBox1.Clear   'Boucle sur les cellules de la plage A1:A20 pour 'alimenter le ComboBox For Each Cell In Sheets "Clients".Range("A3").End(xlDown).Row Sheets "Clients".ComboBox1 = Cell 'remplissage sans doublon If Sheets "Clients".ComboBox1.ListIndex = -1 Then _ Sheets "Clients".ComboBox1.AddItem Cell Next Cell

---

J'ai réussi avec ce code mais il y a juste un petit problème. Il reprends bien les données de ma colonne de la feuille Client mais il reprend aussi celle de la cellule A1 de ma feuille Accueil ???

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

Private Sub UserForm_Initialize() Dim Cell As Range Dim Tableau() Dim TempTab As Variant Dim i As Integer, j As Integer Dim boolVerif As Boolean   ReDim Tableau(1 To 1) Tableau(1) = Cells(1, 1)   'Boucle sur les données de la colonne A, dans la Feuil1 For Each Cell In Worksheets("Clients").Range("D3:D" & _ Worksheets("Clients").Range("D65536").End(xlUp).Row) boolVerif = False   'Vérifie si le contenu de la cellule existe déjà dans le tableau For i = 1 To UBound(Tableau) 'Si la donnée existe déjà dans le tableau If Tableau(i) = Cell Then boolVerif = True Exit For End If Next i   'Si la donnée n'existe pas dans le tableau, on augmente la taille du tableau 'et on ajoute la donnée. If boolVerif = False Then ReDim Preserve Tableau(1 To UBound(Tableau) + 1) Tableau(UBound(Tableau)) = Cell End If   'Tri le contenu du tableau par ordre croissant. For i = 1 To UBound(Tableau) For j = 1 To UBound(Tableau) If Tableau(i) < Tableau(j) Then TempTab = Tableau(i) Tableau(i) = Tableau(j) Tableau(j) = TempTab End If Next j Next i Next Cell   'Alimente le ComboBox ComboBox1.List = Tableau   End Sub

---

je trouve ce code un peu compliqué mais ça marche à l'exception du problème mentionné ci dessus.
Je l'ai utilisé car il trie par ordre coissant, j'espère que c'est pareil que l'ordre alphabétique.

J'aurais aussi une dernière question, si je veux créer une autre combobox, comment l'insérer dans ce code, sachant que les données de celle-ci sont dans la colonne E de la même feuille "Clients".

Je pense qu'il aurait été plus simple d'utiliser Array mais je n'y arrive pas