Discussion :

[cocole27]

Bonjour à tous

Il y a fort longtemps que j'ai utilisé un formulaire avec listes déroulantes en VBA et ma mémoires me fait défaut , je viens donc faire appel à vous ,

Dans le fichier test que je vous joins , j'ai créé un formulaire avec 2 combobox ,

Si la première ne me pose aucun soucis, il n'en est pas de même avec la deuxième , en effet je suis obligée dans le formulaire de taper une lettre dans la zone afin que les propositions soient affichées .

Si vous pouvez me dire ce qui cloche avec le code , je vous en remercie d'avance .

Bonne fin de journée

[boisgontierjacques]

Bonsoir,

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
 
Private Sub UserForm_Initialize()
  Set f = Sheets("test")
  Me.ComboBox1.List = f.Range("a1:a" & f.[A65000].End(xlUp).Row).Value
  Set f2 = Sheets("test1")
  Me.ComboBox2.List = f2.Range("a1:a" & f2.[A65000].End(xlUp).Row).Value
 End Sub
 
Private Sub CommandButton1_Click()
 Dim ctrl As Control
 Dim Colonne As Integer
 Dim derligne As Integer
 Set f3 = Sheets("recap")
 derligne = f3.Range("A65000").End(xlUp).Row + 1
 f3.Cells(derligne, "a") = Me.ComboBox1
 f3.Cells(derligne, "b") = Me.ComboBox2
End Sub

Boisgontier
http://boisgontierjacques.free.fr

[cocole27]

génial !!!

un gros merci