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

Résolu
cedrixxx Messages postés 37 Statut Membre -  
cedrixxx Messages postés 37 Statut Membre -
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

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    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
    1. cedrixxx Messages postés 37 Statut Membre 1
       
      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
  2. Gyrus Messages postés 3360 Statut Membre 526
     
    Essaie :
        Range("B6") = DateSerial(thisYear, mois, 1)
    Range("B6").NumberFormat = "mm/yyyy"

    A+
    0
    1. cedrixxx Messages postés 37 Statut Membre 1
       
      J'ai bien le résultat souhaiter en "visuel" mais quand je sélectionne B6 j'ai ceci: "01/02/2016"
      0
  3. Mike-31 Messages postés 18205 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. cedrixxx Messages postés 37 Statut Membre 1
       
      Sa fonctionne merci
      0