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,

A voir également:

3 réponses

Réponse 1 / 3

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+

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")

Réponse 2 / 3

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+

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"

Réponse 3 / 3

Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 5 104
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.

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

Discussions similaires

Annuaire portable gratuit à partir d'un nom

Chemin Logo du site de la Cité de l'espace

convertir des trimestres en ans mois et jours

Connaitre la date d'une photo.

je cherche la date et le lieu de naissance d une personne