Macro pour décortiquer une date

[Philippe72]

bonjour à tous, je cherche une macro pour transformer une cellule en format date (jj/mm/aaaa) en trois cellules contenant :
1: le jour
2: le mois
3: l'année

merci pour votre aide

 

[Minick]

Re : Macro pour décortiquer une date

Salut,

Pourquoi ne pas utiliser les fonctions JOUR, MOIS et ANNEE d'excel...

++
Minick

 

[Philippe72]

Re : Macro pour décortiquer une date

en fait je reçois un fichier excel dans lequel il y a une colonne en format date (jj/mm/aaaa) que je dois transformer en trois colonnes distinctes car ce fichier excel sera exporté dans une base de donnée MySQL via MyODBC

 

[Minick]

Re : Macro pour décortiquer une date

Essaie comme ceci

Option Explicit

Sub DecortiqueDate()
    Dim Cellule As Range
    
    For Each Cellule In Feuil1.Range("A1:A" & Feuil1.Range("A65536").End(xlUp).Row)
        Cellule.Offset(, 1).Value = Day(Cellule)
        Cellule.Offset(, 2).Value = Month(Cellule)
        Cellule.Offset(, 3).Value = Year(Cellule)
    Next Cellule
End Sub

En colonne A tes dates, en colonne B, C, D le jour, le mois, l'annee

++
Minick

 

[Philippe72]

Re : Macro pour décortiquer une date

merci pour ta réponse mais je viens d'essayer et ça ne fonctionne pas ! ai-je fais une erreur ? est-ce que le code est bon ou je dois le modifier en fonction de ma feuille ?

 

[Philippe72]

Re : Macro pour décortiquer une date

oups, j'ai été trop vite !!! j'avais oublié de nommé le dessus des colonnes
merci à toi pour cette macro