ComboBox à la place d'un TextBox

[karinette]

Re-bonjour ...
Alex67800 m'a modifié recemment un userform de recherche :
https://www.excel-downloads.com/threads/userform-de-recherche.118276/, j'ai essayé comme une grande, de mettre des Combobox à la place de textbox mais en vain .... 🙁
Explication :
Dans le Userform, je voulais mettre un combobox deroulant des valeur de la colonne E, à la place du Textbox 1 ...
Et un combobox deroulant des valeurs de la colonne F, à la place du Textbox 2, et bien sur en gardant le principe general du UserForm (recherche et modification et preview des resultats).

Le classeur est surement plus simple que mes explications .... 😛

Merci d'avance et encore bravo pour le forum ....

 

[wamme]

Re : ComboBox à la place d'un TextBox

Bonsoir, voici la façon de procéder:
aprés avoir créé le combobox1 à la place de textbox1,
ajouter dans Private Sub UserForm_Initialize()

Dim c As Range
Dim i As Byte
Dim data1 As Collection
Set data1 = New Collection
For Each c In Range("E2:E" & Range("E65536").End(xlUp).Row)
    On Error Resume Next
    data1.Add c.Value
        On Error GoTo 0
    Next c
For i = 1 To data1.Count
    ComboBox1.AddItem data1(i)
Next i

puis remplacer chaque expression "TextBox1" par "ComboBox1" dans le code du USF

Puis faire la même méthode avec ComboBox2.
Il vaut peut-être mieux faire une liste d'entrées possibles pour le ComboBox1
sinon tu auras toutes les valeurs de la colonne E y compris les doublons et les blancs pour les cellules non renseignées.

 

[karinette]

Re : ComboBox à la place d'un TextBox

OK ça marche ....
Merci beaucoup🙂.

 

[karinette]

Re : ComboBox à la place d'un TextBox

Oups .....
Il semblerait que le combobox soit limité ....
Il se déroule jusqu'à la cellule E113 .... (dernière cellule remplie en colonne A !!!)
Est ce normal ????
😕

 

[vbacrumble]

Re : ComboBox à la place d'un TextBox

Bonsoir


Oui c'est normal grâce à cette ligne

For Each c In Range("E2:E" & Range("E65536").End(xlUp).Row)

 

[PUARAI]

Re : ComboBox à la place d'un TextBox

Tiens voir si c'est bon ou pas
Par je suis désolés je me suis permis de modifier ton userform c'etait juste quetion de s'amuser
et désolés encore j'ai pas fais exprer j'ai remis ton dossier ton dossier à zéro.🙁