Re : Couper/coller automatique
Bonjour,
Marielou25 et moi-même avons essayé d'appliquer les codes sur notre fichier source.
Pas de problème à l'ouverture si il y a un article à archiver. Mais si il y en a aucun cela met à l'ouverture :
Erreur d'exécution '13' Incompatibilité de type
En cliquant sur Débogage j'ai accés à mon code
Sub Archiver()
Dim tab1, tab2
Dim d As Date
Dim i#, dl#, msg$
With
Feuil3
tab1 = .Range("
n4:N" & .Range("J65000").End(xlUp).Row).Value
For i = UBound(tab1) To 1 Step -1
If IsDate(tab1(i, 1)) Then
d = CDate(tab1(i, 1))
If Date > DateSerial(Year(d) + 1, Month(d), Day(d)) Then
msg = msg & .Cells(i + 3, 1) & vbCr
tab2 = .Cells(i + 3, 1).Resize(
1, 19).Value
With
Feuil4
dl = .Range("A65000").End(xlUp).Row + 1
.Cells(dl, 1).Resize(1, 19) = tab2
End With
.Rows(i + 3).EntireRow.Delete
End If
End If
Next
End With
If msg <> "" Then MsgBox "Ces articles ont été archivés:" & vbCr & msg
End Sub
La ligne mise en gras et soulignée est celle qui s'affiche surlignée en jaune. Je pensais avoir tout adapaté mais un problème persiste. Dans le code j'ai changé les noms de feuilles et également les cellules concernées (mis en italique).
Merci pour votre aide,
Cordialement.