CommandButton /Recherche automatique (VBA_EXCEL)

  • Auteur de la discussion Mirguy23
  • Date de début

Mirguy23

Habitué
Bonjour tout le monde!

Je viens de faire la conception d'un UserForm5: un TextBox1 (pour la saisie), CommandButton12 = Voir (pour afficher la feuille)
de la feuille excel "Synthese"
Déja j'arrive à afficher le continue de la feuille "Synthese" dans la listbox1 en cliquant juste sur le boutton CommandButton12 = Voir.

Code :
Private Sub CommandButton12_Click()
ListBox1.ColumnCount = 30
ListBox1.RowSource = "A2: AB9847"
Me.Label1.Caption = Me.ListBox1.ListCount & " Ligne(s)"
End Sub

Le button CommandButton12 me sert juste à affiche la feuille "Synthese" dans la listbox1.

Ma difficulté:

J'aimerai que la recherche se fasse de manière automatique juste en écrivant sur le textbox1 sans avoir à recourir sur le button.

Le lien du téléchargement du fichier

Merci!
 

Fichiers joints

  • 123.PNG
    123.PNG
    21.1 KB · Affichages: 3
  • recherche.PNG
    recherche.PNG
    66.7 KB · Affichages: 3
Dernière édition:

drul

Obscur pro du hardware
Staff
Re,
Il me semble qu'il suffit d'utiliser l'utiliser l'envent _change() du textbox, au lieu de l'event _click() du button
Code:
Private Sub CommandButton1_Click()
'ta macro
End Sub

Private Sub TextBox1_Change()
'à mettre ici ...

End Sub
 

Mirguy23

Habitué
J'ai essayé mais j'ai eu constater c'est un petit peu similaire ... ça affiche juste mais il n'y a pas de répercussion de ce que je saisi du TextBox vers la ListBox qui dois affichée les lignes du le mot-clé que j'ai saisi
 

drul

Obscur pro du hardware
Staff
étrange, peux tu me mettre ton code de userform ?
 

Mirguy23

Habitué
étrange, peux tu me mettre ton code de userform ?

Bonjour,:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ligne As Integer
On Error Resume Next
ligne = Me.ListBox1.ListIndex
Me.Qté_cdée = Me.ListBox1.Column(8, ligne)
Me.a_livrer = Me.ListBox1.Column(9, ligne)
Me.Délai = Me.ListBox1.Column(10, ligne)
Me.Besoin = Me.ListBox1.Column(14, ligne)
Me.Sto_phy = Me.ListBox1.Column(15, ligne)
Me.Sto_cde = Me.ListBox1.Column(16, ligne)
Me.Sto_rés = Me.ListBox1.Column(17, ligne)
Me.Sto_théo = Me.ListBox1.Column(18, ligne)
Me.Livr = Me.ListBox1.Column(19, ligne)
Me.Livr = CDate(Me.Livr)
Me.Qte_plan = Me.ListBox1.Column(21, ligne)
Me.Qte_réal = Me.ListBox1.Column(22, ligne)
Me.Ope = Me.ListBox1.Column(23, ligne)
Me.Commentaire = Me.ListBox1.Column(11, ligne)
Me.Rowid = Me.ListBox1.Column(0, ligne)
End Sub

Private Sub search_loop_Change()

ListBox1.ColumnCount = 30
ListBox1.RowSource = "A2: AB9847"
Me.Label1.Caption = Me.ListBox1.ListCount & " Ligne(s)"
End Sub
 

Mirguy23

Habitué
aussi celle du textbox et du bouton.

'''''''''''''''''TextBox

Private Sub search_loop_Change()


ListBox1.ColumnCount = 30
ListBox1.RowSource = "A2: AB9847"
Me.Label1.Caption = Me.ListBox1.ListCount & " Ligne(s)"
End Sub
 

drul

Obscur pro du hardware
Staff
Et comment tu effectues le tri selon le text de ta listbox ?
 

Mirguy23

Habitué
Et comment tu effectues le tri selon le text de ta listbox ?

Ma difficulté est dans le tri.
La ListBox affiche juste l'intégralité de la feuille mais lorsque je saisi quelque chose sur le TextBox il n'y a rien qui se passe.
 

drul

Obscur pro du hardware
Staff
Tu as dis qu'avec le bouton ça marchait, c'était quoi le code du bouton ?
 

Mirguy23

Habitué
Tu as dis qu'avec le bouton ça marchait, c'était quoi le code du bouton ?

Lorsque je cliquais sur le bouton, il y avait juste les éléments de la feuille qui apparaissaient sur la ListBox sans faire le tri.

Et lorsque vous m'adit de le placer le bout de code dans le TextBox, lorsque j'écris quelque chose il y a juste la feuille qui apparaît sans faire le tri de ce que je saisis sur le textbox
 

drul

Obscur pro du hardware
Staff
Je vois vraiment pas comment ça pouvait trier quoique ce soit ...
 

Mirguy23

Habitué
Bonjour drul,
J'ai essayé de revoir le code, j'ai essayé de l'adapter selon d'autres model que j'ai trouvé sur le net mais ça me complique toujours.

Pourriez-vous jeter un coup d’œil sur mon fichier et me dire là où je dois corrigé svp? ça m'aidera un peu cela fait un bon moment que je suis là dessus. Le lien du fichier est ci-dessous.
Merci beaucoup de bien vouloir m'aider!
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 071
Membres
1 586 286
Dernier membre
petitangebleu1977
Partager cette page
Haut