Bonjour,
j'ai un fichier avec des informations dans différents onglets, et je souhaiterais pouvoir sur un premier onglet créer une petite barre de recherche qui permettrait de visualiser les informations dans une textbox par exemple et de cliquer dessus pour aller à l'information ensuite. Le modèle proposé en tuto ci dessous (https://www.blog-excel.com/creer-un-champ-de-recherche-vba/), code :
Option Compare Text
Private Sub TextBox1_Change() 'www.blog-excel.com/creer-un-champ-de-recherche-vba
Application.ScreenUpdating = False
Range("A2:A24").Interior.ColorIndex = 2 'Exemple 1 (feuille)
ListBox1.Clear 'Exemple 2 (ListBox)
If TextBox1 <> "" Then
For ligne = 2 To 24
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(ligne, 1).Interior.ColorIndex = 43 'Exemple 1 (feuille)
ListBox1.AddItem Cells(ligne, 1) 'Exemple 2 (ListBox)
End If
Next
End If
End Sub
a l’inconvénient de neutraliser les couleurs de départ ("Range("A2:A24").Interior.ColorIndex = 2"), et de ne fonctionner que sur une seule feuille.
Or j'ai beaucoup de couleurs différentes dans mes onglets, et une dizaine d'onglets.
J'ai essayé de faire évoluer le code ci-dessus, sans succès.
Quelqu'un pourrait-il me conseiller?
D'avance merci!