besoin d'aide sur une macro

[sniper2002]

bonjour

je bloque sur un code : l'objectif est de copier les données d'une plage de données vers une autre tout en vidant la première et en ajoutant l'enregistrement à la dernière ligne vide (dispo) dans la 2eme plage et enfin vérouiller l'ensemble des données dela 2ème plage .

Sub macro1()
Dim fin As Long
ActiveSheet.Unprotect
fin = [B65536].End(xlUp).Row
[datas].Copy Cells(fin, 2).Offset
[datas].ClearContents
ActiveSheet.Protect
End Sub

un message d'erreur est affiché par la suite "erreur 1004 : erreur définie par l'application ou par l'objet"

merci d'avance

 

[vbacrumble]

Re : besoin d'aide sur une macro

Re


Tiens je reconnais la chose 😉
C'est normal, il manque la plage nommée datas ...
Pourtant je te l'avais déjà dit

Lien supprimé

C'est mieux de lire nos réponses entièrement 😉

 

[sniper2002]

Re : besoin d'aide sur une macro

re
je voie que tu porte une attention particulière à mes posts 🙂
effectivement , après vérification, c'été une de tes réponses, à ce sujet je te remercie.

même avec la plage B3:H3 = datas ça ne marche pas !
j'ai toujours erreur 400

A+

 

[vbacrumble]

Re : besoin d'aide sur une macro

Re

Relis mon message dans l'autre post
Tu verras que le code que tu as posté ici , il lui manque quelque chose 😉
(chose qui ne manque pas dans ta pièce jointe, sans doute un souci de copier/coller )

Le code de ce message du 20/04/09 fonctionnait non ?

PS:

je voie que tu porte une attention particulière à mes posts

non j'ai juste reconnu un code que j'avais écrit.

 

[sniper2002]

Re : besoin d'aide sur une macro

super ça marche ! j'ai enlever juste le verouillage pour la saisie
mais cela est parfait
merci bq
A+