Bonjour à tous,
je m'adresse à vous aujourd'hui en raison d'un problème dont je ne trouve pas de solution sur le forum ou sur le Net.
j'ai une base de données de projet (numéro, nom(s), chargé d'affaire, ...)
et j'aimerai pouvoir faire une recherche suivant certains paramètres.
grâce à un USF basique (un textbox et une listbox) j'aimerai afficher l'ensemble des lignes contenant le mot contenu dans le textbox.
j'ai utilisé ce bout de code:
For Each c In Workbooks("bddnum.xls").Sheets("bdd").Range("b1:b" & a)
If UCase(c) Like "*" & UCase(UserForm8.TextBox1) & "*" Then
UserForm8.ListBox1.AddItem
UserForm8.ListBox1.List(k, 1) = c
UserForm8.ListBox1.List(k, 0) = c.Offset(, -1)
UserForm8.ListBox1.List(k, 2) = c.Offset(, 3)
UserForm8.ListBox1.List(k, 3) = c.Offset(, 20)
UserForm8.ListBox1.List(k, 4) = c.Offset(, 13)
k = k + 1
End If
taille_progressbar = taille_progressbar + 180 / (4 * a)
Image2.Width = taille_progressbar
Me.Repaint
Next c
ce code me trouve effectivement ce que je veux, mais par exemple :
si je recherche "Briançon" et qu'il trouve "Briancon", il ne me l'affichera pas.
comment traiter les caractères spéciaux ?
je m'adresse à vous aujourd'hui en raison d'un problème dont je ne trouve pas de solution sur le forum ou sur le Net.
j'ai une base de données de projet (numéro, nom(s), chargé d'affaire, ...)
et j'aimerai pouvoir faire une recherche suivant certains paramètres.
grâce à un USF basique (un textbox et une listbox) j'aimerai afficher l'ensemble des lignes contenant le mot contenu dans le textbox.
j'ai utilisé ce bout de code:
For Each c In Workbooks("bddnum.xls").Sheets("bdd").Range("b1:b" & a)
If UCase(c) Like "*" & UCase(UserForm8.TextBox1) & "*" Then
UserForm8.ListBox1.AddItem
UserForm8.ListBox1.List(k, 1) = c
UserForm8.ListBox1.List(k, 0) = c.Offset(, -1)
UserForm8.ListBox1.List(k, 2) = c.Offset(, 3)
UserForm8.ListBox1.List(k, 3) = c.Offset(, 20)
UserForm8.ListBox1.List(k, 4) = c.Offset(, 13)
k = k + 1
End If
taille_progressbar = taille_progressbar + 180 / (4 * a)
Image2.Width = taille_progressbar
Me.Repaint
Next c
ce code me trouve effectivement ce que je veux, mais par exemple :
si je recherche "Briançon" et qu'il trouve "Briancon", il ne me l'affichera pas.
comment traiter les caractères spéciaux ?