Fonction year et month ne marche pas

Résolu/Fermé
sam*foufur Messages postés 11 Date d'inscription vendredi 6 février 2015 Statut Membre Dernière intervention 5 mars 2015 - 5 mars 2015 à 08:59
sam*foufur Messages postés 11 Date d'inscription vendredi 6 février 2015 Statut Membre Dernière intervention 5 mars 2015 - 5 mars 2015 à 10:16
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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
5 mars 2015 à 09:30
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
sam*foufur Messages postés 11 Date d'inscription vendredi 6 février 2015 Statut Membre Dernière intervention 5 mars 2015
5 mars 2015 à 10:16
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