Discussion :

[IronHeavy]

Bonjour à tous!

Je souhaite "animer" une base de données de plusieurs centaines d'onglets (1 pour chaque article de mon catalogue) via un formulaire de recherche.

J'imagine une recherche intuitive d'une textbox qui afficherait de manière dynamique les noms des onglets correspondant à ma recherche dans une list ou combobox - indéfféramment de la casse si possible.

Pour le moment je n'ai réussi qu'à lister l'ensemble des noms d'onglets dans une listbox (si aucune saisie), mais ne parviens qu'à faire une recherche sur le premier mot composant les noms des onglets, et encore la casse devant être respectée !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Change()
 
Dim i As Integer
  UserForm1.ListBox1.Clear ' vider la listbox
  For i = 1 To Worksheets.Count 'pour chaque feuille
    'If Sheets(i).Name <> "References 2019" Then
    If Sheets(i).Name Like TextBox1.Text & "*" Then
      UserForm1.ListBox1.AddItem Worksheets(i).Name ' ajouter son nom à la listbox
    End If
  Next i
End Sub

Que pourriez vous me suggérer ?

Merci!

[Thautheme]

Bonjour Ironheavy, bonjour le forum,

Peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Change()
Dim i As Integer
 
ListBox1.Clear ' vider la listbox
For i = 1 To Worksheets.Count 'pour chaque feuille
    If InStr(1, Worksheets(i).Name, Me.TextBox1.Value, vbTextCompare) > 0 Then
        ListBox1.AddItem Worksheets(i).Name ' ajouter son nom à la listbox
    End If
Next i
End Sub

[IronHeavy]

Nice !

concis et fluide, j'aime !