VBA - couper cellule

throrgrulf Messages postés 33 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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