J'aimerais savoir pourquoi Excel se refuse à coller ce que je lui ai fait
copier sur la page précédente !!!!
Voici mon code:
Private Sub CommandButton2_Click()
If Sheet1.Range("A57").Value = "" Then Exit Sub
Sheet1.Range("a57:P57").Copy
Sheet2.Select
With ActiveSheet()
.Unprotect "cheque"
.[A65536].Select
Selection.End(xlUp)(2).Select
ActiveSheet.Paste
Application.CutCopyMode = True
End With
etc......
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Denys
Eurêkâ !!!!
Faut déprotéger la feuille 2 avant de copier sur la feuille 1 !!!!!!
Merci Laurent (trouvé sur Google !!)
Denys
Bonjour à tous,
J'aimerais savoir pourquoi Excel se refuse à coller ce que je lui ai fait copier sur la page précédente !!!!
Voici mon code: Private Sub CommandButton2_Click() If Sheet1.Range("A57").Value = "" Then Exit Sub Sheet1.Range("a57:P57").Copy Sheet2.Select With ActiveSheet() .Unprotect "cheque" .[A65536].Select Selection.End(xlUp)(2).Select ActiveSheet.Paste Application.CutCopyMode = True End With etc......
Il bloque à ActiveSheet.Paste...
C'est quoi le problème??????
Merci
Denys
Eurêkâ !!!!
Faut déprotéger la feuille 2 avant de copier sur la feuille 1 !!!!!!
Merci Laurent (trouvé sur Google !!)
Denys
Bonjour à tous,
J'aimerais savoir pourquoi Excel se refuse à coller ce que je lui ai fait
copier sur la page précédente !!!!
Voici mon code:
Private Sub CommandButton2_Click()
If Sheet1.Range("A57").Value = "" Then Exit Sub
Sheet1.Range("a57:P57").Copy
Sheet2.Select
With ActiveSheet()
.Unprotect "cheque"
.[A65536].Select
Selection.End(xlUp)(2).Select
ActiveSheet.Paste
Application.CutCopyMode = True
End With
etc......
Faut déprotéger la feuille 2 avant de copier sur la feuille 1 !!!!!!
Merci Laurent (trouvé sur Google !!)
Denys
Bonjour à tous,
J'aimerais savoir pourquoi Excel se refuse à coller ce que je lui ai fait copier sur la page précédente !!!!
Voici mon code: Private Sub CommandButton2_Click() If Sheet1.Range("A57").Value = "" Then Exit Sub Sheet1.Range("a57:P57").Copy Sheet2.Select With ActiveSheet() .Unprotect "cheque" .[A65536].Select Selection.End(xlUp)(2).Select ActiveSheet.Paste Application.CutCopyMode = True End With etc......
Il bloque à ActiveSheet.Paste...
C'est quoi le problème??????
Merci
Denys
Denys
Laurent (de Marseille) en l'honneur de qui je prendrai l'apéro ce soir !!!!
Denys
Eurêkâ !!!!
Faut déprotéger la feuille 2 avant de copier sur la feuille 1 !!!!!!
Merci Laurent (trouvé sur Google !!)
Denys
Bonjour à tous,
J'aimerais savoir pourquoi Excel se refuse à coller ce que je lui ai fait copier sur la page précédente !!!!
Voici mon code: Private Sub CommandButton2_Click() If Sheet1.Range("A57").Value = "" Then Exit Sub Sheet1.Range("a57:P57").Copy Sheet2.Select With ActiveSheet() .Unprotect "cheque" .[A65536].Select Selection.End(xlUp)(2).Select ActiveSheet.Paste Application.CutCopyMode = True End With etc......
Il bloque à ActiveSheet.Paste...
C'est quoi le problème??????
Merci
Denys
Laurent (de Marseille) en l'honneur de qui je prendrai l'apéro ce soir !!!!
Denys
Eurêkâ !!!!
Faut déprotéger la feuille 2 avant de copier sur la feuille 1 !!!!!!
Merci Laurent (trouvé sur Google !!)
Denys
Bonjour à tous,
J'aimerais savoir pourquoi Excel se refuse à coller ce que je lui ai fait
copier sur la page précédente !!!!
Voici mon code:
Private Sub CommandButton2_Click()
If Sheet1.Range("A57").Value = "" Then Exit Sub
Sheet1.Range("a57:P57").Copy
Sheet2.Select
With ActiveSheet()
.Unprotect "cheque"
.[A65536].Select
Selection.End(xlUp)(2).Select
ActiveSheet.Paste
Application.CutCopyMode = True
End With
etc......
Laurent (de Marseille) en l'honneur de qui je prendrai l'apéro ce soir !!!!
Denys
Eurêkâ !!!!
Faut déprotéger la feuille 2 avant de copier sur la feuille 1 !!!!!!
Merci Laurent (trouvé sur Google !!)
Denys
Bonjour à tous,
J'aimerais savoir pourquoi Excel se refuse à coller ce que je lui ai fait copier sur la page précédente !!!!
Voici mon code: Private Sub CommandButton2_Click() If Sheet1.Range("A57").Value = "" Then Exit Sub Sheet1.Range("a57:P57").Copy Sheet2.Select With ActiveSheet() .Unprotect "cheque" .[A65536].Select Selection.End(xlUp)(2).Select ActiveSheet.Paste Application.CutCopyMode = True End With etc......
