Discussion :

[ATLONIA]

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)

Une petite aide serait la bien venue...

Merci à ceux qui voudrons bien m'accorder un peu de leur tempsTEST-Liste clients frmAjouter_Modifier_Supprimer.xlsmTEST-Liste clients frmAjouter_Modifier_Supprimer.xlsm

TEST-Liste clients frmAjouter_Modifier_Supprimer.xlsm

[Nicolas JACQUIN]

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

[Nicolas JACQUIN]

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 :

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