XL 2016 Limiter la Saisie dans un Combobox

aurelio.ewane · 12 Juillet 2023

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 · 12 Juillet 2023

esaurelien à dit:
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 · 12 Juillet 2023

cp4 à dit:
Bonjour,

Un fichier serait le bienvenu. Sinon de la lecture ici

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

cp4 · 12 Juillet 2023

esaurelien à dit:
Merci Jai lu mais ca ne resouds malheureusement mon problème

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

Dranreb · 12 Juillet 2023

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.

VB:

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 · 12 Juillet 2023

Voici un classeur de démo.

aurelio.ewane · 12 Juillet 2023

Dranreb à dit:
Voici un classeur de démo.

Mercie je vais regarder

aurelio.ewane · 13 Juillet 2023

Dranreb à dit:
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 · 13 Juillet 2023

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 · 13 Juillet 2023

Dranreb à dit:
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 · 13 Juillet 2023

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 · 13 Juillet 2023

À 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 · 13 Juillet 2023

ca ma

esaurelien à dit:
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 · 13 Juillet 2023

Qu'est ce que vous ne comprenez pas exactement ?

aurelio.ewane · 13 Juillet 2023

Dranreb à dit:
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

XL 2016 Limiter la Saisie dans un Combobox

aurelio.ewane

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

aurelio.ewane

XLDnaute Occasionnel

aurelio.ewane

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

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

Dranreb

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

Discussions similaires