Discussion :

[plasto590807]

Bonjour a tous et toutes,

comment mettre un enregistrement d'une date de naissance dans un tableau du style : jour, mois ,année en VBA

Merci

[Pierre Fauconnier]

Salut.

Je ne suis pas certain d'avoir bien compris la question...

Sur base d'un tableau structuré nommé t_dates et structuré comme suit:



Tu pourrais utiliser une procédure qui reçoit la date à splitter dans les colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub AddBirthDate(Contact As String, BirthDate As Date)
  Dim r As Long
  r = Range("t_Dates").ListObject.ListRows.Add.Index
  Range("t_Dates[Contact]")(r).Value = Contact
  Range("t_Dates[Année]")(r).Value = Year(BirthDate)
  Range("t_Dates[Mois]")(r).Value = Month(BirthDate)
  Range("t_Dates[Jour]")(r).Value = Day(BirthDate)
End Sub
 
Sub Test()
  AddBirthDate "Jules", DateSerial(1985, 12, 14)
End Sub

Il faudra en dire plus sur la conception de ton classeur et l'ergonomie qui te permet de récupérer les données à placer dans le tableau si tu souhaites une aide plus adaptée.