XL 2016 copier coller en une ligne

dodineau

XLDnaute Occasionnel
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+
 
Solution
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
VB:
 Range("A1").Copy Destination:=ActiveCell

cela existe pour les valeurs
VB:
 ActiveCell.Value = Range("A1").Value

pour les formats, on peut faire avec (mais cela reste deux commandes sur une même ligne)
Code:
Range("A1").Copy: ActiveCell.PasteSpecial Paste:=xlPasteFormats
ou
Code:
Range("A1").Copy Destination:=ActiveCell: ActiveCell.ClearContents

Bien cordialement, @+
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
VB:
 Range("A1").Copy Destination:=ActiveCell

cela existe pour les valeurs
VB:
 ActiveCell.Value = Range("A1").Value

pour les formats, on peut faire avec (mais cela reste deux commandes sur une même ligne)
Code:
Range("A1").Copy: ActiveCell.PasteSpecial Paste:=xlPasteFormats
ou
Code:
Range("A1").Copy Destination:=ActiveCell: ActiveCell.ClearContents

Bien cordialement, @+
 

Discussions similaires

Haut Bas