Recherche et tri... erreur d'exécution 1004

Bonjour,

Après avoir récupéré des infos sur ce site pour créer un fichier qui permet de faire des recherches par une colonne "nom", j'ai depuis aujourd'hui le message suivant qui s'affiche lorsque j'écris un "nom", non identifié dans la liste

Mon fichier fait au minimum 380 Ko, donc ne passe pas par ici.

Il s'agissait d'un fichier avec plusieurs colonnes (entreprises, adresse, ville, CP)

Une cellule dans lequelle j'cérivais le nom d'une entreprise et la macro allait chercher le nom.

Pour revenir à la liste complète (900 lignes), je supprime le nom dans la cellule de recherche.

Aujourd'hui, lorsqu'une entreprise n'est pas dans la liste et que je veux revenir à ma liste d'origine, Excel me mets "erreur d'exécution 1004"

En revanche, avec une entreprise identifiée dans la liste, la macro fonctionne.

Dans le fichier, la seule ligne d'exécution est :

"=SI($D$19="";VRAI;ESTNUM(CHERCHE($D$19;D24)))"

Les macros sont les suivantes :

Option Explicit

Sub filtre()

Application.ScreenUpdating = False

Dim Lg

Call Afficher_Tout

Lg = [D65536].End(xlUp).Row

Range("D23:D" & Lg).AdvancedFilter Action:=xlFilterInPlace, _

CriteriaRange:=Range("D20:E21"), Unique:=False

End Sub

Sub Afficher_Tout()

On Error Resume Next

Worksheets("Feuil1").ShowAllData

On Error GoTo 0

End Sub

J'ai aussi plein de cellules vides et masquées dans mon fichier (que je n'ai pas encore compris) et si je les supprime, la macro ne fonctionne plus.

Merci de m'aider ou de changer le système.

OZ

Bonjour,

Après avoir cherché dans toutes les questions autour de cette erreur d'exécution 1004, je n'ai pas trouvé la réponse qui résolverait mon problème.

Quelqu'un aurait-il la solution ?

Merci par avance,

Bonjour

flam72 a écrit :

Merci de m'aider

Avec ton fichier cela serait déjà plus envisageable

Expliques bien la démarche à suivre pour provoquer le bug

Malheureusement mon fichier fait plus de 300 Ko et je n'arrive pas à le réduire

Bonjour

Compresses le ou tu as Cjoint (entre-autres) http://cjoint.com/index.php

On a besoin surtout de la structure

Excellent, je n'avais pas pensé à le compresser !!

Le voilà !

Bonjour

Le problème vient que la feuille à été renommée

Modifies ta macro

Sub Afficher_Tout()
On Error Resume Next
    Worksheets("Données").ShowAllData
On Error GoTo 0
End Sub

Génial !!!

Merci à toi et Bonne journée