Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Vba, Copy Paste

Vba, Copy Paste

3 réponses
Avatar
SI
Bonjour,

Je souhaiterais copier uniquement le format d'une cellule avec cette méthode
mais je n'y arrive pas.

Worksheets("Feuil2").Range("A4").Copy _
Destination:=Worksheets("Feuil1").Range("A11:" &
Range("a65000").End(xlUp).Row)

J'ai essayé avec celle ci-dessous mais j'ai l'erreur 1004 :
Worksheets("Feuil2").Range("A4").Copy
Worksheets("Feuil1").Range("A11:" & Range("a65000").End(xlUp).Row) _
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False,
Transpose:=False

Quelqu'un aurait une idée ?

Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Papou
Bonjour
Précision STP :
tu veux copier le format de A4 sur plusieurs cellules ?
Cordialement
Pascal


"SI" a écrit dans le message de news:
409a1a76$0$12734$
Bonjour,

Je souhaiterais copier uniquement le format d'une cellule avec cette
méthode

mais je n'y arrive pas.

Worksheets("Feuil2").Range("A4").Copy _
Destination:=Worksheets("Feuil1").Range("A11:" &
Range("a65000").End(xlUp).Row)

J'ai essayé avec celle ci-dessous mais j'ai l'erreur 1004 :
Worksheets("Feuil2").Range("A4").Copy
Worksheets("Feuil1").Range("A11:" & Range("a65000").End(xlUp).Row) _
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:úlse,
Transpose:úlse

Quelqu'un aurait une idée ?

Merci




Avatar
Papou
En attendant ta réponse et si c'est bien ce que tu veux, modifies comme ça :
Sheets("Feuil1").Range("A11:A" & Range("A65536").End(xlUp).Row).PasteSpecial
Paste:=xlFormats 'le reste est inutile
N'oublie pas un :
Application.CutcopyMode = False

Cordialement
Pascal

"Papou" a écrit dans le message de news:

Bonjour
Précision STP :
tu veux copier le format de A4 sur plusieurs cellules ?
Cordialement
Pascal


"SI" a écrit dans le message de news:
409a1a76$0$12734$
Bonjour,

Je souhaiterais copier uniquement le format d'une cellule avec cette
méthode

mais je n'y arrive pas.

Worksheets("Feuil2").Range("A4").Copy _
Destination:=Worksheets("Feuil1").Range("A11:" &
Range("a65000").End(xlUp).Row)

J'ai essayé avec celle ci-dessous mais j'ai l'erreur 1004 :
Worksheets("Feuil2").Range("A4").Copy
Worksheets("Feuil1").Range("A11:" & Range("a65000").End(xlUp).Row) _
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:úlse,
Transpose:úlse

Quelqu'un aurait une idée ?

Merci








Avatar
SI
C'est exact, je souhaite copier le format de A4 sur plusieurs cellules.
Je teste ta méthode

Merci
"Papou" a écrit dans le message de
news:
Bonjour
Précision STP :
tu veux copier le format de A4 sur plusieurs cellules ?
Cordialement
Pascal


"SI" a écrit dans le message de news:
409a1a76$0$12734$
Bonjour,

Je souhaiterais copier uniquement le format d'une cellule avec cette
méthode

mais je n'y arrive pas.

Worksheets("Feuil2").Range("A4").Copy _
Destination:=Worksheets("Feuil1").Range("A11:" &
Range("a65000").End(xlUp).Row)

J'ai essayé avec celle ci-dessous mais j'ai l'erreur 1004 :
Worksheets("Feuil2").Range("A4").Copy
Worksheets("Feuil1").Range("A11:" & Range("a65000").End(xlUp).Row) _
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:úlse,
Transpose:úlse

Quelqu'un aurait une idée ?

Merci