Discussion :

[casefayere]

Voilà,
comme tu as mis l'exploitation du remplissage des combos dans un module, j'ai changé le code du module

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
Option Explicit
'la variable public est déclarée ici
Public cbox As String ' variable "public"
Sub Creer_Liste_SansDoublons(Plage As Range)
Dim Cell As Range
Dim Un As Collection, i As Long
Dim ssdoublon()
Set Un = New Collection
On Error Resume Next
 
For Each Cell In Plage
   If Cell <> "" Then Un.Add Cell, CStr(Cell)
Next Cell
 
On Error GoTo 0
 
For i = 1 To Un.Count
   ReDim Preserve ssdoublon(i - 1)
   ssdoublon(i - 1) = Un.Item(i)
Next i
'ci-dessous, comme on est dans un module, le "me" ne passe plus, il faut préciser le nom de l'USF
UserForm1.Controls(cbox).List = ssdoublon()
Set Un = Nothing
End Sub

et dans ton USF, j'ai enlevé la déclaration de cbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub UserForm_Initialize() 'à l'initialisation de l'USF
Dim dl As Long
With ActiveSheet
   dl = .Range("A" & .Rows.Count).End(xlUp).Row
   cbox = "ComboBox1"
   Creer_Liste_SansDoublons .Range("A1:A" & dl) ' pour la 1ere plage
   cbox = "ComboBox2"
   dl = .Range("B" & .Rows.Count).End(xlUp).Row 'parce que moins de cellules en B
   Creer_Liste_SansDoublons .Range("B1:B" & dl) 'pour la 2eme plage
End With
End Sub

maintenant pour les filtres c'est simple si tu m'en dis plus, filtrer sur quoi ?

[mandrake57]

J'aimerais que les listes soient filtrées par ordre croissant par exemple.

Le fait d'avoir mis une partie dans un module est-elle moins efficace ou moins rigoureuse?

[casefayere]

J'aimerais que les listes soient filtrées par ordre croissant par exemple.

Le fait d'avoir mis une partie dans un module est-elle moins efficace ou moins rigoureuse?

pour ta seconde question, ça ne change pas grand-chose sinon qu'il faut préciser sur quoi on travaille, dans notre exemple, on ne peut plus mettre "me.controls" mais préciser le nom de l'USF.
pour ta 1ere question, ce n'est pas un filtre que tu veux mais un tri ?

[mandrake57]

oui désolé j'ai tapé un peu vite je pensais à deux choses en même temps. Un tri croissant (sachant que cela peut être soit des valeurs numériques, soit des numériques, mais toujours le même type pour une même liste).

[casefayere]

rectifies comme ça :

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
Option Explicit
Public cbox As String ' variable "public"
Sub Creer_Liste_SansDoublons(Plage As Range)
Dim Cell As Range, cible
Dim Un As Collection, i As Long
Dim ssdoublon(), valeur As Long
Set Un = New Collection
On Error Resume Next
 
For Each Cell In Plage
   If Cell <> "" Then Un.Add Cell, CStr(Cell)
Next Cell
 
On Error GoTo 0
 
For i = 1 To Un.Count
   ReDim Preserve ssdoublon(i - 1)
   ssdoublon(i - 1) = Un.Item(i)
Next i
Do 'tri croissant
   valeur = 0
   For i = UBound(ssdoublon) - 1 To 0 Step -1
      If ssdoublon(i) > ssdoublon(i + 1) Then
         cible = ssdoublon(i)
            ssdoublon(i) = ssdoublon(i + 1)
            ssdoublon(i + 1) = cible
            valeur = 1
         End If
   Next i
Loop While valeur = 1
UserForm1.Controls(cbox).List = ssdoublon()
Set Un = Nothing
End Sub

[mandrake57]

Ca marche impeccable je te remercie beaucoup!

Sais tu où je pourrais trouver les commentaires qui explique cette méthode de tri sans doublons et de filtre croissant? Je suis en train de lire les tuto vba du site mais j'ai pas fini et comme j'aime bien connaître les étapes du code et aussi détaillé le ode que j'utilise (pour une maintenance future).

Merci encore avec ça je vais pouvoir me focaliser sur d'autres points

[casefayere]

Content que tu t'en sortes,
ouvres ce lien, très bonne base :
http://silkyroad.developpez.com/vba/tableaux/#LXIV-D

[mandrake57]

Ok je regarderai ça.

Dans quelques temps, je reviendrai sûrement pour trouver de l'aide pour un gros point, j'espère que tu seras toujours dans les parages

[casefayere]

Dans quelques temps, je reviendrais sûrement pour trouver de l'aide pour un gros point,

là, tu me fais peur
mais ne t'en fais pas, il y a du monde sur le site, ô combien plus compétent que moi et aussi disponoble, sinon plus

Bonne nuit

[Esak59]

Bonjour

Code :

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

Me.Controls("cbox"& i).List = ssdoublon()

Et en essayant ceci ?

Edit : Je viens de voir en postant que la solution a été trouvée ! Désolé