Menu

Comment extraire une annee d une date en vba [Résolu]

flexi2202
Messages postés
1671
Date d'inscription
lundi 14 mars 2011
Dernière intervention
13 novembre 2018
- 30 oct. 2018 à 15:08 - Dernière réponse : flexi2202
Messages postés
1671
Date d'inscription
lundi 14 mars 2011
Dernière intervention
13 novembre 2018
- 2 nov. 2018 à 22:06
bonjour a tous

j ai essaye plusieurs choses afin que seul l annee soit affiche dans une cellule
avec le vba

cela fonctionne mais si je note 2018 il traite l info comme un nombre et pas une date
merci de l aide

Dim myDate As Date
myDate = InputBox("entre la date ?")
myDate = DatePart("m", Date) 'extrait le mois de la date courante.
myDate = DatePart("yyyy", Date) 'extrait l'année de la date courante.

MsgBox myDate
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
pijaku
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
2 novembre 2018
- 30 oct. 2018 à 15:54
1
Merci
Bonjour,

Sub demo()
Dim myDate As Date
myDate = InputBox("entre la date ?")
With Range("A1")
   .Value = myDate
   .NumberFormat = "yyyy"
End With
End Sub 

Merci pijaku 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 27915 internautes ce mois-ci

Commenter la réponse de pijaku
didibonf
Messages postés
279
Date d'inscription
vendredi 18 juillet 2008
Dernière intervention
12 novembre 2018
- 30 oct. 2018 à 15:09
0
Merci
Bonjour,
Peut-être en utilisant :
Year(Date)
Commenter la réponse de didibonf
flexi2202
Messages postés
1671
Date d'inscription
lundi 14 mars 2011
Dernière intervention
13 novembre 2018
- 2 nov. 2018 à 21:31
0
Merci
bonjour
merci cela fonctionne
madmyke
Messages postés
37948
Date d'inscription
lundi 21 janvier 2008
Statut
Modérateur
Dernière intervention
14 novembre 2018
- 2 nov. 2018 à 22:02
Bonjour

Merci d'avoir participé à ce forum.
Il semble que votre problème ai trouvé une réponse.

Si la réponse vous satisfait je vous invite à mettre en résolue, c'est très simple.

Merci de cliquer sur >CE LIEN<


Cordialement
flexi2202
Messages postés
1671
Date d'inscription
lundi 14 mars 2011
Dernière intervention
13 novembre 2018
- 2 nov. 2018 à 22:06
bonjour
oui je vais la mettre en resolu
merci pour ce forum
Commenter la réponse de flexi2202