Ecrire une date a partir de son mois et de son année séparément

Résolu/Fermé
cedrixxx Messages postés 34 Date d'inscription jeudi 8 juillet 2010 Statut Membre Dernière intervention 28 octobre 2016 - 30 sept. 2016 à 14:00
cedrixxx Messages postés 34 Date d'inscription jeudi 8 juillet 2010 Statut Membre Dernière intervention 28 octobre 2016 - 3 oct. 2016 à 09:40
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

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
30 sept. 2016 à 14:07
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+
0
cedrixxx Messages postés 34 Date d'inscription jeudi 8 juillet 2010 Statut Membre Dernière intervention 28 octobre 2016 1
30 sept. 2016 à 14:57
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")
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
30 sept. 2016 à 15:46
Essaie :
    Range("B6") = DateSerial(thisYear, mois, 1)
Range("B6").NumberFormat = "mm/yyyy"

A+
0
cedrixxx Messages postés 34 Date d'inscription jeudi 8 juillet 2010 Statut Membre Dernière intervention 28 octobre 2016 1
3 oct. 2016 à 08:26
J'ai bien le résultat souhaiter en "visuel" mais quand je sélectionne B6 j'ai ceci: "01/02/2016"
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 3/10/2016 à 08:52
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.
0
cedrixxx Messages postés 34 Date d'inscription jeudi 8 juillet 2010 Statut Membre Dernière intervention 28 octobre 2016 1
3 oct. 2016 à 09:40
Sa fonctionne merci
0