macro ne veut plus coller des cellules

dudu24

XLDnaute Nouveau
Bonjour le forum,

Je rencontre un problème que je n'arrive pas à résoudre.
J'ai une macro qui copie et colle les données des feuilles 1 et 2 dans la "récap commentaires".
Jusqu'ici tout va bien mais maintenant, quand je clique sur le bouton, un message d'erreur apparait en me disant que le format des cellules n'est pas le même et donc impossible de coller.

Pourriez-vous m'aider à résoudre ce problème?

Merci d'avance!
 

Pièces jointes

  • essai archivage.zip
    20.5 KB · Affichages: 39

pierrejean

XLDnaute Barbatruc
Re : macro ne veut plus coller des cellules

Bonjour dudu24

Teste avec
Code:
Sub Archiverl1()
Dim F1 As Worksheet
Dim F4 As Worksheet
Dim DAT As Range
Dim lig As Variant
Dim newlig As Long
Dim destination As Range
Set F1 = ActiveSheet
Set F6 = Feuil6
Set DAT = F1.Range("h8")
If IsEmpty(DAT) Then MsgBox "Il faut entrer la date...": Exit Sub
Set destination = F6.Range("a" & F6.Range("A65536").End(xlUp).Row + 1)
F1.Range("h8:m" & F1.Range("H65536").End(xlUp).Row).Copy destination
End Sub
 
Dernière édition:

Statistiques des forums

Discussions
312 753
Messages
2 091 667
Membres
105 039
dernier inscrit
rouibi