Date vba
Résolu
develySIDE
Messages postés
58
Statut
Membre
-
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
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
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
Tu peux la mettre au format NOMBRE ou STANDARD ?
mais j'ai changer en format standard et j'ai la bonne valeur désormais, merci beaucoup
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