Recopie format cellule

[tellib]

Bonjour,

Je voudrais dans mon code

Lire une cellule dans une feuille et la recopier dans une autre (la valeur + le format de cellule)

Habituellement je fais ça :

Sheets("Différences").Range("C3") = Sheets("Sorties").Range("C3")
Sheets("Sorties").Select
Range("C3").Select
Selection.Copy
Sheets("Différences").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


mais je trouve ça assez lourd la recopie de format : je voudrais recopier le format sans passer par un copier coller.

je me demandais s'il existait pas une propriété pour range pour recopier le format de cellule automatiquement

j'ai essayé
Sheets("Départ").Range("C1").format=Sheets("Arrivée").Range("A1").format

mais ça ne fonctionne pas...

Merci d'avance pour votre aide

 

[pierrejean]

Re : Recopie format cellule

bonjour tellib

A tester:

Sheets("Sorties").Range("C3").copy destination:=Sheets("Différences").Range("C3")

 

[tellib]

Re : Recopie format cellule

Ca a l'air de marcher....
merci beaucoup