VBA - couper cellule

Question

Bonjour,

Voila, j'ai une petite question en VBA. J'ai essayer plusieurs tutoriels sur le web mais je n'ai pas trouver de réponses.

J'ai une feuille avec une cellule "DATE" type :  2011-04-07T13:23:18+00:00
Et voudrais mettre la première partie  (à savoir 2011-04-07) dans une autre feuille, et sur 3 cellules : "année", "mois", et "jour"

Je pense qu'il est assez aisé de se séparé de la partie "T13:23:18+00:00" avec trunc, en revanche, je ne vois pas comment splitter la date et la repartir dans les bonnes cellules.

Je vous remercie d'avance pour votre aide.



Configuration: Windows 7 / Safari 534.16

michel_m · Answer

Bonjour
a adapter
Sub separer()
separe = Split(Range("A1"), "-")
With Sheets(2)
     .Range("A1") = separe(0)
     .Range("B1") = separe(1)
     .Range("C1") = Left(separe(2), 2)
     .Range("B1:C1").NumberFormat = "00"
End With
End Sub

VBA - couper cellule

1 réponse

Discussions similaires

Newsletters