Problème Macro Filtre

[g.hayoune]

coucou tous le monde!!

voila en fait j'ai récupérer un code pour filtre une feuille puis recopier le contenu sur une autre. sa a l'air de bien fonction lorsque j'active la macro qui me permet d'effacer les données recopiée ainsi que lorsque je choisie la date pour filtrer mais il y un problème lorsque le filtre veut x'executer:

le debogeur se lance et me marque "erreu d'execution 1004"
erreur defini par l'application opu par l'objet

voila mon code

Public la_date As Variant
Public DerL As Long
Public WS As Worksheet
Sub Macro_OK()
'suppression des filtres existants
For Each WS In Worksheets
If WS.AutoFilterMode = True Then WS.AutoFilterMode = False
Next
Application.ScreenUpdating = False
la_date = Format(Date, "mm/dd/yy")
a_filtre ("GAZ")
a_filtre ("WAN")
a_filtre ("STPS.ELEC")
Sheets("DISPONIBILITE").Columns("A:M").Columns.AutoFit
le_filtre
Application.ScreenUpdating = True
End Sub


Sub efface_agenda()
Sheets("DISPONIBILITE").Range(Cells(2, 1), Cells(200, 20)).Clear
For Each WS In Worksheets
If WS.AutoFilterMode = True Then WS.AutoFilterMode = False
Next
End Sub
Sub a_lademande()
'suppression des filtres existants
For Each WS In Worksheets
If WS.AutoFilterMode = True Then WS.AutoFilterMode = False
Next

Application.ScreenUpdating = False
la_date = Format(InputBox("Saisir la date désirée"), "mm/dd/yy")

a_filtre ("GAZ")
a_filtre ("WAN")
a_filtre ("STPS.ELEC")

Sheets("DISPONIBILITE").Columns("A:M").Columns.AutoFit
le_filtre
Application.ScreenUpdating = True
End Sub

Sub le_filtre()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.AutoFilterMode = True Then WS.ShowAllData
Next
End Sub
Sub a_filtre(feuille As String)
DerL = Sheets("DISPONIBILITE").Cells(65536, 1).End(xlUp).Row + 1
With Worksheets(feuille)
.Range("A1").Copy Sheets("DISPONIBILITE").Range("A" & DerL)
.Range("A2").AutoFilter _
1, ">=" & la_date, xlAnd, "<=" & la_date
[COLOR="Red"][B].AutoFilter.Range.Copy Sheets("DISPONIBILITE").Range("A" & DerL + 1)[/B][/COLOR]
End With
End Sub

la partie rouge est celle remarquer par le debogueur comme mauvaise.

si quelqu'un a une idée je suis tout ouïe!!!

 

[BERRACHED said]

Re : Problème Macro Filtre

Salut,g.hayoune

Tu as essaye ça pour la gestion de cette erreur :

on error resume next

a mettre avant la ligne en rouge la ou sa bloque

Cordialement

 

[skoobi]

Re : Problème Macro Filtre

Bonjour,

et comme ceci?:
.AutoFilter.Range(1).CurrentRegion.Copy Sheets("DISPONIBILITE").Range("A" & DerL + 1)

 

[skoobi]

Re : Problème Macro Filtre

Salut,g.hayoune

Tu as essaye ça pour la gestion de cette erreur :

on error resume next

a mettre avant la ligne en rouge la ou sa bloque

Cordialement

Re Said,

ok mais dans ce cas le résultat de son filtre ne sera pas copié dans la feuille dispo...

 

[BERRACHED said]

Re : Problème Macro Filtre

Salut,skoobi

ouais tu a raison dans ce cas le demi que tu as commander tout a l'heure c'est moi qui paye

Cordialement

 

[g.hayoune]

Re : Problème Macro Filtre

deja merci saïd et skoobi te m'accorder un peu de temps!!!!

en fait ce qui est très troublant c'est que ce code fonctionne très bien la ou je les pris. je l'ai juste adapter a mon fichier pour pouvoir l'utilise... Donc pour moi sa serai peu etre un problème de syntaxe que je vois pas nan?

 

