Rapport de message :*
 

Re: Erreur d'exécution '91'

Titre du sujet : Re: Erreur d'exécution '91'
par hben le 25/04/2015 19:08:00

Bonjour à tous,

 

On aimerai bien savoir quel est l'intérêt de ce code (un filtrage sur trois colonnes selon un terme recherché qui se termine par la commande "ActiveSheet.ShowAllData" qui réaffiche le tout)...

L'erreur est due (du moins je crois) à l'absence du terme recherché dans la colonne précédente (colonne B) après filtrage de cette colonne... Tu pourras faire un petit essai en éliminant le terme recherché dans la première colonne et exécuter le code, l'erreur sera dans le filtrage de la colonne B...
N'y a-t-il pas erreur dans les lignes du code suivantes:

ActiveSheet.Range("A:A").AutoFilter Field:=2, Criteria1:=StrRecherche

ActiveSheet.Range("A:A").AutoFilter Field:=3, Criteria1:=StrRecherche

Filtre sur colonne A selon les champs 2 et 3  ???

 

De préférence joindre le fichier concerné pour faire nos essais...

 

Cordialement