Macro Copier/Coller une plage fonctionne 1 fois sur 2

[good57]

Bonjour,

Sur la feuille "792" de mon classeur, il y a un bouton rouge "Zuruckstellen" qui lance la macro "MWZuruckstellenCopierColler".

Ce bouton est censé copier un plage de cellule de le feuille "Zuruckstellen" pour la coller dans la feuille "792"

A noter que cette macro enlève la protection de la feuille "792", colle, puis remet cette protection.

Mon souci : la macro fonctionne 1 fois sur 2. Ca n'est pas une facon de parler, elle marche vraiment 1 fois sur 2 ...

 

[Tentative]

Re : Macro Copier/Coller une plage fonctionne 1 fois sur 2

Bonjour,

Une tentative... placer la ligne 1 en position 3

[Sub MWZurückstellenCopierColler2()
'
' MWZurückstellenCopierColler2 Macro
    ActiveSheet.Unprotect
    ActiveSheet.Range("B7").Select
    Sheets("Zurückstellen").Range("B7:AV257").Copy
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("N3:R3").ClearContents
    Range("N3:R3").Select
    'Verrouillage feuille
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True
End Sub
]

Tentative

 

[good57]

Re : Macro Copier/Coller une plage fonctionne 1 fois sur 2

Je regarde ça demain.
Merci déjà pour ta réponse !

 

[good57]

Re : Macro Copier/Coller une plage fonctionne 1 fois sur 2

Merci, ça marche très bien !