remplacer date de naissance par année de naissance

[Blafi]

Bonjour à tous,

Malgré mes recherches sur le forum je n'ai pas trouvé la solution à mon problème, tout ce que j'essaye en me basant sur les solutions proposées me provoque une erreur que je ne sais analyser...

Voilà : dans la colonne A j'ai une liste de date de naissance (jj/mm/aa). Je désire remplacer ces dates de naissances, donc dans la même cellule, par l'année de naissance, le tout en VBA. J'arrive bien à extraire l'année grace à an=year(activecell) mais lorsque j'essaye d'insérer le résultat (activecell.value=An ou avec une formule en faisant copy puis paste sur la même cellule)j'obtiens systématiquement une date complète de l'année 1905 (genre 01/11/1905, la même pour toutes les cellules..).

Comment puis-je faire cette opération ?

Merci de votre aide et à bientot...

 

[david84]

Re : remplacer date de naissance par année de naissance

Bonsoir,
je pense qu'il ne faut pas oublier de choisir un format de cellule personnalisée afin que l'année soit affichée.
A+

 

[Fred0o]

Re : remplacer date de naissance par année de naissance

Bonsoir Blafi,

Voici un code conçu pour une plage de dates de [A1] à [A4]. A adapter à ton fichier :

Sub Test2()
    Dim i As Integer
    For i = 1 To 4
        Cells(i, 1) = Year(Cells(i, 1))
        Cells(i, 1).NumberFormat = "General"
    Next
End Sub

A+

 

[Blafi]

Re : remplacer date de naissance par année de naissance

Bonjour à tous,

Merci Fred0o pour la réponse.
Entre temps j'avais trouvé une solution qui marche en faisant (mes dates étant dans la colonne H sur une longueur non connue d'avance):


Public Sub CalculerAnNaiss()

Fi = ActiveSheet.Range("H65536").End(xlUp).Row
Range("H3:H" & Fi).Select
For Each cece In Selection
An = Year(cece)
cece.Select
Selection.Value = An
Selection.NumberFormat = ("0")
Next
End Sub