Microsoft 365 Collage valeur Erreur d'exécution 1004

juju91 · 20 Décembre 2025

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

sylvanu · 20 Décembre 2025

TooFatBoy à dit:
La mienne est plus courte que la tienne

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

Mais pour le code, il y a aussi :

VB:

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

Nicolas JACQUIN · 20 Décembre 2025

Bonjour,
une plus courte:

VB:

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 · 20 Décembre 2025

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 · 20 Décembre 2025

Hello,

Nicolas JACQUIN à dit:

une plus courte:

VB:

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 :

VB:

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

sylvanu · 20 Décembre 2025

TooFatBoy à dit:
La mienne est plus courte que la tienne

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

Mais pour le code, il y a aussi :

VB:

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

Hecatonchire · 20 Décembre 2025

Bonjour à tous,

Moi aussi j'ai une petite... solution

VB:

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

TooFatBoy · 20 Décembre 2025

Hecatonchire à dit:
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 · 20 Décembre 2025

TooFatBoy à dit:
La mienne est plus courte que la tienne :

C'est pas bon signe 🤔

Microsoft 365 Collage valeur Erreur d'exécution 1004

juju91

XLDnaute Junior

sylvanu

Nicolas JACQUIN

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Hecatonchire

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Collage valeur Erreur d'exécution 1004

XLDnaute Junior

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency