Discussion :

[mgotti]

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 !!!!!

[joe.levrai]

Bonjour,

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

[mgotti]

Bonjour

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

Code :

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

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 :

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

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

[mgotti]

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 :

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

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