Discussion :

[franc83]

Bonjour

Voila j'ai adapté du code à mon application, qui fonctionne en partie mais j'ai des soucis avec la fonction auto tabulation qui ne fonctionne pas.Il est vrais que je n'ai pas tout compris ce code
La fonction est de rechercher dans toutes les colonnes la lettre ou le chiffre tapé dans le label Tbx1,puis d'affiner au fur et à mesure des valeurs entrées dans TBX1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Tbx1_Change()
On Error Resume Next
Application.ScreenUpdating = False
t = Range("A3:I" & Range("A65536").End(xlUp).Row)
Lbx1.Clear
x = 1
For i = 1 To UBound(t)
For j = 1 To 9
If Left(t(i, j), Len(Tbx1)) = Left(Tbx1, Len(Tbx1)) Then
ReDim Preserve ta(1 To 9, 1 To x)
For k = 1 To 9
ta(k, x) = t(i, k)
Next k: x = x + 1: End If: Next j: Next i
Lbx1.List = Application.Transpose(ta)
If x - 1 = 1 Then
For e = 1 To 9
Controls("Textbox" & e) = Lbx1.List(Lbx1.ListIndex + e)
Next e: Lbx1.Clear: End If
Erase t, ta
If Tbx1 = "" Then
Lbx1.Clear: Label2.Caption = ""
For e = 1 To 9: Controls("Textbox" & e) = "": Next e: Lbx1.Clear: End If
Beep
End Sub

merci

[jfontaine]

Bonjour,

Il fonctionne bien ton code.
Peux tu nous expliquer l'utilité de la propriété Autotab dans ce code. qu'en attends tu ?

[franc83]

Ce que je veux dire c'est lorsque l'on entre une lettre dans la case recherche ,un certain nombre de mots s'affichent ,si l'on entre une deuxième lettre tous les mots ne comportant pas cette lettre sont effacer. A la limite si l'on entre le mot complet il ne restera que celui la dans le tableau.

[jfontaine]

A la limite si l'on entre le mot complet il ne restera que celui la dans le tableau.

C'est bien ce que fait ton code.
Ce n'est pas ce que tu veux?


Désolé, mais je n'arrive pas a cerner ton problème

[franc83]

Bonjour merci de me repondre

Si cela fonctionne chez vous,ce n'est pas le cas pour moi ,à la première lettre entrée cela fonctionne mais à la deuxième lettre entrée le tableau se vide totalement.
je suis sous exel 2007
merci

[jfontaine]

Avec Excel 2010, ça fonctionne.
Avec Excel 2003, ça ne fonctionne pas (même la première lettre)

Je regarde pour une adaptation de ton code dans la soirée