XL 2016 Résolu - TextBox ListBox Recherche Multicolonnes

[jorge1201]

Bonjour le forum,

J'ai trouvé un code de patricktoulon (septembre 2020 excel downloads) qui permet d'effectuer une recherche à partir d'un TextBox sur un tableau d'un ListBox. L'avantage avec ce code est que la recherche se fait sur toutes les colonnes du tableau. J'essaie de l'adapter à mon projet mais je n'arrive que partiellement.

A l'ouverture du formulaire, la ListBox se rempli correctement. Lorsqu'on insère un carácter dans le TextBox, la recherche se fait mais avec quelques distorsions (une partie des informations de la dernière colonne de la ListBox est remplacé par de chiffres).

Je vous mets, en pièce jointe, un petit fichier dans l'espoir de susciter la curiosité d'une personne qui pourrait m'aider.
D'avance, tous mes remerciements. Jorge.

 

[jorge1201]

Bonjour à vous tous, le forum,
mapomme : en essayant d'ouvrir ton fichier j'obtiens un message d'erreur : "Impossible de définir la propriété ColumnWidths. Le type ne correspond pas". Aurais-tu une solution?

 

[patricktoulon]

re
Bonjour @mapomme
d'accords je te suis

1°d'abords je remplace la plage par un tableau structuré
2° on remplace un textbox par deux optionsbuttons et je supprime l'event textbox2 dans mon model
3° a cela j'ajoute puisque j'y suis l’entête de listbox automatique
4°surprise surprise l’entête est cliquable
5°en sélectionnant les colonnes on limite la recherche a celles ci
6°je suis resté dans le même design que l'original du demandeur
7° quand les colonnes sont claires elles sont activée pour la recherche sinon elle ne le sont pas
8° quand aucunne colonne n'est selection c'est tout les colonnes qui sont dans la recherche

j'ai laisser le msgbox pour le visuel des colonnes dans les quelles la recherche va s'effectuer
il faudra l'enlever

il sera facile a n'importe qui d'ajouter un bouton modifier on a tout avec les textbox y compris l'index de ligne correspondant dans la feuille
et pourquoi pas un bouton ajouter c'est enfantin avec un TS
ps comme ça @GALOUGALOU vera comment je fait maintenant pour ajouter un entete de listbox dynamiCO et cliquable en plus

Enjoy

 

[jorge1201]

Ca fusse! patrick même erreur que signalé en #16 et la ligne mise en surbrillance : ListBox1.ColumnWidths = W & "20"

 

[patricktoulon]

re
bonjour @jorge1201
tiens donc!!?
tu serais pas sur MAC des fois ?et tu n'aurais pas la version excel 11pour Mac??
je vais quand même vérifier mais chez moi ca fonctionne
vérifie aussi si tu n'a pas de references manquantes dans tes refs
des fois quand il y a une ref maquante ca fait (on le crois) des erreurs loufoque
elle ne sont pas loufoque elle se déclenchent quand la mémoire qu'utilisent variable utiliser dépasse les 10 octets

je répète vérifie tes refs manquante et décoche les si c'est nécessaire

 

[jorge1201]

Pas de référence manquante. Je suis sur un PC et ma version Excel est 2016.

 

[patricktoulon]

re
tiens donc?
en voilà une enigme

 

[patricktoulon]

re
tu veux bien @jorge1201
enregistrer mon fichier sur ton disque dur sous un autre nom et me le renvoyer

 

[mapomme]

re
tiens donc?
en voilà une enigme

Ne pourrait ce pas être un PB de séparateur. Toi et moi utilisons le point-virgule pour définir les largeurs de colonnes. Le demandeur aurait-il un autre séparateur ?

 

[patricktoulon]

je sais pas normalement ça ne change pas sur les versions excel ça
mais l'idée est a vérifier

 

[jorge1201]

Et le voici

 

[jorge1201]

Moi aussi j'utilise le point virgule comme séparateur.

 

[patricktoulon]

bon ben ca fonctionne chez moi ton fichier

 

[patricktoulon]

alors l'erreur se produit ailleurs
@mapomme mon fichier fonctionne chez toi

 

[jorge1201]

Je viens d'ouvrir le fichier de patricktoulon nouvellement enregistré mais l'erreur persiste.

 

[patricktoulon]

essaie d'arrondir les dims
change cette ligne dans entetelistebox
pour cette ligne
W = W & Round(CT.Width, 2) & ";"
et teste sans ",2" au cas ou