VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affichage

JONEY76

XLDnaute Occasionnel
Bonsoir,

Voici le sujet :

J'ai un fichier dans lequel je réalise des recherches dans une base de données.
Dans les listbox, j'ai rencontré de nombreux problèmes d'affichage suivant le nombre de colonnes

Partie 1
1 textbox pour saisir la recherche et un bouton
Affichage dans une listbox

Partie 2:
Code qui affiche toute la base dans une listbox en adaptant les largeurs de colonnes et peut afficher plus de 30 colonnes


Le but:
- Lier les deux codes pour que les résultats des recherches s'adaptent dans la listbox
- Un problème est récurent sur la recherche, j'ai mis une gestion d'erreur mais je ne trouve pas la faille

Merci d'avance !
 

Pièces jointes

  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 52
  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 74
  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 59

pierrejean

XLDnaute Barbatruc
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Bonjour JONEY76

Pas bien compris le but !!!
Mais pour le code de recherche vois ceci
 

Pièces jointes

  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 54
  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 72
  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 54

JONEY76

XLDnaute Occasionnel
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Bonjour PierreJean,

Je n'ai pas vu les modifications faites ...

Pour le but, C'est un userform de recherche de données avec un affichage bien particulier suite aux nombreux problèmes que j'ai rencontré sur le nombre de colonne que l'on peut afficher et aux dimensions des listbox

Les 2 codes sont du coup très complémentaires
 

pierrejean

XLDnaute Barbatruc
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Re

Arf !!!

J'avais omis d'enregistrer !!!
Toutes mes excuses ; Vois si ceci va mieux pour la recherche
Pour l'affichage je revois dès que j'ai un peu plus de temps
 

Pièces jointes

  • Essai recherche et affiche Joney.xlsm
    27.7 KB · Affichages: 56
  • Essai recherche et affiche Joney.xlsm
    27.7 KB · Affichages: 58
  • Essai recherche et affiche Joney.xlsm
    27.7 KB · Affichages: 46

pierrejean

XLDnaute Barbatruc
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Re

Voila ce que pourrait être la combinaison des 2 macros

NB: J'ai modifié pour pour une recherche exacte (lookat:=xlwhole) mais avec comparaison sans tenir compte des Majuscules (Option Compare Text)
 

Pièces jointes

  • Essai recherche et affiche Joney.xlsm
    28.3 KB · Affichages: 57
  • Essai recherche et affiche Joney.xlsm
    28.3 KB · Affichages: 58
  • Essai recherche et affiche Joney.xlsm
    28.3 KB · Affichages: 61

pierrejean

XLDnaute Barbatruc
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Re

OK je n'avais pas testé la non réponse
Vois si cela va mieux
 

Pièces jointes

  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 52
  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 54
  • Essai recherche et affiche Joney.xlsm
    28.7 KB · Affichages: 35

JONEY76

XLDnaute Occasionnel
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Re Pierre Jean,

Personnellement, j'aime bien la recherche approximative, car contre il est bon de savoir que je peux faire une recherche exacte pour un type de donnée comme un numéro de série par exemple.
Merci beaucoup, je lance les tests !!;)
 

JONEY76

XLDnaute Occasionnel
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Re Pierre Jean,

Quand je remets juste :

Set c = .UsedRange.Find(TextBox1, LookIn:=xlValues) ', lookat:=xlWhole) 'xlwhole pour une recherche exacte

Les recherches sont faussées.
 

pierrejean

XLDnaute Barbatruc
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Re

Teste cette version (NB: Elle a besoin de la feui3 en annexe pour assurer la mise en forme)
 

Pièces jointes

  • Essai recherche et affiche Joney.xlsm
    35 KB · Affichages: 40
  • Essai recherche et affiche Joney.xlsm
    35 KB · Affichages: 53
  • Essai recherche et affiche Joney.xlsm
    35 KB · Affichages: 60

JONEY76

XLDnaute Occasionnel
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Capture.jpg

Bonjour,

Je viens de tester en écrivant texte1, et les lignes se répètent, savez vous pourquoi ?
Je pensais que lier les deux codes poseraient moins de problèmes
Je regarde le code également !

Ce qui est génial avec Excel, c'est que c'est prenant !
 

Pièces jointes

  • Capture.jpg
    Capture.jpg
    42.3 KB · Affichages: 86
  • Capture.jpg
    Capture.jpg
    42.3 KB · Affichages: 56

pierrejean

XLDnaute Barbatruc
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Re

OUI
Parce qu'avec l'option xlpart (recherche approximative ) le code réagit pour texte1 mais aussi pour texte10 texte11 ,etc....
La nuit portant conseil je vais reprendre le code pour peut-être ne plus être tributaire de la Feuil3
 

pierrejean

XLDnaute Barbatruc
Re : VBA - Lier 2 codes ensemble - Code de recherche avec un code d'adaptation d'affi

Re

Voici la version n'utilisant plus la Feuil3

Oui Excel est vraiment prenant (parlez en ma douce !!!!!)
 

Pièces jointes

  • Essai recherche et affiche Joney.xlsm
    34.5 KB · Affichages: 44
  • Essai recherche et affiche Joney.xlsm
    34.5 KB · Affichages: 47
  • Essai recherche et affiche Joney.xlsm
    34.5 KB · Affichages: 55

Discussions similaires

Réponses
8
Affichages
354
Réponses
1
Affichages
269
Compte Supprimé 979
C
Réponses
16
Affichages
981