XL 2016 Format date

[dadaze]

Bonjour,

Voici mon problème.

Dans toutes les feuilles de mon classeur, je copie une plage de cellules vers une autre feuille.
une fois ma plage collée, je me retrouve avec des chiffres à la place des dates.
Je pourrais bien évidemment depuis ma feuille dans la fenêtre format de cellule résoudre ce petit problème.
Néanmoins , je souhaiterais attribuer ce format "dd mmm yy" lorsque je colle ma plage.
J 'ai bien essayé sans succés.
ci dessous le code utilisé pour copier coller.

Si vous avez quelques instants pour m'aider je vous en remercie d'avance.

Excellente journée

for each ws in worksheets

ws.range(ws.cells(5,4), ws.cells(5,10)).copy

i = r.range("a" & rows.count).end(xlup).row +1

r.cells(i,1).pastespecial xlpastevalue

next ws

 

[vgendron]

bonjour

tu utilises le pastespecial xlpastevalue ==> donc;. comme la syntaxe l'indique, tu copies juste les valeurs sans leur formatage
et comme une date, c'est une valeur formatée, tu te retrouves avec juste des nombre

essaie .paste

 

[sylvanu]

Bonjour Dadaze, Vgendron,
Essayez peut être :

r.Cells(i, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Ce qui correspond à :

 

[dadaze]

Bonjour Dadaze, Vgendron,
Essayez peut être :

r.Cells(i, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Ce qui correspond à :
Regarde la pièce jointe 1220073

Mille merci,

En effet, ça fonctionne.

J'ai toujours tendance à complexifier les choses alors que la solution était quasiment sous me yeux

Encore merci à tous les deux