Recherche dans liste externe

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion erics83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

erics83

XLDnaute Impliqué
Bonjour,

Je cherche à faire un Userform qui recherche des noms dans un classeur fermé, la recherche se faisant en tapant les premières lettres du nom.

J'ai essayé le code conseillé par Jacques Boisgontier (qui donne un lien vers ce site et dont les tutos sont super !), c'est le code
Code: 
Dim Liste
Private Sub UserForm_Initialize()
  'Microsoft ActiveX DataObject doit être coché
  ' Champ nommé BD
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _
     ThisWorkbook.Path & "\" & "BDPROD.xls"
  Set rs = cnn.Execute("SELECT libellé FROM BD")
  Me.ListBox1.List = Application.Transpose(rs.GetRows)
  Liste = Me.ListBox1.List
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Private Sub TextBox1_Change()
  Me.ListBox1.Clear
  For Each c In Liste
    If UCase(c) Like UCase(Me.TextBox1) & "*" Then Me.ListBox1.AddItem c
  Next c
End Sub

Private Sub TextBox2_Change()
   Me.ListBox1.Clear
   For Each c In Liste
      If UCase(c) Like "*" & UCase(Me.TextBox2) & "*" Then Me.ListBox1.AddItem c
   Next c
End Sub

Private Sub ListBox1_Click()
   ActiveCell = Me.ListBox1
   Unload Me
End Sub
mais je n'arrive pas à le faire fonctionner, il bloque au niveau de
Code: 
 Me.ListBox1.List = Application.Transpose(rs.GetRows)
et je ne comprends pas pourquoi....je suis sous excel 2003...

En vous remerciant pour votre aide,
 
Dernière édition:
Trier par date Trier par votes
Re : Recherche dans liste externe

Super Merci BOISGONTIER,

Effectivement le code a évolué....🙂

J'ai essayé de mettre la colonne D du BDPROD, mais cela ne fonctionne pas....
Code: 
Dim Liste()
Private Sub UserForm_Initialize()
  'Microsoft ActiveX DataObject doit être coché
  ' Champ nommé BD
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _
      ThisWorkbook.Path & "\" & "BDPROD.xls"
  Set rs = cnn.Execute("SELECT libellé,Codification,Prix,Unité FROM BD where libellé<>''")
  Me.ListBox1.Clear
  i = 0
  Do While Not rs.EOF
    ListBox1.AddItem rs("libellé")
    ListBox1.List(i, 1) = rs("codification")
    ListBox1.List(i, 2) = rs("Prix")
     ListBox1.List(i, 3) = rs("Unité")
    i = i + 1
    rs.MoveNext
  Loop
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
  Liste = Me.ListBox1.List
End Sub
Private Sub TextBox1_Change()
   Me.ListBox1.Clear
   j = 0
   For i = LBound(Liste) To UBound(Liste)
     If UCase(Liste(i, 0)) Like UCase(Me.TextBox1) & "*" Then
        Me.ListBox1.AddItem Liste(i, 0)
        Me.ListBox1.List(j, 1) = Liste(i, 1)
        Me.ListBox1.List(j, 2) = Liste(i, 2)
        Me.ListBox1.List(j, 3) = Liste(i, 3)
        j = j + 1
     End If
   Next i
End Sub
Private Sub TextBox2_Change()
   Me.ListBox1.Clear
   j = 0
   For i = LBound(Liste) To UBound(Liste)
     If UCase(Liste(i, 0)) Like "*" & UCase(Me.TextBox2) & "*" Then
        Me.ListBox1.AddItem Liste(i, 0)
        Me.ListBox1.List(j, 1) = Liste(i, 1)
        Me.ListBox1.List(j, 2) = Liste(i, 2)
        Me.ListBox1.List(j, 3) = Liste(i, 3)
        j = j + 1
     End If


Mon but ultime serait de mettre 1 seul textbox : mon collègue entre dans la textbox soit les premières lettres, soit "contient", soit la codification, soit l'unité, etc.... bref, une entrée de la "BD" et le code "donnerait" les possibilités possibles ?

Pensez vous que cela soit envisageable ? cela éviterait les 2 TextBox, voire 3-4 suivant le nombre de colonne de BDPROD...

En vous remerciant pour votre aide,
erics83
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche dans liste externe

-La colonne D pose pb à cause des cellules vides
-Pour avoir un seul TextBox et frapper le code ou le libellé (prem lettres ou lettres contenues)

