Bonsoir ChTi160, Le Forum
Un autre problème rencontré: "Incompatibilité de type" après débogage au niveau de la ligne en gras
For I = 1 To UBound(TV, 1) 'boucle 2 : sur toutes les lignes I du tableau des valeurs TV
For J = 1 To UBound(TV, 2) 'boucle 3 sur toutes les colonnes J du tableau des valeurs TV
Select Case J 'agit en fonction de J
Case 2, 3, 4, 6, 7, 8 'cas correspondant au Code, Prénom, Nom,Lieu de naissance, Âge et Sexe
'condition 3 : si la Textbox1 est égale a une de ces colonne de TV (les 2 en MAJUSCULES)
If UCase(Left(TV(I, J), Len(Me.Txtrecherche))) = UCase(Me.Txtrecherche.Value) Then
ReDim Preserve TL(1 To 8, 1 To K) 'redimentionne le tableau des lignes TL (8 lignes, K colonnes)
Merci
DJISA