CommandButton /Recherche automatique (VBA_EXCEL)

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

Mirguy23

Habitué
#1
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 https://mon-partage.fr/f/iFWAE7OO/

Merci!
 

Fichiers joints

Dernière édition:

drul

Obscur pro du hardware
Staff
#2
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é
#3
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
#4
étrange, peux tu me mettre ton code de userform ?
 

Mirguy23

Habitué
#5
é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
 

drul

Obscur pro du hardware
Staff
#6
aussi celle du textbox et du bouton.
 

Mirguy23

Habitué
#7
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
#8
Et comment tu effectues le tri selon le text de ta listbox ?
 

Mirguy23

Habitué
#9
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
#10
Tu as dis qu'avec le bouton ça marchait, c'était quoi le code du bouton ?
 

Mirguy23

Habitué
#11
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
#12
Le code du bouton stp ...
 

Mirguy23

Habitué
#13
Le code du bouton stp ...
Private Sub commandbutton12_Click()


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

drul

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

Mirguy23

Habitué
#15
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!
https://www.cjoint.com/c/IFsiXdhDnuN
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Membres en ligne
  • tomtom95
  • fianesousou2012
  • longaripa
  • svoglimacci
  • theofficialw4ke
Derniers messages publiés
Statistiques globales
Discussions
864 597
Messages
8 049 992
Membres
1 575 088
Dernier membre
Reddem
Partager cette page
Haut