Code: 
Private Sub TextBox1_Change()
   Me.ListBox1.Clear
   j = 0
   For i = LBound(Liste) To UBound(Liste)
     If UCase(Liste(i, 0)) Like "*" & UCase(Me.TextBox1) & "*" _
        Or "*" & UCase(Liste(i, 1)) Like "*" & UCase(Me.TextBox1) & "*" Then
        Me.ListBox1.AddItem Liste(i, 0)
        Me.ListBox1.List(j, 1) = Liste(i, 1)
        Me.ListBox1.List(j, 2) = Liste(i, 2)
        Me.ListBox1.List(j, 3) = Liste(i, 3)
        j = j + 1
     End If
   Next i
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche dans liste externe

OK, merci BOISGONTIER,

j'ai compris la logique. Donc j'en déduit que pour projet de A à D, cela ne risque pas d'être possible....car j'ai des vides (dans mon fichier final)

Sauf si on limite à la colonne A et B : BD prendrait la juste la colonne A et B, mais est-il envisageable d'avoir une seule textbox ou Listbox qui ferait une recherche soit par libellé soit par codification ? dans mon fichier source, la colonne A représente un N° de commande, la colonne B, le nom....donc je cherche à savoir si :
Mon Userform s'ouvre, avec 1 textbox, je tape un numéro de commande ou un nom, que les différentes lignes présentes dans BDPROD s'affichent...suivant la valeur entrée dans le textbox...

Possible or Not ? je n'arrête pas de faire des essais, mais je n'arrive pas...et pourtant on recherche dans la BD, donc logiquement on devrait pouvoir récupérer les valeurs et les mettre dans Liste ....😕

merci pour votre aide,
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche dans liste externe

-Pour gérer les cellules vides

Code: 
Private Sub UserForm_Initialize()
  'Microsoft ActiveX DataObject doit être coché
  ' Champ nommé BD
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _
      ThisWorkbook.Path & "\" & "BDPROD.xls"
  Set rs = cnn.Execute("SELECT libellé,Codification,Prix,Unité FROM BD where libellé<>''")
  Me.ListBox1.Clear
  i = 0
  Do While Not rs.EOF
    On Error Resume Next
    ListBox1.AddItem rs("libellé")
    ListBox1.List(i, 1) = rs("codification")
    ListBox1.List(i, 2) = rs("Prix")
    ListBox1.List(i, 3) = rs("Unité")
    On Error GoTo 0
    i = i + 1
    rs.MoveNext
  Loop
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
  Liste = Me.ListBox1.List
End Sub

Private Sub TextBox1_Change()
   Me.ListBox1.Clear
   j = 0
   For i = LBound(Liste) To UBound(Liste)
     If UCase(Liste(i, 0)) Like "*" & UCase(Me.TextBox1) & "*" _
        Or "*" & UCase(Liste(i, 1)) Like "*" & UCase(Me.TextBox1) & "*" Then
        On Error Resume Next
        Me.ListBox1.AddItem Liste(i, 0)
        Me.ListBox1.List(j, 1) = Liste(i, 1)
        Me.ListBox1.List(j, 2) = Liste(i, 2)
        Me.ListBox1.List(j, 3) = Liste(i, 3)
        On Error GoTo 0
        j = j + 1
     End If
   Next i
End Sub

>Possible or Not ?

Voir version post #4


JB
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche dans liste externe

Excellent !!!!! Merci BOISGONTIER,

Nos messages se sont croisés....je n'avais pas pensé au "OR"....c'est tellement simple...du moins pour vous....🙂 mais j'ai compris la logique, merci, c'est super, cela fonctionne parfaitement !

La dernière question qui serait le top du top :

Admettons que j'ai la BDPROD contenant les codifications (=votre exemple), mais admettons que j'ai une BDPRODbase contenant tous les libellés, mais sans référence d'article + 1 colonne E où j'aurai les références des fournisseurs: prenons COLTACK :

En BDPRO il prend la référence article 77024, mais admettons que dans ma BDPRObase, j'ai :
A2 : COLTACK sans référence d'article, mais à un prix de 4 euros, colonne E : fournisseur = Toto
A3 : COLTACK sans référence d'article, mais à un prix de 5 euros , colonne E, fournisseur = Kiki (c'est pour l'exemple...)

Serait-il possible de "fusionner" BDPRO et BDPRObase afin que lorsque je cherche "COLTACK" dans le Textbox, s'affiche :
COLTACK (espace) 77024 (espace) 3,35
COLTACK (espace)(espace) 4 (espace) Toto
COLTACK (espace)(espace) 5 (espace) Kiki

donc une fusion BDPRO et BDPRObase des libellés en récupérant les codifications ou prix/fournisseurs s'il y en a ?

(j'ai mis (espace) car lorsqu'on écrit le message, il ne prend pas les espaces....comme pour faire un tableau...)

En vous remerciant pour votre aide,
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche dans liste externe

Bonjour,

Apparemment la compil des 2 bases n'est pas possible.....

