Combobox dépendantes, remplissage le tout depuis la feuille Excel (pas de userform)

Bonjour !

J'ai un petit projet perso sur lequel je bloque depuis quelques jours déjà ...

Dans mon fichier Excel j'ai ma feuille Donnees dans laquelle je retrouve la référence de l'article, l'ensemble auquel il appartient et le sous ensemble (l'objectif est de traiter plus de 200 références).

Ce que je souhaite faire c'est sur une deuxième feuille Excel avoir trois combobox dépendantes pour choisir dans l'ordre l'ensemble puis le sous-ensemble et enfin la référence qui m'intéresse.

Je souhaite le faire directement sur la feuille Excel et donc ne pas utiliser de userform ...

Après de nombreuses tentatives j'ai péniblement réussi à remplir une combobox (mais là gros hic, j'ai des doublons et je n'arrive pas à récupérer ça d'une autre feuille).

Etant presque désespérée de trouver un petit bout de code sur internet qui corresponde réellement à ce que je cherche, j'espère que l'un d'entre vous réussira à m'aider :)

A très vite j'espère pour pouvoir essayer toutes vos idées !!!!! :P

Bonjour,

peux-tu nous montrer le code que tu as entrepris afin qu'on puisse t'aider ?

Bonjour

Alors j'ai a réussi à charger une combobox directement sur excel en utilisant :

Code:

---

1 2 3

Private Sub Worksheet_Activate() ComboBox1.ListFillRange="'Donnees'!D2:D25" End Sub

---

Mais là j'ai les doublons ...

Du coup avec une userform j'ai essayé un truc comme ça car ça va trier les doublons (trouvé sur internet) :

Code:

---

1 2 3 4 5 6

Private Sub ComboBox1_Change() Dim j As Integer For j = 1 To Range ("A65536").End(xlUp).Row ComboBox1 = Range ("A" & j) Next j End Sub

---

Et là je n'arrive pas à piocher dans une autre feuille excel et à retranscrire le code pour commander une combobox directement sur la feuille Excel

J'ai finalement opté pour une userform et j'ai réussi à imbriqué tout ce que je voulais !!!! youpi

Mais j'ai un autre problème... lorsque je clique sur mon commandbutton pour ouvrir ma Userform je met plusieurs minutes avant que ça ouvre !!!!!!

D'après les recherches que j'ai fait sur internet se serait dû à la fonction Range().End(xlUp).Row qui s'effectue d'elle même plusieurs fois et qui se retrouve plusieurs fois dans mon code !!!!!

Est-ce qu'il y a une modif que vous verriez possible pour que je puisse continuer d'exploiter le fichier ?

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

Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To Sheets("Donnees").Range("D65536").End(xlUp).Row ComboBoxEnsemble = Sheets("Donnees").Range("D" & i) If ComboBoxEnsemble.ListIndex = -1 Then ComboBoxEnsemble.AddItem Sheets("Donnees").Range("D" & i) Next i   ComboBoxEnsemble = "" ComboBoxSousEnsemble.Clear ComboBoxArticle.Clear End Sub     Private Sub ComboBoxEnsemble_Change() ComboBoxSousEnsemble.Clear For i = 1 To Sheets("Donnees").Range("E65536").End(xlUp).Row If Sheets("Donnees").Range("D" & i) = ComboBoxEnsemble.Value Then ComboBoxSousEnsemble = Sheets("Donnees").Range("E" & i) If ComboBoxSousEnsemble.ListIndex = -1 Then ComboBoxSousEnsemble.AddItem Sheets("Donnees").Range("E" & i) End If Next i ComboBoxSousEnsemble = "" ComboBoxArticle.Clear   End Sub     Private Sub ComboBoxSousEnsemble_Change() ComboBoxArticle.Clear Dim i As Integer For i = 1 To Sheets("Donnees").Range("D65536").End(xlUp).Row If Sheets("Donnees").Range("D" & i) = ComboBoxEnsemble.Value Then 'Et si le contenu de la colonne B est égal à combobox2 If Sheets("Donnees").Range("E" & i) = ComboBoxSousEnsemble.Value Then ComboBoxArticle = Sheets("Donnees").Range("A" & i) If ComboBoxArticle.ListIndex = -1 Then ComboBoxArticle.AddItem Sheets("Donnees").Range("A" & i) End If End If Next i ComboBoxArticle = "" End Sub

---