XL 2016 copier coller en une ligne

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2021

• #2

Bonsoir Dodineau,
Testez cela :

VB:

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

Sur deux lignes.

 

Vote positif 0 Vote négatif

D

dodineau

XLDnaute Occasionnel

• 15 Octobre 2021

• #3

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+

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 15 Octobre 2021

• #4

Bonjour dodineau, sylvanu, le forum

dodineau à dit:

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+

Cliquez pour agrandir...

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, @+

 

Vote positif 0 Vote négatif

Solution

D

dodineau

XLDnaute Occasionnel

• 15 Octobre 2021

• #5

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

 

Vote positif 0 Vote négatif