For i = .ListCount - 1 To Application.Max(.ListCount - 3, 0) Step -1
???Cependant, je suis très déçu par ton attitude. copyright sur XLD incroyable
Que voudrais-tu que je comprenne de la phrase ci-dessus?A aucun moment il est dit que le code de la ressource doit être modifié.
Bonjour Dranreb,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é.
Rebonjour,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.
Private Sub ComboBoxTest_Enter()
Call SaisieFiltréeComboBoxEnter(Me.ComboBoxTest, _
ThisWorkbook.Worksheets("Liste Référence").ListObjects(1).DataBodyRange)
End Sub
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
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.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.
Bonjour @patricktoulon,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
Si tu veux car je ne me suis aperçu du problème qu'après avoir ouvert cette discussion.et finalement la discussion n'a rien avoir avec le titre
Bonsoir @Dranreb ,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 …
a quel moment si la chaine tapée n'existe pas tu veux l'inscrire dans ton tableau ?je saisie dans la combobox par exemple Cheval ,
j'enregistre cette donnée dans le tableau
Connaissant tes compétences, je te fais confiance.re
ok je comprends mieux ce que tu veux faire
cela dit
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