Erreur sur un code VBA (AutoFilter)

Résolu/Fermé

Ippo - Modifié par jordane45 le 23/12/2014 à 11:40
Ippo - 23 déc. 2014 à 15:43

Bonjour à tous,

J'ai une erreur sur le code ( encore merci à Lepingou d'ailleur) suivant ( sur la ligne en gras) :

'Option Explicit
Sub RecupValeurNouvCla()
Dim chemso As String, chemci As String
Dim nomso As String, nomci As String
Dim shco As String, shci As String
Dim chxcol As String, datref As Date, liginfo As Integer
liginfo = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("sheet1").Select
chemso = Range("B2"): chemci = Range("C2")
nomso = Range("B3") & "." & Range("b4"): nomci = Range("C3") & "_" & liginfo - 14 & "." & Range("C4")
shso = Range("B5")
chxcol = Range(Range("B6") & 1).Column: datref = Range("B7")
Application.ScreenUpdating = False
'   Récupère les valeurs selon date de référence
Workbooks.Open (chemso & "\" & nomso)
<bold>Range("A1").AutoFilter Field:=chxcol, Criteria1:="<" & CLng(datref)</bold>Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Workbooks("Ippo_ccm_CmdeRecupv2.xlsm").Sheets("RecupDuJour").Cells(2, 1)

Workbooks(nomso).Close SaveChanges:=False

'

End Sub

c'est une erreur de type 1004 : erreur d'éxécution la méthode autofilter de la classe range a échoué.

Savez-vous d'ou cela peut il venir ?

Merci

EDIT : Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

A voir également:

3 réponses

Réponse 1 / 3

jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025 4 743
23 déc. 2014 à 11:40

Bonjour,

Peux tu tester ceci ?

'Option Explicit
Sub RecupValeurNouvCla()
Dim chemso As String
Dim chemci As String
Dim nomso As String
Dim nomci As String
Dim shco As String
Dim shci As String
Dim chxcol As String
Dim datref As Date
Dim liginfo As Integer

Dim critere As String

liginfo = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("sheet1").Select
chemso = Range("B2"): chemci = Range("C2")
nomso = Range("B3") & "." & Range("b4"): nomci = Range("C3") & "_" & liginfo - 14 & "." & Range("C4")
shso = Range("B5")
chxcol = Range(Range("B6") & 1).Column: datref = Range("B7")
Application.ScreenUpdating = False
' Récupère les valeurs selon date de référence
Workbooks.Open (chemso & "\" & nomso)

critere = "<" & CLng(datref)

Range("A1").AutoFilter Field:=chxcol, Criteria1:=critere
Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Workbooks("Ippo_ccm_CmdeRecupv2.xlsm").Sheets("RecupDuJour").Cells(2, 1)

Workbooks(nomso).Close SaveChanges:=False

End Sub

PS: Tu as bien des entêtes de colonne ?
PS2 : Tu n'as pas de cellules vides (dans ta ligne de colonnes) ?

Réponse 2 / 3

Ippo
Modifié par jordane45 le 23/12/2014 à 11:58

Bonjour,

Merci pour ta réponse le problème venait en effet de mon entête de colonne qui n'était plus en A1.

Par contre j'ai eu une erreur sur la ligne du dessous :

Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Workbooks("Ippo_ccm_CmdeRecupv2.xlsm").Sheets("RecupDuJour").Cells(2, 1)

erreur 57121 : erreur définie par l'application ou par 'lobjet.

As tu une idée d'ou elle vient ?

Merci pour ton aide

jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025 4 743
23 déc. 2014 à 12:00

Le classeur Ippo_ccm_CmdeRecupv2.xlsm existe et est ouvert ?
La feuille RecupDuJour existe ?

Dans la ligne de code....La syntaxe du nom du classeur et celui de la feuille sont bien rigoureusement identiques à ce que tu as ?

Réponse 3 / 3

Ippo
23 déc. 2014 à 14:09

Oui j'ai vérifié plusieurs fois, c'est bien les mêmes noms. Le classeur Ippo_ccm_CmdeRecupv2.xlsm est ouvert car c'est celui ou il y a le module.

D'autres piste ?

jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025 4 743
23 déc. 2014 à 14:55

Sub copyFiltre()

Dim Fsource As Worksheet
Dim Fcible  As Worksheet
Dim WkbCible As Workbook

Set Fsource = ActiveSheet
Set WkbCible = Workbooks("Ippo_ccm_CmdeRecupv2.xlsm")
Set Fcible = WkbCible.Sheets("RecupDuJour")

Fsource.Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Fcible.Cells(2, 1)

End Sub

Ippo > jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025
23 déc. 2014 à 15:02

C'est à copier à quel niveau ?

Merci

jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025 4 743 > Ippo
23 déc. 2014 à 15:07

Tu colles

'Déclaration des variables
Dim Fsource As Worksheet
Dim Fcible  As Worksheet
Dim WkbCible As Workbook

'Initialisation des variables
Set Fsource = ActiveSheet
Set WkbCible = Workbooks("Ippo_ccm_CmdeRecupv2.xlsm")
Set Fcible = WkbCible.Sheets("RecupDuJour")

'Copy des cellules visibles
Fsource.Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Fcible.Cells(2, 1)

A la place de ta ligne de code qui pose problème...

(l'ideal.. serait quand même de placer les déclarations de variables au début de ton script...)

Ippo
23 déc. 2014 à 15:25

Ca marche merci pour ton aide.

Par contre je crois qu'il y a trop de ligne à copier l'ordi à planté. Tu penses que le code est trop lourd ?

jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025 4 743
23 déc. 2014 à 15:31

Le code n'est pas spécialement lourd...
Par contre ça dépend du nombre de lignes à copier bien sûr.

Discussions similaires

"La méthode Paste de la classe Worksheet a échoué"

Bonjour à toutes et à tous,

Je me retrouve sur une bête erreur VBA lors d'un ActiveSheet.Paste. Voici mon code:
Dim Cel_reso As Range Set Cel_reso = Cells.Find(What:="Résolution") If Not Cel_reso Is Nothing Then Cells(1, Cel_reso.Column).Resize(Cells(Rows.Count, Cel_reso.Column).End(xlUp).Row).Cut Columns("A:A").Insert Shift:=xlToRight Range("A1").Select ActiveSheet.Paste End If

Et l'erreur se positionne sur "ActiveSheet.Paste"

Merci d'avance de votre aide à tous !

Erreur '1004' Méthode autofilter de la classe range a échoué

Bonjour,

Après des recherches, je ne trouve pas de solution à mon problème (qui d'ailleurs n'existait pas auparavant ...)

Explication du programme : je dois filtrer un tablau dans une feuille nommée "Restrictions" en fonction du matricule d'un agent que je renseigne dans une textbox nommée "txt_matricule" qui appartient au userform "matricule_agent".

L'erreur intervient pour la ligne surlignée mais je n'arrive pas à trouver pourquoi dans ce contexte ..

Private Sub cmd_consultation_Click()
'Filtrer en fonction du choix du matricule de l'agent
Sheets("Restrictions").Select
Selection.AutoFilter Field:=1, Criteria...

Méthode Select de la classe Range

Bonjour à tous,

j'ai un code VBA qui me permet de créer un graphique à partir du nombre d'occurences de chaque entrée.

Certaines entrées ont une occurence nulle, et j'aimerais qu'elles n'apparaissent pas dans mon graphique.
Pour cela, avant la création du graphique, j'ai rajouté les lignes de code suivantes qui me permettent de masquer les lignes pour laquelle l'occurence est nulle.

''''''''''''''''''''''Masquage des occurrence nulles'''''''''''''''''''''''''''' ligne2 = 27 Do Until IsEmpty(Cells(ligne2, "B")) If Cells(ligne2, "B").Value = 0 Then Rows(ligne2).Select Selection.EntireRow.Hidden = True ligne2 = ...

Erreur 1004-La méthode Sort de la classe Range a échoué

Bonjour,

Excel2013

J'ai un code VBA :

Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
If sh.Name Like "##" Then

With sh
.Range("D3:P41").Sort key1:=.Range("D3"), order1:=xlAscending, Header:=xlNo
End With
End If

End Sub

Et chaque fois cela m'indique Erreur d’exécution 1004
La méthode Sort de la classe Range a échoué. Etant novice là dessus je voudrais savoir si quelqu'une ou quelqu'un puisse m'aider.
Merci

Configuration: Windows 10/ Chrome 60.0.3112.113

Erreur 1004 - La méthode Select de la base Range a échoué

Bonjour,

Débutante en VBA je cherche à exécuter une macro qui me permet de copier une plage de données d'un classeur 1 vers la 1ère ligne disponible d'un classeur 2.
J'ai cherché une solution à cette erreur 1004 sur nombre de forums mais je n'ai pas trouvé.

Pourriez-vous SVP m'apportez vos lumières pour corriger cette macro.

Sub Extraction()

Sheets("Feuil1").Range("a5:e18").Copy
Workbooks.Open Filename:="C:\Desktop\Classeur2.xlsm"
With Sheets("Feuil1").UsedRange: NoDeLaDernLig = .Cells(.Rows.Count, .Columns.Count).Row: End With
Sheets("Prélèvements").Cells(NoDeLaDernLig + 1, 1).Select
ActiveSheet.P...

VBA - Macro Filtre automatique - Erreur 1004

Bonsoir à tous,

J'ai développé sur un autre PC (avec Excel 2016) une macro intégrant la méthode Autofilter pour des dates. Lorsque j'ouvre le fichier sur mon ordinateur (avec Excel 2020), j'obtiens l'erreur suivante :

"Erreur d'execution 1004
La méthode Autofilter de la classe Range a échoué"

J'ai cherché et testé plusieurs choses mais rien à faire. Je suis donc revenu aux bases et j'ai crée un petit exemple. En utilisant l'enregistreur de macro, j'obtiens ce code ...

Sub Macro_Filtre() ActiveSheet.Range("$C$4:$F$10").AutoFilter Field:=2, Operator:= _ xlFilterValues, Criteria2:=Array(1, "1/1/2020") End Sub ...