Macro Copier/Coller une plage fonctionne 1 fois sur 2

  • Initiateur de la discussion Initiateur de la discussion good57
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

good57

XLDnaute Occasionnel
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 ...
 

Pièces jointes

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

Bonjour,

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

Code:
[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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
115
Réponses
10
Affichages
365
Retour