Fonction year et month ne marche pas

Résolu
sam*foufur Messages postés 11 Statut Membre -  
sam*foufur Messages postés 11 Statut Membre -
Bonjour,

Je demande une date par intputbox.
Je souhaiterai qu'en cellule A1, le résultat suivant s'affiche :
(si la date donnée est 01/01/2015) --> janvier 2015 - décembre 2015
Mon problème est que les fonctions year et txt que j'utilise ne semble pas distinguer les dates. Non seulement, je n'arrive pas à concatener les éléments entre eux mais en plus les fonctions year et text affiche systématiquement janvier et 1900 quelque soit la date de départ.
Merci pour votre aide
Je joint le fichier https://www.cjoint.com/?3CfjjREDYRH

1 réponse

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,

    Pourquoi voloir écrire une formula alors que VBA te donne le résultat
    Range("b2") = "=text(" & date1 & ",""mmmm"")"
    par
    Range("B1")=format(date1,"mmmm")

    de m^me écris
    Range("b4") = Year(date1)

    d'autre part, il n'y a pas de garantie de saisie correcte dans ton inputbox...
    0
    1. sam*foufur Messages postés 11 Statut Membre
       
      Bonjour michel_m

      J'ai effectivement enlever la formule et le résultat fonctionne.
      Pour la saisie correcte de mon inputbox, je la rajouterai peut-être par la suite mais pour le moment nous ne sommes que 2 à utiliser ce fichier donc cela devrait aller.

      Merci beaucoup
      Bonne journée
      Sam*foufur
      0