Mini mini programme vba en panne! :-(

Fermé
JC - Modifié par JC le 29/06/2011 à 14:26
 JC - 21 juil. 2011 à 09:18
Bonjour à tous!

Je suis débutant sur vba et j'ai fait un petit programme mais qui ne marche pas :-(

Sub copiercollerspécial()

'raccourci Ctrl+w
Selection.Copy
Sheets("Historique des commandes").Unprotect
Sheets("Historique des commandes").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Sheets("Historique des commandes").Protect
Selection.Delete Shift:=xlUp

End Sub

ça met erreur sur le collage!!!

Quelqu'un sait pourquoi?

Merci pour d'avance pour les réponses!
A voir également:

2 réponses

thordek Messages postés 32 Date d'inscription mercredi 6 juillet 2011 Statut Membre Dernière intervention 12 septembre 2013 9
7 juil. 2011 à 13:20
Bonjour JC,

Ton programme marche très bien.
Je ne vois pas où est le problème.

Cdt,

Thordek
0
Je n'sais pas pourquoi ça ne fonctionne pas, mais j'ai détourner le problème en faisant ceci:


Sub copidelete()

'raccourci Ctrl+w
    Call unprotect
    Selection.Copy
    Sheets("Historique des commandes").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Selection.Delete Shift:=xlUp
    Call protect

End Sub

Sub unprotect()

Sheets("Historique des commandes").unprotect
Sheets("Tableau des commandes").unprotect

End Sub

Sub protect()

Sheets("Historique des commandes").protect
Sheets("Tableau des commandes").protect

End Sub




voilà! Merci
0