Discussion :

[bruno15250]

Bonjour à tous,

Je vous expose mon problème qui vous n'en sera pas un pour vous je pense. J'ai une base de donnée sur lequel on retrouve le N° de ligne, le NOM, PRENOM, TELEPHONE, N° de CDE, reçu le etc... J'ai ensuite un UserForm dans lequel j'ai une ComboBox, une TextBox et une ListBox. Au jour d'aujourd'hui lorsque que j'effectue une recherche dans la TextBox seul la recherche par NOM et PRENOM sont trouvés et affiché deans la ListBox, par contre si je cherche en fonction du N°, TELEPHONE ou N° de CDE, rien ne s'affiche. Si quelqu'un peu m'aider je l'en remercie par avance.

[Tylert]

Bonjour,

Ta demande manque cruellement de précision.
On a besoin de savoir les choses suivantes si tu veux que l'on puisse répondre à ta question:
- Si quand tu dis base de donnée, tu veux en fait dire feuille excel avec des données
- Ce que dois faire ton userform
- A quoi sert chaque controle
- Les Relation entre les différents controles
- Le code qui ne fonctionne pas
- etc...

A noter qu'on ne peut vraiment pas determiner la raison du non affichage de quelque dans un contrôle quand on saisit du texte dans un autre contrôle sans avoir le code.

cdt,

[boisgontierjacques]

Bonjour,

Exemple en PJ avec un pgm générique (s'adapte à la BD) : recherche intuitive multi-mots multi-colonnes.
Il suffit de copier/coller la BD.




Boisgontier

[bruno15250]

Merci Tylert pour ta réponse rapide, Désolé pour le manque de précision je suis débutant dans le domaine.
Je vais essayer d'être plus clair.
J'ai une base de donné sur une feuille excel (Feuil1) colonne de A à L,sur la même feuille en colonne N4 j'ai le resultat de la ComboBox, en N5 le résultat de La TextBox et en colonne P4 à AA4 le résultat de la recherche qui après vient s'afficher dans la ListBox. Tous se passe bien quand je fait une recherche en lettre mais ne marche plus dès que ma recherche dans la TextBox est numérique ex: N° de CDE, le numéro de la commande s'affiche bien en N5 mais rien dans n'apparait dans la zone de résultat de recherche et donc bien sur rien dans la ListBox.
J'espère avoir été plus clair dans mes explications. Merci d'avance

[bruno15250]

Merci boisgontierjacques pour ta réponse je vais essayer avec ta méthode et voir si cela correspond à mon besoin.

[bruno15250]

Bonjour boisgontierjacques,
Merci pour ta méthode qui fonctionne bien. Est elle transposable avec une ListView car j'ai 12 colonnes et là je ne peut en afficher que 10. Merci pour ta réponse

[boisgontierjacques]

Bonjour,

1-Le ListBox n'est pas limité à 10 colonnes
2-ListView n'est pas standard (et va peut être disparaître)




Boisgontier

[bruno15250]

Bonjour et merci de ton aide, avec tes renseignements j'ai réussi à me dépatouiller. Je rencontre cependant un nouveau problème. J'ai 4 UserForm 1 Menu, 2 Nouvelle commande, 3 recherche commande et 4 Mise à jour commande. Quand je veux ouvrir en partant du menu la mise à jour il m'indique l'erreur d’exécution 13 incompatibilité de type et me ramène à la ligne du menu MAJ.show. D'où peut venir le problème sachant que le menu MAJ fait appel au même fichier que recherche de commande. Merci d'avance

[bruno15250]

Je viens de résoudre se problème, un autre apparaît, en ouvrant UserForm de la Mise à jour les données n'apparaisses pas dans la ListForm et là je bloque.

[VinBo]

Bonjour,

Exemple en PJ avec un pgm générique (s'adapte à la BD) : recherche intuitive multi-mots multi-colonnes.
Il suffit de copier/coller la BD.




Boisgontier

Bonjour à tous,

J'ai une question courte (et la version longue et détaillée ci-dessous)
Qu'est-ce qui peut empêcher l'affichage de certains éléments d'une listbox ?

La version longue :

J'ai repris un des codes mis à disposition sur le site de Jacques (merci !) avec une base de données à moi, j'ai adapté ce qu'il fallait (ou presque sinon je ne serai pas là !) mais j'ai un problème d'affichage de ma listbox.

Le code d'initialisation du Userform et de la listbox liée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub UserForm_Initialize()
   Set f = Sheets("Références")
   Set Rng = f.Range("A2:W" & f.[a65000].End(xlUp).Row)
   Ncol = Rng.Columns.Count
   X = 15
   Y = Me.ListBox1.Top - 12
   For I = 1 To Ncol
    Set Lab = Me.Controls.Add("Forms.Label.1")
    Lab.Caption = f.Cells(1, I)
    Lab.Top = Y
    Lab.Left = X + 5
    X = X + f.Columns(I).Width * 0.5
    temp = temp & f.Columns(I).Width * 0.5 & ";"
  Next
  Me.ListBox1.ColumnWidths = temp
  '--
  For I = 1 To Ncol
    Set Lab = Me.Controls.Add("Forms.Label.1")
    Lab.Caption = f.Cells(1, I)
    Lab.Top = Me("textbox" & I + 1).Top - 18
    Lab.Left = Me("textbox" & I + 1).Left
    X = X + f.Columns(I).Width * 0.5
  Next
  '--
  TblTmp = Rng.Value
  For I = LBound(TblTmp) To UBound(TblTmp)
     ReDim Preserve choix(1 To I)
     For K = LBound(TblTmp) To UBound(TblTmp, 2)
       choix(I) = choix(I) & TblTmp(I, K) & " * "
     Next K
   Next I
   Me.ListBox1.List = Rng.Value
End Sub

Le résultat de l'initialisation : la colonne 1 est bien affichée (en rouge car la listbox a été créée avec cette propriété) mais pas les autres colonnes....alors que tout marche parfaitement sur le fichier excel mis en ligne sur ton site. Cf ci-dessous :


Merci beaucoup pour la réponse et désolé de ne pas trouver tout seul....

[VinBo]

Tout est dans le fichier de Jacques Intuitif.xls
Merci, problème résolu !