Par contre, j'ai un petit soucis :

La BDPROD est un fichier qui est mis à jour chaque semaine : j'extrais des données d'un serveur, et j'écrase BDPROD avec les nouvelles données.

Le problème donc que le nom de la plage "BD" est écrasé...puisque ma nouvelle BDPROD écrase l'ancienne BDPROD (=fichier enregistré sous...)

il faudrait que je puisse chercher les données d'une manière différente...style
FROM Feuil1 A2 : D5000 where libellé<>''")
Cliquez pour agrandir...
, mais je n'y arrive pas....

Une petite aide ?

En vous remerciant,
 
Vote positif 0 Vote négatif
Re : Recherche dans liste externe

Juste une dernière petite question : en admettant que je ne cherche pas dans le classeur fermé : je rapatrie l'ensemble du classeur (car j’ai vu que c'était un peu long....donc, je me dis qu’en rapatriant l'ensemble de la feuille, via ADO, ce sera peut être plus rapide...), comment faire pour avoir le même résultat... (=recherche sur libellé et nom).
J’ai pris l’exemple de BOISGONTIER et le classeur "FORMINTUITIF2COLONNES" : que je puisse taper "civray" et que j’ai la ligne "alicoop civray " qui s'affiche. ..

En vous remerciant,
 
Vote positif 0 Vote négatif
Re : Recherche dans liste externe

Cette version devrait être + rapide

Code: 
Private Sub UserForm_Initialize()
  'Microsoft ActiveX DataObject doit être coché
  ' Champ nommé BD
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _
      ThisWorkbook.Path & "\" & "BDPROD.xls"
  Set rs = cnn.Execute("SELECT count(*) as nb FROM [TABLE$A1:D1000] where libellé<>''")
  ReDim Liste(0 To rs("nb"), 1 To 4)
  'Set rs = cnn.Execute("SELECT libellé,Codification,Prix,Unité FROM BD where libellé<>''")
  Set rs = cnn.Execute("SELECT libellé,Codification,Prix,Unité FROM [TABLE$A1:D1000] where libellé<>''")
  Me.ListBox1.Clear
  i = 0
  Do While Not rs.EOF
    On Error Resume Next   ' cellules vides
    Liste(i, 1) = rs("libellé")
    Liste(i, 2) = rs("codification")
    Liste(i, 3) = rs("Prix")
    Liste(i, 4) = rs("Unité")
    On Error GoTo 0
    i = i + 1
    rs.MoveNext
  Loop
  Me.ListBox1.List = Liste
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
  Liste = Me.ListBox1.List
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche dans liste externe

Juste pour mon information personnelle (car j'aime bien comprendre, pour essayer de nouvelles choses), à quoi correspond l'instruction if VAL (Application.Version)>10 then SendKeys "(F4)" dans le classeur FormIntuitif2colonnesBis ?



Dans le FormIntuitif2colonnesBis serait il possible de rajouter dans la combobox, juste en consultation, pas en recherche : dans mon cas, en A, j’ai une référence, En B, le nom, en C le prénom, je souhaite faire une recherche par la référence ou le nom, (encore merci pour votre aide), mais parfois, j’ai plusieurs noms qui s'affichent (Martin ou Dupont. .) et donc s'il y avait le prénom juste en affichage cela permettrait de ne pas se tromper...

J’ai essayé plusieurs choses : rajouter un choix1 (i,3) par exemple, mais cela n’a pas marché. ...


En vous remerciant,
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
Dranreb
N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
405
nabilexcel2007
N
N
  • Question Question
Listbox click
Réponses
10
Affichages
524
ChTi160
ChTi160
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
833
AtTheOne
AtTheOne
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
992
job75
job75
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
thunder23
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
641
job75
job75
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
614
KRUG WOO
K
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
3 K
saidoush
S
C
  • Question Question
XL 2019 Recherche présence de valeurs
Réponses
4
Affichages
467
sylvanu
sylvanu
P
  • Question Question
XL 2010 résultat de somme multiple dans texbox
Réponses
2
Affichages
658
Pensinf4204
P
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
fanch55
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
737
NONO14
N
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
Regueiro
  • Question Question
Microsoft 365 Format Nombre Combobox dans Feuille
Réponses
3
Affichages
568
fanch55
fanch55
Messan
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
Messan
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
936
ChTi160
ChTi160
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
860
Mody200
M
C
  • Résolu(e)
XL 2021 Aide pour affichage colonne listbox après une recherche par textbox
Réponses
10
Affichages
657
Claudinedu13
C
P
  • Question Question
XL 2016 changement en fonction des valeurs contenues dans une listbox
Réponses
1
Affichages
694
xUpsilon
xUpsilon
Retour