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]

Et pour le bouton réinitialiser aurais-tu une solution? Je voulais que ce bouton efface d'une part le TextBox1 et et d'autre part, qu'il enlève les éventuelles sélections des en têtes dans le ListBox.

 

[jorge1201]

J'ai pensé à quelque chose comme ça
Private Sub cmdReset_Click()
TextBox1 = ""
... code pour les en têtes
End Sub

ça pourrait le faire n'est pas?

 

[patricktoulon]

Bonjour
quand on aura compris pourquoi ça fait cela chez toi on ira plus loin
faut pas oublier que ça sert au autres aussi
le bouton ré init est déjà prêt
je veux que l'on trouve l'erreur d'abords

 

[patricktoulon]

en fait il serait intéressant que tu le teste en xls
j'ai ma petite idée sur la question
je serais curieux de savoir si le problème est toujours là

 

[cp4]

en fait il serait intéressant que tu le teste en xls
j'ai ma petite idée sur la question
je serais curieux de savoir si le problème est toujours là

Bonjour PatrickToulon,

Tester sous win7 64bits avec xl2010 32bits, fonctionne très bien.

Bon dimanche.

 

[patricktoulon]

re
merci @cp4 2010 en plus c'est rassurant

j'ai dans l'idée que malheureusement notre ami @jorge1201 a eu une mise a jour
qui bousille le pack de dll avec un des pack micorosoft visual c++ 20xx redistribuable X64

je l'ai vu sur un client W10 office 2016 64 j'ai été obligé de faire une restauration et de bloquer cette mise a jour et l’empêcher d’être installée
si avec un peu de chance il a les autres packs il est possible que les bonnes librairies soient prises en compte avec un fichier en format xl 2003 en mode rétro compatibilité
si ça marche il saura ce qu'il y a a faire

 

[jorge1201]

Bonjour tous,
Je viens de tester en excel 2013 et le message d'erreur persiste.

Des ces pack j'en quelques uns:
Microsoft Visual C++ 2008 Redistribuable x64 et x86
Idem 2013 x64 et x86
Idem 2015-2019 x86
Idem 2017 x64

Pour la suite, je n'ai la moindre idée de ce qu'il faut faire.

 

[jorge1201]

désolé, je dois me déconnecter quelques minutes

 

[patricktoulon]

et bien voilà voila le problème ça vient bien de tes librairies
j'ai vu ça chez un client pas plus tard qu'en début de semaine et j'ai pleurer misère pour comprendre
au rythme ou tu a amassé les packs ça va être coton de trouver le responsable
supprime office complètement et nettoie ton registre et réinstalle proprement office
normalement le dernier pack installé est celui en fonctionnement
peut être que ça résoudra tes problèmes

 

[jorge1201]

J'avoue être complètement largué.
Bon, j'ai désinstallé Excel 2016.

Nettoyer le registre voudrais dire supprimer tous les Visual C++?

 

[patricktoulon]

non !!!!il ne faut pas les supprimer
il ont été installer par d'autre applications ou mises ajour d'applications que tu a dans ton Pc

nettoyer tout les clé concernant office dans la base de registre
il y a des petits logiciels pour faire ça comme cccleaner par exemple
apres tu ré installe office
comme il va installer le pack qui est livré avec se sera le dernier installé et donc celui operationel pour office

 

[jorge1201]

Re tout le monde, le forum,
Merci patricktoulon pour le temps passé sur ce problème.

Voici les actions effectuées :
1. désinstallation d'Excel 2016
2. Installation de CCCleaner
3. Nettoyage du registre
4. Redemarrage
5. Installation d'Excel 2016
6. Redemarrage
7. Ouverture du fichier en question (téléchargé du poste # 64)
8. Toujours le même message d'erreur (j'allais dire d'horreur)
Mais quelle galère!

 

[jorge1201]

la p'tite méthode à ma pomme (par mapomme).

Bonjour mapomme,

Après quelques manips, j'ai pu enfin ouvrir ton fichier.
J'ai désactivé le Width, le ColumnCount et ColumnWidths de UserForm_Initialize.
Ensuite, j'ai modifié les valeurs de ces mêmes items directement dans les propriétés de ListBox1.

Les procédures de recherche et de transfert fonctionnent parfaitement. Merci beaucoup.

 

[patricktoulon]

alors c'est une ré instalation complete de W10 qui te sauvera

'ai désactivé le Width, le ColumnCount et ColumnWidths de UserForm_Initialize.

tu te rends bien compte que c'est pas possible de fonctionner comme ça
tout tes développements passés et avenir vont en pâtir
qui sait dans quel domaine encore dans office ça a foutu le boxon

 

[patricktoulon]

perso je trouve ça dommage
c'est un projet que je ne pourrais pas mener au bout
ton vba déclenchant des erreurs absurdes , difficile d'aller plus loin