Récupérer mois et année d'une cellule date
Résolu
Bonjour,
J'ai un code vba qui va s'appliquer à partir d'une cellule de mon fichier excel.
Dans cette cellule, l'utilisateur va entrer une date sous la forme "jj/mm/aaaa" et j'aimerai récupérer le mois de cette cellule dans une variable M et l'année dans une variable A afin de faire tourner mon programme en fonction de M et A.
Si quelqu'un sait comment faire je le remercie par avance
J'ai un code vba qui va s'appliquer à partir d'une cellule de mon fichier excel.
Dans cette cellule, l'utilisateur va entrer une date sous la forme "jj/mm/aaaa" et j'aimerai récupérer le mois de cette cellule dans une variable M et l'année dans une variable A afin de faire tourner mon programme en fonction de M et A.
Si quelqu'un sait comment faire je le remercie par avance
5 réponses
-
C'est bon ça marche avec la méthode de Via55 et celle de Gyrus.
Merci à tous pour votre aide.
Cordialement, -
Bonjour,
Dim M As Integer, A As Integer
M = Month(Range("A1").Value)
A = Year(Range("A1").Value)
A+ -
Bonjour,
Avec la date en A1 :m = Month(CDate(Range("A1"))) a = Year(CDate(Range("A1")))
Cdlmnt
Via
-
Bonjour,
voir cela :
https://www.excel-downloads.com/threads/extraire-la-partie-texte-dune-cellule-en-vba.113921/
En définitive il faut aller chercher avec la fonction Mid je crois les 4eme et 5eme caractère = au mois les mètrent dans une varaiable "m" et ensuite aller chercher les 7-8-9-10 eme caratères de l'année et les mètrent dans une variable "a" -
Salut,
En VBA, je ne sais pas mais sinon en formule, cela donne :
=TEXTE(A1;"mmmm") pour récupérer le mois
=TEXTE(A1;"aaaa") pour l'année
Cdlt
