Userform copie date en chiffre (et parfois en anglais)

[titiborregan5]

Bonjour à tous,
j'ai de nouveau un pb avec ma macro et me tourne donc vers vous!
Comme je n'ai pas réussi à faire simple, j'ai du faire compliquer :d
J'ai une liste de mois sous le format : Janvier 2009 etc et dans la colonne d'à coté, se marque "OK" si la date d'aujourd'hui - celle de gauche est inférieure à 60 jours.
Ensuite intervient ma macro, qui copie et colle les mois ayant un OK en M2.

Cette liste qui s'actualise donc automatiquement est faite pour être ensuite affichée dans mon userform qui se lance à l'ouverture du classeur.

Mais la valeur choisie dans l'usf qui se colle en A2 se colle en chiffre et je n'arrive pas à la changer.
De plus, la liste de choix dans l'usf pour le mois en question est en anglais

Je vous laisse donc le fichier pour que vous puissiez apprécier par vous-même et reste à votre disposition pour expliquer certains points sombres...

Merci d'avance

 

[pedrag31]

Re : Userform copie date en chiffre (et parfois en anglais)

Bonjour Titiborregan5, bonjour le forum,

Il faut simplement ajouter le format dans ton code VBA :

Else: Cells(2, 1).Value = Format(mois, "mmmm/yy")

Voir fichier joint...😉

Bonne journee,🙂

 

[titiborregan5]

Re : Userform copie date en chiffre (et parfois en anglais)

Bonjour Pedrag31, le forum,

effectivement ça marche MERCI BEAUCOUP!

Je suis un peu dégouté d'avoir échoué aussi près du but ...
Sinon, une idée sur le fait que le mois s'affiche en anglais dans l'userform? Même s'ils s'inscrivent en français ensuite dans la cellule, c'est dommage d'avoir cela!

Merci d'avance!

 

[titiborregan5]

Re : Userform copie date en chiffre (et parfois en anglais)

Re,
j'ai légèrement modifié le code pour que lorsque la case est vide le msg box s'affiche et que si on click sur ok le userform se remette toujours! Afin qu'on ne saute pas (au minimum pcq en réalité suffit de cliquer sur la croix rouge) cette étape!
Par contre mes mois s'affichent tjs en anglais! Comment faire?

 

[PascalXLD]

Re : Userform copie date en chiffre (et parfois en anglais)

Bonjour

CHez moi les mois sont bien français

Sinon j'aurais fais

Cells(1, 1).Value = CDate(fecha)

pour éviter certaines erreurs

 

[pedrag31]

Re : Userform copie date en chiffre (et parfois en anglais)

Bonjour Titiborregan5, bonjour Pascal, le forum

Par contre mes mois s'affichent tjs en anglais! Comment faire?

Désolé, je te réponds depuis mon poste pro et le pack Office que j'utilise est en anglais...🙁

Il s'agit peut être d'une erreur de config qqpart... Voir peut être dans le panneau de configuration avec les "Regional Settings"... Je dis ça a tout hasard...

Bonne journée, 🙂

 

[titiborregan5]

Re : Userform copie date en chiffre (et parfois en anglais)

Bonjour à tous,
effectivement c'est bizarre... Après ça ne dérange pas plus que ça, donc pas grave!
PascalXLD, je dois la mettre où cette ligne de code?

Merci encore

 

[PascalXLD]

Re : Userform copie date en chiffre (et parfois en anglais)

RE

En fait elle remplace

Cells(1, 1).Value = fecha

 

[titiborregan5]

Re : Userform copie date en chiffre (et parfois en anglais)

re,
Par contre fecha c'est la date, qui elle est au format que je veux!
ce sont les mois qui s'affichent en anglais comme dans l'image que j'ai postée au dessus!
et aussi: j'ouvre mon classeur, mon usf s'ouvre, les mois s'affichent (en anglais mais bon 😉) je clique sur celui que je veux sélectionner, et celui-ci s'affiche en chiffre dans la ligne!
Une idée pour le mettre au même format?

 

[pedrag31]

Re : Userform copie date en chiffre (et parfois en anglais)

Bonjour a tous,

Essaies peut être de bidouiller qqch avec

Cells(1, 1).Value = Format (CDate(fecha), "mmmm/yy")

Non teste.

++

Bonne journee,🙂