Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Liste filtrée pour combobox à 1 ou x colonne(s) (Titre màj)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cathodique
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

cathodique

XLDnaute Barbatruc
Bonjour,

Je fais appel aux férus de VBA (pas comme moi, Vbiste autodidacte du dimanche).

Au fil de mes recherches j'ai trouvé dans les ressources un fichier de @Dudu2 (ICI) très pratique.

Je voudrai appliquer son code à plusieurs ComboBox. Mais je ne sais pas utilisé les modules de classe.

J'ai pourtant suivi des tutos en vidéo (l'anglais n'étant pas mon fort) sans comprendre grand chose.

Dernièrement, @patricktoulon a eu la gentillesse de corriger un code trouver sur le net et a dédié une vidéo pour expliquer ce que sont les modules de Classe. J'ai compris dans l'ensemble le principe. Mais ça coince toujours lors de l'écriture du code. Petite cervelle restera petite cervelle😢😢

Je ne joins pas de fichier, vous le trouverez en suivant le lien.

Je vous en remercie par avance.

Bon dimanche.

nb: j'ai envoyé à @Dudu2 pour l'informer
 
Dernière édition:
Solution
re
oui j'ai fais cette erreur jean-marie a corrigé
je vous lais éviter de repasser tout les items en revu en cas de grande liste
perso je corrigerais comme ça
VB: 
For i = .ListCount - 1 To Application.Max(.ListCount - 3, 0) Step -1
tout ton code et tes controls fonctionnent dans mon userform
Trier par date Trier par votes
Tu copies un code qui plante et qui n'appartient pas au code de la ressource mais qui en a des allures.
J'en conclue que tu as modifié le code de la ressource, je ne sais dans quel but et je te renvoie à l'explication qui est donnée dans la ressource qui, effectivement, à aucun moment ne demande d'en modifier le code si tu lis les instructions. Je ne vois pas de quoi prendre ça mal.
 
Vote positif 0 Vote négatif
Bonjour.
Dans ce que j'ai fournis non plus aucune programmation de service n'est jamais à modifier, tout se pilote toujours depuis l'UserForm. La Function SujCBxLike du modul MSujetCBx permettrait d'établir la liste des entrées commençant par le début tapé. Le CLsCAsContacts.xlsm propose les nom et prénom contenant des caractères tapés, pas forcément au début. Pour avoir ceux qui débutent par ces caractère il faut d'ailleurs effacer la fin assumée ou mettre la propriété MatchEntry de la combobox à 2 - fmMatchEntryNone, ce que je trouve personnellement dommage. Il me semble plus simple d'avoir juste à taper le début jusqu'à ce que le nom souhaité soit assumé.
 
Vote positif 0 Vote négatif
Bonjour Dranreb,

Je te remercie mais je t'avoue que j'ai essayé de comprendre tes codes sans succès.
En plus je ne souhaite pas installé de complément.

Bonne journée.
 
Vote positif 0 Vote négatif
Rebonjour,