[ernest]

Re : Problème Macro Filtre

As-tu essayé de voir le fonctionnement de la macro en "Pas a pas" ?

 

[g.hayoune]

Re : Problème Macro Filtre

ui ui ernest j'ai revue le fonctionnement de la macro pas a pas car la macro effacement fonctionne tres bien.
help je suis pommer

 

[ernest]

Re : Problème Macro Filtre

Peux-tu mettre un fichier exemple avec des données factices sur lesquels joue la macro ?

tu as mis dans le post de départ :

"voila en fait j'ai récupérer un code pour filtre une feuille puis recopier le contenu sur une autre"

or je ne vois pas le nom de l'autre feuille ? Il n'y a d'utiliser dans le code de la macro
que la feuille "DISPONIBILITE", non ?

 

[g.hayoune]

Re : Problème Macro Filtre

voila ernest mon fichier vois si t'arrive a comprendre dou vient le bug!!
http://xxx0066.free.fr/Travail/Centralisation%20Informatique%20-%20Copie.rar
a l'avance merci!!!

 

[ernest]

Re : Problème Macro Filtre

Est-ce que dans la feuille DISPONIBILITE tu dois avoir la ligne des champs de chaque feuille - séparé par une ligne blanche ?
ou bien est-ce que les données de chaque feuille doivent se cumuler sous une seule ligne de champs ?

Pour l'instant la macro marche sans s'arrêter (chez moi) = pas de message d'erreur !

 

[g.hayoune]

Re : Problème Macro Filtre

en fait dans DISPONIBILITE la lgigne des champs de chaque feuille est separer par une ligne blache.

et toi la macro fonctionne bien!! lol moi pa du tout. ve tu le fichier sur d'origine ou jai pomper le code?

 

[g.hayoune]

Re : Problème Macro Filtre

en fait voila comme sa c fait si tu le ve.

 

[ernest]

Re : Problème Macro Filtre

Sur le fichier source agenda je bugge en recopiant l'agenda parce qu'il y a une cellule fusionnée sur plusieurs cellules en A1, les filtres n'aiment pas cela.

en corrigeant :

Sub a_filtre(feuille As String)
DerL = Sheets("Agenda").Cells(65536, 1).End(xlUp).Row + 1
With Worksheets(feuille)
.Range("A1").Copy Sheets("Agenda").Range("A" & DerL)
en
.Range("A2").Copy Sheets("Agenda").Range("A" & DerL)

cette macro fonctionne.

 

[ernest]

Re : Problème Macro Filtre

en fait dans DISPONIBILITE la lgigne des champs de chaque feuille est separer par une ligne blache.

et toi la macro fonctionne bien!! lol moi pa du tout. ve tu le fichier sur d'origine ou jai pomper le code?

Essaye de modifier ta macro :

Sub a_filtre(feuille As String)
DerL = Sheets("DISPONIBILITE").Cells(65536, 1).End(xlUp).Row + 1

With Worksheets(feuille)
.Range("A1").Copy Sheets("DISPONIBILITE").Range("A" & DerL)
.Range("A2").AutoFilter _
1, ">=" & la_date, xlAnd, "<=" & la_date
.AutoFilter.Range.Copy Sheets("DISPONIBILITE").Range("A" & DerL + 1)
End With
End Sub

en ceci

Sub a_filtre(feuille As String)
DerL = Sheets("DISPONIBILITE").Cells(65536, 1).End(xlUp).Row + 1

With Worksheets(feuille)
' cette ligne en remarque .Range("A1").Copy Sheets("DISPONIBILITE").Range("A" & DerL)
' sur la ligne en dessous met A1 au lieu de A2
.Range("A1").AutoFilter _
1, ">=" & la_date, xlAnd, "<=" & la_date
.AutoFilter.Range.Copy Sheets("DISPONIBILITE").Range("A" & DerL + 1)
End With
End Sub

@ te lire

j'essaye de joindre le fichier corrigé (en zip) mais c'est la première fois

Bon, pas trouver comment faire ! doit être trop gros 123 Ko zippé