Choix dans combobox

[Cougar]

Bonjour,

Est-il possible d'écrire dans un combobox, sans utiliser le menu déroulant car j'ai plus de 1000 lignes de sélection, et qu'il affiche les données débutants par mon écriture. Je m'explique car se n'est pas évident.

Si je tape « al », le combobox affiche toutes les données débutants par « al », si je tape « allo », le seul choix serait allo.

Merci

 

[Dranreb]

Re : Choix dans combobox

Bonjour.
Le ComboBox propose déjà, quand c'est possible, une suite existante lors de la frappe du début.
Le mieux, pour parfaire la chose, c'est de veiller à lui présenter les valeurs possibles en ordre croissant de manière à ce que dans la liste les valeurs commençant pareil se retrouvent ensembles. J'ai d'excellents modules qui permettent d'obtenir des dictionnaires dont les clés sont en ordre croissant et les items les listes de lignes d'origine correspondantes.
À +

 

[Cougar]

Re : Choix dans combobox

Bonjour Dranreb,

Mes valeurs sont déjà en odre croissant et il ne me proposant pas la suite.

Merci

 

[Dranreb]

Re : Choix dans combobox

Joignez un classeur reproduisant le problème. La propriété List du ComboBox est elle alimentée au moins ?
À +

 

[Cougar]

Re : Choix dans combobox

Bonjour Dranreb,

Excuse mon retard, vacances obligent.

Voici, tel que demandé, le fichier. Clique sur le bouton Entrer un INT et tu verra que la seule possibilité est de faire un choix à l'aide du combobox.

Le code est une gracieuseté de kjin.

Merci

 

[Dranreb]

Re : Choix dans combobox

Bonjour.
J'avais en effet déjà constaté des anomalies de ce genre quand on envoie du numérique dans la List d'un ComboBox. Sans doute parce que la propriété Text est toujours du texte. Je propose la modification suivante au début de l'Userform_Initialize:

Private Sub UserForm_Initialize()
Dim TV() As Variant, L As Long

Application.ScreenUpdating = False

With Sheets("Commandes Stinson")
    TV = .Range("A4:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
End With
For L = 1 To UBound(TV): TV(L, 1) = CStr(TV(L, 1)): Next L
ComboBox1.List = TV

À +

 

[youky(BJ)]

Re : Choix dans combobox

Bonjour à vous,
Voici une façon de faire lors de grande recherche.
Cela est rapide il suffit de mettre des lettres contenu dans le produit.
Modif de Danred effectuée (salut bien)
Bruno

 

[Cougar]

Re : Choix dans combobox

Bonsoir à vous deux,

J'aime bien vos solutions et elles seront mises en application.

Merci beaucoup.