Erreur sur un code VBA (AutoFilter)
Résolu/Fermé
A voir également:
- La méthode autofilter de la classe range a échoué
- La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
- La méthode range de l'objet worksheet a échoué ✓ - Forum VB / VBA
- Input signal out of range ✓ - Forum Matériel & Système
- La connexion a échoué - Forum Réseaux sociaux
- Vba range avec variable ✓ - Forum VB / VBA
3 réponses
jordane45
Messages postés
38144
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 avril 2024
4 650
23 déc. 2014 à 11:40
23 déc. 2014 à 11:40
Bonjour,
Peux tu tester ceci ?
PS: Tu as bien des entêtes de colonne ?
PS2 : Tu n'as pas de cellules vides (dans ta ligne de colonnes) ?
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) ?