Bonjour gaets,
désolé, j'avais oublié d'enlever une instruction Exit Sub
(que j'avais mise pour des tests) ; c'est fait dans ce fichier :
cependant, la fonction recherche ne marche toujours pas ; peut-être que tu suis une certaine façon pour l'utiliser ? j'avais supposé que ta fonction recherche était bonne, j'avais supprimé les modules inutiles, et enlevé l'erreur 13 ; ceci devrait pouvoir t'aider :
1) l'erreur 13 se produisait uniquement pour la feuille n° 4 : "Affinage - IX"
2) Extrait de la sub Recherche() :
Else
If Not IsEmpty(var) Then
For g = 1 To UBound(B)
For i = 1 To UBound(var, 1)
For j = 1 To UBound(var, 2)
A = Trim$(CStr(var(i, j)))
l'erreur 13 se produisait sur la ligne qui est juste après le For j
; j'ai ajouté le CStr() et si tu l'enlèves, l'erreur d'incompatibilité de type se produira de nouveau pour la feuille n° 4 ; mes tests m'avaient indiqué que ça le faisait pas pour les autres feuilles.
dhany