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
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