Projet VBA code de recherche
Bonjours,
J'ai créer un classeur excel avec un code vba qui permet d'effectuer une recherche dans tous les noms présents avec un text box et une list box
mais ayant plusieurs classeur a des formats différents j'ai créé plusieurs feuilles
J'aimerai que quand j'effectue une recherche dans ma feuille 1 les résultats dans la listbox puisse aussi provenir des toute les autres feuilles du classeur ...
Pensez vous que ça soit possible ?
Un changement dans le code vba pourrait résoudre mon problème ?
Je suis novice dans le domaine du vba, j'ai réussi a faire le code en regardant différente vidéo et tuto mais je suis incapable de le modifier et résoudre mon problème moi même ...
Je joint le code ainsi que mon fichier réduit
Option Compare Text
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim L_index As Long
L_index = ListBox1.ListIndex
Cells(Tablo(L_index), 1).Activate
End Sub
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Erase Tablo()
Range("A2:j" & Range("A" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = 37
ListBox1.Clear
Cpt = 0
If TextBox1 <> "" Then
For ligne = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Range(Cells(ligne, 1), Cells(ligne, 10)).Interior.ColorIndex = 6
ListBox1.AddItem Cells(ligne, 1)
ReDim Preserve Tablo(Cpt + 1)
Tablo(Cpt) = ligne
Cpt = Cpt + 1
End If
Next
End If
End SubMerci François, ta solution est très intéressante!
J'ai juste deux petit soucie avec ...
le premier ( et pas des moindres !) est que quand je veux supprimer le dernier caractère dans la barre de recherche ça fait tout planter ...
( je m'explique si j'ai taper henri, et que je supprime un caractère a la fois quand j'arrive au h ça plante, obliger de tout quitter ...)
le deuxième plus secondaire est juste que quand je clique sur le résultat il m’amène bien sur la plage concerné mais la ligne ne se surligne plus en jaune comme avant ...
si jamais vous avez une solutions je suis preneur :)
Bonjour, merci beaucoup François, c'est tout a fait ce que je voulais !
encore merci !
je reviens vers vous François
tout fonctionne bien, quand je clique sur le résultat la ligne sur surligne bien en jaune, sauf que quand j' efface le textbox la ligne sur la page concerné reste surligner ...
j'avais réussi a faire en sorte que quand j'efface le textbox la ligne redevienne dans la couleur par défaut (interior.colorindex=37)
malheureusement maintenant je n'arrive plus a le faire ...
Est ce que je peux abusé de ta gentillesse encore une fois ... ? :)