[XL-2007] Codage ComboBox ?

1 pièce(s) jointe(s)

Codage ComboBox ?

Bonsoir à tous,

J'ai un problème avec ma comboBox qui ne recupére pas les données de la feuille "Datas"Pièce jointe 287819 cellule (i, 1):mur:

Une petite aide serait la bien venue...

Merci à ceux qui voudrons bien m'accorder un peu de leur tempsPièce jointe 287828 Pièce jointe 287828

Pièce jointe 287828

Bonjour,
https://www.developpez.net/forums/d8...s-discussions/

Bonjour,
j'ai jeté un œil vite fait, c'était plus fort que moi

Dans ton userform combobox1 pour tes codes postaux, combobox 2 pour tes villes
En colonne A tes codes, et colonne B tes villes

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
Dim f
Private Sub UserForm_Initialize()
   Set f = Sheets("BD")
   Set mondico = CreateObject("Scripting.Dictionary")
   For Each c In f.Range("b2:b" & f.[B65000].End(xlUp).Row)
     mondico(c.Value) = ""
   Next c
   Me.ComboBox1.AddItem ""
   For Each c In mondico.keys
     Me.ComboBox1.AddItem c
   Next c
   Me.ComboBox1.ListIndex = 0
   ComboBox1.MaxLength = 5
   ComboBox1.AutoTab = True
End Sub
Private Sub ComboBox1_AfterUpdate()
Me.ComboBox2.Clear
  For Each c In f.Range("a2:a" & f.[A65000].End(xlUp).Row)
    If c.Offset(0, 1) = Me.ComboBox1 Or Me.ComboBox1 = "" Then
       Me.ComboBox2.AddItem c
    End If
   Next c
Me.ComboBox2.SetFocus
End Sub

Au plaisir