Date vba

Résolu
develySIDE Messages postés 58 Statut Membre -  
develySIDE Messages postés 58 Statut Membre -
Bonjour,

j'ai un petit soucis au niveau de mes dates; dans une colonne de mon fichier excel j'ai toute les dates de naissance, ce que je souhaite, c'est juste récupérer l'année de naissance. Mes cellules sont bien au format date, mais lorsque je récupère avec la fonction " Year()" l'année de la date, il me retourne une date en 1905, alors que je ne fais pas de calcul et la date entrée est une date en 2004, je ne comprend absolument pas, je vous fournit le code

Private Sub boutonagetest_Click()

Dim annee As Date
Dim anneenaiss As Date


Dim i As Integer
i = 4
Dim j As Integer
j = 1
Dim valeur As Integer


While ThisWorkbook.Sheets("Mois 1").Range("E" & i).Value <> ""
    If ThisWorkbook.Sheets("Mois 1").Range("B" & i).Value <> "" Then
        annee = ThisWorkbook.Sheets("Mois 1").Range("B" & i).Value
        anneenaiss = Year(annee)
        ThisWorkbook.Sheets("Feuil1").Range("A" & j).Value = anneenaiss
        j = j + 1
    End If
    i = i + 1

Wend

End Sub

1 réponse

jordane45 Messages postés 40050 Statut Modérateur 4 754
 
Bonjour,

Essayes ça :
annee = ThisWorkbook.Sheets("Mois 1").Range("B" & i).Value
anneenaiss = Year(CDate(annee))

0
develySIDE Messages postés 58 Statut Membre
 
Hélas non cela ne fonctionne pas, j'ai bel et bien toujours mes dates en 1905. Pourtant en mode pas à pas, ma variable "annee" comporte bien la date dans le bon format.

Le fait qu'il n'y est pas de caractère entourant cette date peut il posé problème ? par exemple il n'y à pas de dièse qui entoure ma date, ni de double quote ou encore de quote simple
0
jordane45 Messages postés 40050 Statut Modérateur 4 754 > develySIDE Messages postés 58 Statut Membre
 
Dans quel format est la colonne A ?
Tu peux la mettre au format NOMBRE ou STANDARD ?
0
develySIDE Messages postés 58 Statut Membre
 
Oui ! Merci ! Ma colonne A était en date elle aussi, pourtant année reste un bout de date je ne comprend pas bien pourquoi il me modifiait lerésultat ?

mais j'ai changer en format standard et j'ai la bonne valeur désormais, merci beaucoup
0
jordane45 Messages postés 40050 Statut Modérateur 4 754 > develySIDE Messages postés 58 Statut Membre
 

, pourtant année reste un bout de date

Une date contient un Jour, Un Mois, Une année .... un "bout" de date... n'est pas une date.

Quoi qu'il en soit,
Si la question est résolue..
Merci de ne pas oublier de clôturer le sujet
(en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de la question)

Cordialement,
Jordane
0
develySIDE Messages postés 58 Statut Membre
 
Merci beaucoup dans tout les cas
0