Problème Filtre avancé, code erreur Résolu

Question

Bonjour,

Grâce à l'aide du membre Kuartz, je dispose d'un code me permettant de filtrer en feuille 2 les données contenues dans la feuille 1 (une base de données qui est amené à évoluer régulièrement). 
Le pb est le code ne fonctionne pas systématiquement, j'ai régulièrement le message erreur suivant : Erreur définie par l'application ou par l'objet, au niveau de la ligne Sheets(1).Range(Cells(4, 1), Cells(DL, 4)).Select

Nous n'arrivons pas à comprendre pourquoi ça ne fonctionne pas.

Voici mon fichier :  http://www.cjoint.com/c/EGuhT0emJQ5 

Merci d'avance pour votre aide

ThauTheme · Answer

Bonjour,

Ton fichier est inaccessible et le bout de code que tu proposes ne nous permet pas de t'aider... Toutefois, sélectionner une plage d'un onglet autre que l'onglet actif, nécessite la sélection au préalable de cet onglet. Le code correct serait :
With Sheets(1)
     .Select
     .Range(.Cells(4, 1), .Cells(DL, 4)).Select
End With
On devrait pouvoir se passer des Select qui ne font que ralentir l'exécution du code mais il faudrait le code en entier...

jordane45 · Answer

Bonjour,

Je n'ai pas regardé ton fichier .. mais dans un premier temps pour que tu puisse essayer de trouver l'erreur... as tu regardé, lorsque ça plante..., ce que vaut ta variable DL ?

ti_mouton · Answer

Voici mon code en entier :

Sub FiltreAvance()

Dim DL As Integer
DL = Sheets(1).Cells(Application.Rows.Count, 1).End(xlUp).Row
Sheets(1).Range(Cells(4, 1), Cells(DL, 4)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(2).[B1:B2], CopyToRange:=Sheets(2).[B6], Unique:=True

End Sub


EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code 

Merci d'y penser dans tes prochains messages.
.

Problème Filtre avancé, code erreur

3 réponses

Discussions similaires

Newsletters