XL 2016 copier coller en une ligne

[dodineau]

Bonjour à toutes et tous.
Je désire faire un copier/coller d'un format surla cellule active.
Cette instruction est en erreur : Range("A1").Copy Activecell.Pastespecial paste:=XlPasteFormats

Merci pour votre aide.
A+

 

[sylvanu]

Bonsoir Dodineau,
Testez cela :

    Range("A1").Copy
    ActiveCell.PasteSpecial Paste:=xlPasteFormats

Sur deux lignes.

 

[dodineau]

Bonjour et merci pour cette réponse.
C’est déjà comme ça que je procède mais comme il existe une instruction de copier / coller en une ligne je pensais qu’il existait un paramètre à rajouter pour se limiter au seul format.
A+

 

[Bernard_XLD]

Bonjour dodineau, sylvanu, le forum

Bonjour et merci pour cette réponse.
C’est déjà comme ça que je procède mais comme il existe une instruction de copier / coller en une ligne je pensais qu’il existait un paramètre à rajouter pour se limiter au seul format.
A+

non, cela existe pour la plage entière

 Range("A1").Copy Destination:=ActiveCell

cela existe pour les valeurs

 ActiveCell.Value = Range("A1").Value

pour les formats, on peut faire avec (mais cela reste deux commandes sur une même ligne)

Range("A1").Copy: ActiveCell.PasteSpecial Paste:=xlPasteFormats

ou

Range("A1").Copy Destination:=ActiveCell: ActiveCell.ClearContents

Bien cordialement, @+

 

[dodineau]

Bonjour,
Merci ça confirme ce que je pensais mais je me suis dit on ne sait jamais...
A+