Bonjour à tous,

Dans un UserForm qui contient 4 contrôlesTextBox1, 2, 3 et 4.

Dont voici le code pour le premier :
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
Private Sub TextBox1_Change()
  colRecherche = 1
  clé = "*" & Me.TextBox1 & "*"
  Dim Tbl()
  For i = 1 To UBound(TblBD)
    If TblBD(i, colRecherche) Like clé Then
        n = n + 1
        ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
        For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(i, k): Next k
     End If
  Next i
  If n > 0 Then
     Me.ListBox1.Column = Tbl
   Else
     Me.ListBox1.List = TblBD
   End If
End Sub
Les 3 autres sont identiques seul le nom du TextBox change.

Quelle est la meilleure solution : créer un module classe ou si possible créer une macro commune au 4 TextBox.

Je fais appel à vos connaissances et compétences pour apporter une réponse à mes questions.

Merci d'avance.