Bonjour,
j'utilise un code créé je crois par Mr Boisgontier.
Mais lorsque je cherche lev dans la liste ci-dessous.
Voici le retour qui s'affiche.
La comparaison du texte ne fonctionne pas car il n'y a aucune thèse dont le sujet comporte ces trois lettres.
Je ne sais pas si une solution existe ?
J'espère avoir respecté la charte de ce Forum car c'est la première fois que je l'utilise.
Cordialement
Guy52
j'utilise un code créé je crois par Mr Boisgontier.
VB:
Private Sub TextBox1_Change()
If Me.TextBox1 <> "" Then
mots = Split(Trim(Me.TextBox1), " ")
Tbl = choix
For I = LBound(mots) To UBound(mots)
Tbl = Filter(Tbl, mots(I), True, vbTextCompare)
Next I
If UBound(Tbl) > -1 Then
Dim b(): ReDim b(1 To UBound(Tbl) + 1, 1 To Ncol)
For I = LBound(Tbl) To UBound(Tbl)
a = Split(Tbl(I), "*")
For K = 1 To Ncol: b(I + 1, K) = a(K - 1): Next K
Next I
Me.ListBox1.List = b
Me.Label1.Caption = UBound(Tbl) + 1 & " Ligne(s)"
End If
Mais lorsque je cherche lev dans la liste ci-dessous.
Etude géologique et métallogénique de la région de Vabre, Ferrières et Brassac (Tarn) |
Etude tectonique et microtectonique comparée de deux domaines hercyniens: Les nappes de la Montagne Noire (France) et l’Anticlinorium de l’Iglesiense (Sardaigne) |
Le Quercy blanc au sud-ouest de Cahors: Aperçu paléogéographique et structural et Ressources du sol. |
Le dôme «Orthogneissique» de Montredon-Labessonnié (Tarn) et son enveloppe métamorphique |
Le Paléozoïque du Massif de l’Arize (Pyrénées Ariégeoises) |
La zone cénomanienne à l’Est de la Vallée du Salat. Etude stratigraphique et structurale |
Le volcanisme de l’Ossau (Pyrénées Atlantiques) : pétrologie et analyse structurale |
Le massif granitique du Sidobre : pétrographie, structures, relation mise en place cristallisation |
Voici le retour qui s'affiche.
La comparaison du texte ne fonctionne pas car il n'y a aucune thèse dont le sujet comporte ces trois lettres.
Je ne sais pas si une solution existe ?
J'espère avoir respecté la charte de ce Forum car c'est la première fois que je l'utilise.
Cordialement
Guy52