Ecrire une date a partir de son mois et de son année séparément [Résolu/Fermé]

Signaler
Messages postés
34
Date d'inscription
jeudi 8 juillet 2010
Statut
Membre
Dernière intervention
28 octobre 2016
-
cedrixxx
Messages postés
34
Date d'inscription
jeudi 8 juillet 2010
Statut
Membre
Dernière intervention
28 octobre 2016
-
Bonjour tout le monde,

J'ai créer une macro qui me donne le mois et la date dans des variables séparer (sans jours et le tout en numérique)

Avec par exemple 8 pour août et 2016 l'année .

J'aimerais à partir de cela réécrire intervalle du mois 01/08/2016 et 31/08/2016

J'aimerais également pouvoir écrire 08/2016 (pour l'exemple) dans une cellule a partir de mes variables.

Cordialement,


3 réponses

Messages postés
3341
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
467
Bonjour,

Essaie avec:
Range("A1") = DateSerial(variable_an, variable_mois, 1)

Pour l'affichage 08/2016, tu peux utiliser un format personnalisé "mm/aaaa".

A+
cedrixxx
Messages postés
34
Date d'inscription
jeudi 8 juillet 2010
Statut
Membre
Dernière intervention
28 octobre 2016

J'ai bien le 1er jours du mois, et j'ai réussi a faire le dernier jours du mois en cours, par contre je n'arrive toujours pas a mettre mon format, j'ai essayer:

  Range("B6") = Format(DateSerial(thisYear, mois, 1), "mm / yyyy")
Messages postés
3341
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
467
Essaie :
    Range("B6") = DateSerial(thisYear, mois, 1)
Range("B6").NumberFormat = "mm/yyyy"

A+
cedrixxx
Messages postés
34
Date d'inscription
jeudi 8 juillet 2010
Statut
Membre
Dernière intervention
28 octobre 2016

J'ai bien le résultat souhaiter en "visuel" mais quand je sélectionne B6 j'ai ceci: "01/02/2016"
Messages postés
17088
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
31 mars 2020
3 920
Re,

essaye ce bidouillage

Range("A1") = "'" & (Month(Date) & "/" & Year(Date))

ou dans ton cas avec tes variables
Range("A1") = "'" & (variable_mois & "/" & variable_an)

mais dans ce cas la cellule A1 ne sera formatée en texte et non en numérique et ne pourras être exploitée dans des calculs
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
cedrixxx
Messages postés
34
Date d'inscription
jeudi 8 juillet 2010
Statut
Membre
Dernière intervention
28 octobre 2016

Sa fonctionne merci