XL 2016 Limiter la Saisie dans un Combobox

[aurelio.ewane]

Bonjour jai un combobox qui contient une liste delements
Jaimerais savoir comment limiter la saisie dans mon combobx et n'autoriser que les valeurs qui sy trouvent du genre lorsque je commences a saisir une lettre ca charge dans mon combobox tous les elements de ma liste qui on se mot
une saisie intelligente je veux dire

Merci a tous

 

[cp4]

Bonjour jai un combobox qui contient une liste delements
Jaimerais savoir comment limiter la saisie dans mon combobx et n'autoriser que les valeurs qui sy trouvent du genre lorsque je commences a saisir une lettre ca charge dans mon combobox tous les elements de ma liste qui on se mot
une saisie intelligente je veux dire

Merci a tous

Bonjour,

Un fichier serait le bienvenu. Sinon de la lecture ici

 

[aurelio.ewane]

Bonjour,

Un fichier serait le bienvenu. Sinon de la lecture ici

Merci Jai lu mais ca ne resouds malheureusement mon problème

 

[cp4]

Merci Jai lu mais ca ne resouds malheureusement mon problème

Donc, joindre ton fichier et expliquer au mieux vos attentes.

 

[Dranreb]

Bonjour.
Il y a aussi une propriété MatchRequired qui, à True, empêche la saisie d'éléments à ajouter. Mais je ne l'utilise guère. Si on prend soin de classer la liste, la saisie d'un début existant la positionne dessus, au début. C'est suffisant à mon avis. J'ai un module MSujetCBx avec principalement une fonction SujetCBx qui renvoie un Array(Clés, Listes), Clés, affectable à un ComboBox.List, est classé et sans doublon, et Listes sont les listes de numéros relatifs de lignes où elles ont été trouvées.

Néanmoins ce même module comporte aussi cette Function qui peut extraire d'un sujet d'origine un autre ne comportant que ce qui est tapé, et permettrait donc de faire ce que vous demandez.

Function SujCBxLike(ByVal SujOrg, ByVal Masque As String)
   Dim LesClés(), LesListes(), KS As Long, KE As Long
   Masque = UCase(Masque)
   LesClés = SujOrg(0): LesListes = SujOrg(1): KS = -1
   For KE = 0 To UBound(LesClés)
      If UCase(LesClés(KE)) Like Masque Then
         KS = KS + 1: If KS < KE Then LesClés(KS) = LesClés(KE): LesListes(KS) = LesListes(KE)
         End If: Next KE
   If KS < 0 Then Exit Function
   ReDim Preserve LesClés(0 To KS), LesListes(0 To KS)
   SujCBxLike = Array(LesClés, LesListes)
   End Function

 

[Dranreb]

Voici un classeur de démo.

 

[aurelio.ewane]

Voici un classeur de démo.

Mercie je vais regarder

 

[aurelio.ewane]

Voici un classeur de démo.

Tres interessant mais jai des questions SVP lorsqu'on a un seul element une ligne qui sajoute au debut

 

[Dranreb]

Lorsqu'un début existant est tapé, le premier de la liste y correspondant est assumé. Si c'est le seul c'est donc le bon. La limitation de la liste à ceux ci, je vous l'ai fait pour vous montrer que c'est possible, mais à mon avis c'est inutile. Mettez en commentaire la Private Sub ComboBox1_KeyPress pour voir.

 

[aurelio.ewane]

Lorsqu'un début existant est tapé, le premier de la liste y correspondant est assumé. Si c'est le seul c'est donc le bon. La limitation de la liste à ceux ci, je vous l'ai fait pour vous montrer que c'est possible, mais à mon avis c'est inutile. Mettez en commentaire la Private Sub ComboBox1_KeyPress pour voir.

jessaie tout de suite

 

[Dudu2]

Bonjour,
Sinon il y ça:

VBA - Saisie filtrée (alias saisie intelligente) en ComboBox

La "Saisie filtrée" sur ComboBox parfois dénommée "saisie intelligente" consiste à actualiser dynamiquement les valeurs d'une ComboBox au fur et à mesure de la saisie des caractères tout en permettant la sélection d'une valeur dans la liste...

excel-downloads.com

 

[Dranreb]

À mon avis elle ne présente d'intérêt que pour la saisie d'autres caractères que ceux de début car pour ceux ci la réaction normale d'une ComboBox est suffisante, si toutefois la liste est classée.

 

[aurelio.ewane]

ca ma

j'essaie tout de suite

ca marche vous êtes un génie. Jai un autre soucis svp Je ne comprend rien au Code besoin des explications

 

[Dranreb]

Qu'est ce que vous ne comprenez pas exactement ?

 

[aurelio.ewane]

Qu'est ce que vous ne comprenez pas exactement ?

Merci deja du temps que vous prenez pour me repondre

La première de choses est que je voudrais le faire pour des comBobox qui plusieurs colonnes
Donc jai essayer de modifier la variable
Optional ByVal Colonne As Long = 1 en mettant
Optional ByVal Colonne As Long = 5
dans la fonction SujetCBx
mais hela ca ne donne rien du tout
Merci de maider