Filtre d'un textbox sur critère
Bonsoir,
Dans un premier formulaire, l'utilisateur peut saisir un numéro de compte. Faute de le connaître, il peut ouvrir un autre formulaire depuis ce dernier et faire une recherche par le nom des personnes. Un textbox liste les personnes et les comptes associés.
Mes questions:
- dans ma source de données, il y a une entête de colonne qui me permet à l'initialisation du formulaire de placer des entêtes de colonnes. Lorsque je filtre par le nom, je perds les entêtes des colonnes. J'ai codé:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Listecpt.RowSource = ""
If Nom.Value = "" Then
Listecpt.RowSource = "A2:D10"
Listecpt.ColumnHeads = True
Listecpt.ColumnCount = 4
Else
Worksheets(2).Activate
Range("A2").Select
For lig = 2 To Range("A65536").End(xlUp).Row
If Mid(Cells(lig, 2), 1, Len(Nom.Value)) = Nom.Value Then
' Ajoute une ligne et insère une donnée dans la colonne de gauche
Listecpt.AddItem Cells(lig, 1).Value
For col = 2 To 4:
Listecpt.List(Listecpt.ListCount - 1, col - 1) = Cells(lig, col).Value
' ' Listecpt.List(ind, col) = Cells(lig, col).Value
Next col
Else
If Mid(Cells(lig, 2), 1, Len(Cells(lig, 2))) > Nom.Value Then
Exit Sub
End If
End If
Next lig
End If |
Existe t-il un moyen de ne pas perdre ces entêtes de colonnes.
- Comment faire pour récupérer le numero du compte dans le formulaire appelant ?
Merci d'avance.
Julien.