C'est ici que j'ai trouvé ton fichier (je t'ai mis le lien au post#45)
Je maintiens ce que je t'ai dit, je n'ai pas modifié mais adapté.
VB: 
Private Sub ComboBoxTest_Enter()
    Call SaisieFiltréeComboBoxEnter(Me.ComboBoxTest, _
                                     ThisWorkbook.Worksheets("Liste Référence").ListObjects(1).DataBodyRange)
End Sub
Ta combobox se nomme ComboBoxTest, la mienne CobAutre.
J'ai modifié le nom de la combobox et du tableau. Est-ce que cela signifie que j'ai modifié ton code?
A moins que tu ne veuilles que l'on adopte aussi les noms que tu as utilisé dans ton fichier.

Bonne journée.

ps: ma solution pas pro, pas "orthodoxe" mais répond à mon besoin.
Que je partage gracieusement, modifiable à volonté.
Code: 
Private Sub CobAutre_Change()
   Dim d As Object, Tmp, c

   Set d = CreateObject("Scripting.Dictionary")
   If EstVariantVide(Range("TbAutres")) Then Exit Sub
   Tmp = UCase(Me.CobAutre) & "*"
   For Each c In Range("TbAutres")
      If UCase(c) Like Tmp Then d(c.Value) = ""
   Next c
   Me.CobAutre.List = d.keys
   Me.CobAutre.DropDown

End Sub
 
Vote positif 0 Vote négatif
Bonjour @cathodique
moi je dirais que @Dudu2 et moi t'avons donné deux solution différentes mais qui fonctionnent
et cela sur 1 colonne ou plus et sur combo ou listbox
faut il encore savoir les adapter
certes la solution du dico est simple mais sur certains pc il risque d'être déactivé

et finalement la discussion n'a rien avoir avec le titre
 
Vote positif 0 Vote négatif
cathodique à dit:
Je te remercie mais je t'avoue que j'ai essayé de comprendre tes codes sans succès.
En plus je ne souhaite pas installé de complément.
Cliquez pour agrandir...
Il y a pourtant une page d'aide dans le classeur précurseur du complément qui explique en détail les propriétés, méthodes et évènements utilisables dans un UserForm. Il n'est guère utile de chercher à comprendre comment il procède pour effectuer ce qui y est dit. Vous n'avez pas besoin non plus (ni ne le pouvez, là…) pour pouvoir vous en servir de chercher à comprendre comment procède la méthode Range de l'objet Worksheet, par exemple.
Le CLsCASContacts.xlsm n'utilise pas le complément. De ce fait le code de service y est hélas accessible.
Cependant je répondrai à vos question sur l'utilisation des objets ComboBoxLiées et ControlsAssociés si vous en avez …
 
Vote positif 0 Vote négatif
Bonjour @patricktoulon,
Je remercie et je te dois des explications.
En fait, j'ai vite crié victoire. Et, je n'ai pas dit que vos codes ne fonctionnaient pas.
J'ai trouvé par hasard le fichier de @Dudu2 (lien aux posts 45 et 57).
Je l'ai testé et fonctionné. D'où l'idée de transformer son code en module de classe.
Cependant, en vidant le tableau source, le code a planté.
patricktoulon à dit:
et finalement la discussion n'a rien avoir avec le titre
Cliquez pour agrandir...
Si tu veux car je ne me suis aperçu du problème qu'après avoir ouvert cette discussion.

Mon idée est peut-être tordue mais c'est ce que je voulais faire:
Ajouter à un tableau vide à partir d'une combobox des données avec l'option de la filtrer à la saisie.
Je ne sais pas si je suis clair.
Autrement dit, initialement le tableau est vide,
je saisie dans la combobox par exemple Cheval ,
j'enregistre cette donnée dans le tableau
au prochain tour si je saisis c , la combo me fait apparaitre cheval, si c'est ce que je veux, je clique dessus sinon je continu ma saisie par ex: Chameau.
et ainsi de suite..... ajouter des items inexistant.

Merci beaucoup.
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir @Dranreb ,

Je remercie de me tendre la main. Je me mêle très souvent les pinceaux.
Avec un code simple de @Dudu2, je me suis noyé.
Tes codes sont super élaborés par rapport à mon niveau et je n'aime pas travailler sans comprendre un minimum.
Pour le moment, je dois avancer. Je t'assure que j’essaierai tes codes dès que possible.
J'ouvrirai si nécessaire une discussion ou te demanderai des explications en mp.
J'apprécie vraiment ton geste.
Encore merci.

Bonne soirée.
 
Vote positif 0 Vote négatif
re
ok je comprends mieux ce que tu veux faire
cela dit
je saisie dans la combobox par exemple Cheval ,
j'enregistre cette donnée dans le tableau
Cliquez pour agrandir...
a quel moment si la chaine tapée n'existe pas tu veux l'inscrire dans ton tableau ?
par ce que là c'est risquer
si c'est au change
tu tape "c" il y est pas ca ajoute dans le tableau
tu tape "ch" il y est pas pareil
etc..etc
il faut soit réserver la touche enter soit un bouton
 
Vote positif 0 Vote négatif
Connaissant tes compétences, je te fais confiance.
Je stocke dans un tableau structuré à 1 colonne. Mon code semble fonctionner avec le change.
La saisie s'ajoute au tableau via un bouton valider qui enregistre aussi d'autres contrôles dans un autre tableau.
Mais je n'ai pas ton expérience.

Merci.

Bonne soirée.
 
Vote positif 0 Vote négatif
Bonjour @cathodique
tout est expliqué dans la vidéo et je joins le fichier
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…