Microsoft 365 Collage valeur Erreur d'exécution 1004

[juju91]

Bonjour à tous,
Je bloque sur le problème suivant
Dans le code d'une feuille, j'ai une erreur d'exécution 1004 qui se produit au moment de faire un collage valeur dans une feuille .
pourriez-vous m'aider.
Ci dessous le code en concerné .

Private Sub TEST()
Worksheets("Plat").Visible = True
Sheets("MENU").Select
Range("B40:E48").Select
Selection.Copy
Sheets("Plat").Select
Range("C28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Plat").Visible = False
Sheets("MENU").Select
Range("C39").Select
End Sub

par avance merci

Cdt

 

[Nicolas JACQUIN]

Bonjour,
une plus courte:

Private Sub TEST()

    Worksheets("Plat").Visible = True

    Worksheets("Plat").Range("C28:F36").Value = _
        Worksheets("MENU").Range("B40:E48").Value

    Worksheets("Plat").Visible = False
    Worksheets("MENU").Range("C39").Select

End Sub

Bonne journée
Nicolas

 

[sylvanu]

Bonjour Juju, Nicolas,
Sans fichier on ne peut que supputer.

Votre feuille Plat serait elle protégée ?
Après essai la macro marche, mais si je protège la feuille Plat, j'ai ce message :

Avez vous un message dans votre fenêtre d'erreur 1004 ?

 

[TooFatBoy]

Hello,

une plus courte:

Private Sub TEST()

    Worksheets("Plat").Visible = True

    Worksheets("Plat").Range("C28:F36").Value = _
        Worksheets("MENU").Range("B40:E48").Value
    Worksheets("Plat").Visible = False

    Worksheets("MENU").Range("C39").Select

End Sub

La mienne est plus courte que la tienne :

Private Sub TEST()
    Worksheets("Plat").Range("C28:F36").Value = Worksheets("MENU").Range("B40:E48").Value
End Sub

 

[sylvanu]

La mienne est plus courte que la tienne

Je refuse de participer à ce concours. 😅😂🤣😂😅


Mais pour le code, il y a aussi :

Sheets("Plat").[C28:F36] = Sheets("MENU").[B40:E48].Value

 

[Hecatonchire]

Bonjour à tous,

Moi aussi j'ai une petite... solution

[Plat!C28:F36] = [MENU!B40:E48].Value

 

[TooFatBoy]

Moi aussi j'ai une petite... solution

J'avoue que je ne connaissais pas cette notation. 🤩

Pour une fois, ce n'est pas moi qui aie la plus petite. Merci Hecatonchire d'être là. 😉

 

[Magic_Doctor]

La mienne est plus courte que la tienne :

C'est pas bon signe 🤔