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 : 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
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.