Saisie auto pour une combobox

Question

Bonjour,


j'ai une combobox(avec une liste), je voudrais que lorsque que je saisis la premiere lettre il remplisse automatiquent la combo avec la 1ere valeur trouvée dans la liste déroulante (et ainsi de suite pour les lettres suivantes)


Y a t-il une propriété de la combobox à modifier (au plus simple) ou faut il faire un bout de code


merci

lillith212 · Answer

Bonjour, alors au choix : http://www.vbfrance.com/codes/COMPLETER-MOT-PENDANT-SAISIE-FONCTION-DONNEES-COMBOBOX_6533.aspx ou Private SubCombo1_Change() Dim i As Integer, start As Integer start =Len(Combo1.Text) For i =0To Combo1.ListCount-1 IfLeft(Combo1.List(i), start) = Combo1.TextThen Combo1.Text= Combo1.List(i) EndIf Next Combo1.SelStart= start Combo1.SelLength=Len(Combo1.Text) EndSub ou encore avec api windows Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long PrivateConst CB_ERR As Long = (-1) PrivateConst CB_SELECTSTRING As Long =&H14D PrivateSubCombo1_Change() Dim start As Integer start =Len(Combo1.Text) IfSendMessage(Combo1.hwnd, CB_SELECTSTRING, ByVal Combo1.ListIndex, ByVal Combo1.Text) <> CB_ERR Then Combo1.SelStart= start Combo1.SelLength=Len(Combo1.Text) EndIf EndSub J'espere que ca répond à ta question S.L.B.

-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras -- -- De la validation pertinente tu feras -- Du respect tu auras --

cs_jeyjey1 · Answer

Merci de ton aide,  mais désolé mon problème est ailleurs, en fait j'ai un "Private Sub combobox_Change" et j'essais de trouver un moyen de pourvoir remplir une valeur dans ma combobox sans qu'il verifie a chaque lettre si elle est est connue dans la liste déroulante 
moi j'aimerai que mon "change" s'effectue lorsque ma valeur est entrée entièrement et non lettre par lettre

cs_MPi · Answer

Désolé, mais je ne comprends pas ce que tu cherches à faire (?)
Si tu dois écrire tout le mot pour qu'il s'inscrive, à quoi ça sert ? Aussi bien le sélectionner directement, non ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_jeyjey1 · Answer

En plus clair voilà ce que je veux faire

Comment puis je faire une recherche dans la rowsource (colonne 1) d'une combobox à partir de sa valeur saisie par un utilisateur.

Private Sub ComboBox1_Exit()




If ComboBox1.Value = ComboBox1.RowSource Then
 textbox1.Value = Combobox1.column(2)
Else
 textbox1.Value = ""
End If


End Sub

Saisie auto pour une combobox

4 réponses

Votre réponse

Discussions similaires