VBA - couper cellule

Fermé
throrgrulf Messages postés 31 Date d'inscription mardi 14 octobre 2003 Statut Membre Dernière intervention 15 janvier 2017 - 2 mai 2011 à 14:33
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 2 mai 2011 à 15:00
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.



1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
2 mai 2011 à 15:00
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
0