Discussion :

[révèr]

Bonjour le forum,

Je rencontre un problème, je n'arrive pas à alimenter ma ComboBox_2 en fonction d'un AutoFilter déjà réalisé.

Je souhaiterai, qu'en fonction du filtre qui a été effectué sur une valeur, résultant d'une ComboBox_1, la ComboBox_2 soit dans un premier temps vidée (ça c'est pas trop compliqué ça va ) et qu'elle soit par la suite alimentée grâce à la plage que je sélectionne sous forme de SpecialCells.

Ma ligne :

Code :

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

    Set CBR = WbO.Range(WbO.Cells(2, 13), WbO.Cells(derLig, 13)).SpecialCells(xlCellTypeVisible)

Elle sélectionne correctement la range en sortie du Filtre. C'est cette Range-là que j'aimerai utiliser pour alimenter ma ComboBox_2 SANS DOUBLON. J'arrive à l'alimenter avec doublons, mais sans je n'y arrive pas du tout. J'ai essayé avec un "Scripting.Dictionary" mais j'ai une erreur qui apparaît sur la ligne "For i = LBound(a) To UBound(a)" ... (erreur sur la variable a). Je l'ai définie en tant qu'Integer.

Pourtant, j'ai initialisée mes 2 ComboBox à l'origine grâce au Scripting.Dictionary et cela fonctionne. Serait-il possible que l'AutoFilter et/ou le SpecialCells(xlCellTypeVisible) ne soient pas compatibles avec une alimentation de ComboBox à valeur unique ? Même si j'en doute fortement, et qu'il devrait s'agir à 99.99% d'une erreur d'écriture de ma part...

Auriez-vous des exemples d'alimentation de ComboBox par une plage auto-filtrée ?

Merci et bonne journée

[pijaku]

Bonjour,

Le plus simple, pour alimenter une ComboBox sans doublons, est d'utiliser ses propriétés ListIndex et AddItem.

Un peu comme ceci :

Code :

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

1
2
3
4
5
6
7
Dim C As Range, CBR As Range
    Set CBR = WbO.Range(WbO.Cells(2, 13), WbO.Cells(derLig, 13)).SpecialCells(xlCellTypeVisible)
    For Each C In CBR
        ComboBox1.Value = C.Value 'On ajoute la valeur de la cellule dans la ComboBox
         'si la valeur existe dans une combobox, ListIndex sera différent de -1
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem C.Value 'Alors si ListIndex = -1, on ajoute la valeur
    Next

[révèr]

Bonjour pijaku,

et surtout merci ! Cela fonctionne du tonnerre ! La mise à jour se fait automatiquement, un énorme merci. Je ne savais plus où en donner de la tête

[anasecu]

Bonjour,

je n'arrive pas à alimenter ma ComboBox_2 en fonction d'un AutoFilter déjà réalisé.

Si tu as ta sélection, il devrait suffire de l'affecter au combo :

Code :

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

    ComboBox_2.list = WbO.Range(WbO.Cells(2, 13), WbO.Cells(derLig, 13)).SpecialCells(xlCellTypeVisible)

[révèr]

Bonjour anasecu,

Bonjour,


Si tu as ta sélection, il devrait suffire de l'affecter au combo :

Code :

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

    ComboBox_2.list = WbO.Range(WbO.Cells(2, 13), WbO.Cells(derLig, 13)).SpecialCells(xlCellTypeVisible)

Ce qui n'aurait pas résolu le problème puisque dans cette range, j'ai des doublons. La liste aurait contenu ces-dits doublons, non ?

[pijaku]

Pour être précis, on ne peux pas affecter un Range à la List d'une ComboBox.
Il faut lui attribuer les valeurs du Range, soit :

Code :

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

ComboBox_2.list = WbO.Range(WbO.Cells(2, 13), WbO.Cells(derLig, 13)).SpecialCells(xlCellTypeVisible).Value

ça fonctionne, c'est rapide, simple, mais n'enlève effectivement pas les doublons...

[révèr]

C'était justement ça que je voulais éviter, les doublons. J'avais déjà réussi à l'alimenter en prenant en compte les doublons mais ce n'était pas le but recherché. Merci quand même pour ta proposition

[boisgontierjacques]

Bonjour,

Laméthode la plus rapide pour alimenter un combobox ou ListBox sans doublons.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
  Set mondico = CreateObject("Scripting.Dictionary")
  mondico.comparemode = vbTextCompare
  Tbl = [liste].Value
  For i = LBound(Tbl) To UBound(Tbl)
   If Tbl(i, 1) <> "" Then mondico(Tbl(i, 1)) = ""
  Next i
  Me.ComboBox1.List = mondico.keys
End Sub

Avec Tri

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
  Set mondico = CreateObject("Scripting.Dictionary")
  mondico.comparemode = vbTextCompare
  Tbl = [liste].Value
  For i = LBound(Tbl) To UBound(Tbl)
   If Tbl(i, 1) <> "" Then mondico(Tbl(i, 1)) = ""
  Next i
  '--avec tri
  temp = mondico.keys
  Tri temp, LBound(temp), UBound(temp)
  Me.ComboBox1.List = temp
End Sub

Pour des grandes listes, la méthode #2 est lente.

Boisgontier