Excelnaute
XLDnaute Nouveau
Bonsoir à tous,
A partir de la feuille Tableau je voudrais copier les lignes dont les cellules (non contigues définies par vrange), contiennent la date du jour vers la feuille archive.
Le résultat s'arrête à trouver et copier le 1er enregistrement qui correspond à la recherche find (date) et le copie bien dans la feuille archive à la première ligne vide.
Le problème est que le programme s'arrête là sans passer aux enregistrements suivants et avec un message d'erreur 438 (PROPRIETE METHODE NON GEREE PAR CET OBJET).
Merci de m'aider à sortir de cette... boucle.
Cordialement.
cpt = 0
With Worksheets("archive")
.AutoFilterMode = False
Set cdest = .Cells(.Rows.Count, "A").End(xlUp)(2)
End With
With Worksheets("Tableau")
.Range("$A$14:$t$" & visible).AutoFilter field:=5, Criteria1:="1"
Set c = .Range(vrange).SpecialCells(xlCellTypeVisible).Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
adr = c.Address
Do
With c.EntireRow
.Copy cdest
cpt = cpt + 1
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adr
End If
Set cdest=nothing
End With
A partir de la feuille Tableau je voudrais copier les lignes dont les cellules (non contigues définies par vrange), contiennent la date du jour vers la feuille archive.
Le résultat s'arrête à trouver et copier le 1er enregistrement qui correspond à la recherche find (date) et le copie bien dans la feuille archive à la première ligne vide.
Le problème est que le programme s'arrête là sans passer aux enregistrements suivants et avec un message d'erreur 438 (PROPRIETE METHODE NON GEREE PAR CET OBJET).
Merci de m'aider à sortir de cette... boucle.
Cordialement.
cpt = 0
With Worksheets("archive")
.AutoFilterMode = False
Set cdest = .Cells(.Rows.Count, "A").End(xlUp)(2)
End With
With Worksheets("Tableau")
.Range("$A$14:$t$" & visible).AutoFilter field:=5, Criteria1:="1"
Set c = .Range(vrange).SpecialCells(xlCellTypeVisible).Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
adr = c.Address
Do
With c.EntireRow
.Copy cdest
cpt = cpt + 1
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adr
End If
Set cdest=nothing
End With