Plage source d'un combobox sous condition

Version imprimable

14/08/2018, 12h11
Osaka2017

1 pièce(s) jointe(s)

Plage source d'un combobox sous condition

Bonjour à toutes et à tous,

Après plusieurs essais infructueux, je m'adresse à vous afin d'y voir un peu plus clair :)

Je souhaiterais pouvoir alimenter le combobox "CBOX_PROD" avec les valeurs de la colonnes F (CODE_SUITE) mais sous les conditions suivantes :

-> uniquement si la valeur en P=9999
-> avec saisie intuitive (premiers caractères tapés)
-> et le tout trié numériquement

A noter que la base de données originale fait plus de 50.000 lignes.

Merci d'avance pour votre aide si précieuse.

Bonne journée

Bonjour,

Code:

1
2
3
4
        a = f.Range("F1:F" & f.Range("F65536").End(xlUp).Row)
        For I = LBound(a) + 1 To UBound(a)
            If a(I, 1) <> "" And Cells(I, "P") = 9999 Then mondico(a(I, 1)) = ""
        Next I

Cdlt

1 pièce(s) jointe(s)

Bonjour,

ComboBox conditionnel avec recherche intuitive

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
Dim choix()
Private Sub UserForm_Initialize()
   temp = [tableau].Columns(6).Value
   Condition = [tableau].Columns(16).Value
   For i = 1 To UBound(temp)
     If Condition(i, 1) = 2018 Then n = n + 1: ReDim Preserve choix(1 To n): choix(n) = temp(i, 1)
   Next i
   Me.ComboBox1.List = choix
End Sub
 
Private Sub ComboBox1_Change()
 If Me.ComboBox1 <> "" Then
   clé = Me.ComboBox1 & "*"
   Set d = CreateObject("scripting.dictionary")
   For i = 1 To UBound(choix)
     If choix(i) Like clé Then d(choix(i)) = ""
   Next i
   If d.Count > 0 Then
      temp = d.keys
      '  ajouter un tri
      Me.ComboBox1.List = temp
      Me.ComboBox1.DropDown
   End If
 End If
End Sub
 
Private Sub ComboBox1_Click()
  MsgBox Me.ComboBox1
End Sub

Boisgontier

16/08/2018, 09h50
Osaka2017

Merci à ARTURO83 et à boisgontierjacques pour leur code.

Après une petite adaptation, le formulaire tourne à merveille.

Excellente journée