Mini mini programme vba en panne! :-( Fermé

Question

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!

thordek · Answer

Bonjour JC,

Ton programme marche très bien.
Je ne vois pas où est le problème.

Cdt,

Thordek

JC · Answer

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

Mini mini programme vba en panne! :-(

2 réponses

Discussions similaires