Sujet Précédent Sujet Suivant

VBA Excel : Date en français

Résolu/Fermé
sifusalade Messages postés 134 Date d'inscription samedi 21 janvier 2012 Statut Membre Dernière intervention 16 juillet 2021 - 7 août 2012 à 11:19
sifusalade Messages postés 134 Date d'inscription samedi 21 janvier 2012 Statut Membre Dernière intervention 16 juillet 2021 - 8 août 2012 à 11:47
Bonjour,

Je fais suite aux deux sujet que j'ai posté sur le même fichier
https://forums.commentcamarche.net/forum/affich-25739995-vba-excel-base-de-donnee-courrier#p25777305
et
https://forums.commentcamarche.net/forum/affich-25777033-vba-excel-alimenter-combobox#p25777545

Sur mon formulaire, j'ai un TextBox où je dois saisir la date (j'en ai même deux, une pour la date d'envoi, et l'autre pour la date de notification), je fais mes essais sur la date d'envoi, il me suffira d'appliquer la même méthode pour la date de notification.

Ce que j'arrive pas à faire, c'est, en tapant par exemple 14/2 dans mon TextBox (nommé TexteDate), que la date s'insère dans la cellule qui va bien comme tel : 14 Fév 2012

J'ai créer une fonction sur le site Excel Labo
http://www.excelabo.net/trucs/datefrancaise

Mais je ne sais pas comment l'utiliser ensuite, visiblement, ça serais la seule solution... Mais vous avez peut être une solution à mon problème...

Pour vous aider à y voir plus clair, je vous joins mon fichier :
http://cjoint.com/12au/BHhloBqKXZw.htm

Merci par avance

A voir également:

4 réponses

Réponse 1 / 4
cousinhub29 Messages postés 969 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 28 novembre 2024 345
7 août 2012 à 12:50
Bonjour,

Essaie en modifiant ainsi ta procédure "Ajout" : 

.....
ActiveCell.Value = CDate(UserForm1.TexteDate.Value)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CDate(UserForm1.TexteNotif.Value)
.....


Nota, vérifie bien que le format des cellules des colonnes "F" et "G" est bien "Standard", au préalable

Bonne journée
0
Réponse 2 / 4
sifusalade Messages postés 134 Date d'inscription samedi 21 janvier 2012 Statut Membre Dernière intervention 16 juillet 2021 7
7 août 2012 à 13:31
ça fonctionne !!
Merci beaucoup !

Par contre y'a un hic ! Si je ne rempli pas, il met une erreur d'incompatibilité de type.
La date de notif doit être renseignée que plus tard (dès réception de l'accusé de réception du courrier recommandé). Dans un premier temps, ce champs doit rester vide, puis l'enregistrement devra être modifié pour y ajouter cette date de notif...

Sachant, que dans cette version du fichier, je n'ai pas encore placé le gestionnaire d'erreur qui obligera l'utilisateur à renseigner les champs "Numéro, Timbre, Objet, Date destinaire et d'envoi" mais de doit pas forcer le remplissage des champs "date de notification et commentaires" (je me servirai de celui que j'ai obtenu grâce au topic https://forums.commentcamarche.net/forum/affich-25739995-vba-excel-base-de-donnee-courrier#p25777305 )
0
Réponse 3 / 4
cousinhub29 Messages postés 969 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 28 novembre 2024 345
7 août 2012 à 15:19
re-,

Tu rajoutes une condition du style : 

....
If Not IsEmpty(UserForm1.TexteNotif) Then
ActiveCell.Value = CDate(UserForm1.TexteNotif.Value)
End If
......


par exemple
0
Réponse 4 / 4
sifusalade Messages postés 134 Date d'inscription samedi 21 janvier 2012 Statut Membre Dernière intervention 16 juillet 2021 7
8 août 2012 à 11:47
Merci beaucoup, je me suis servi de la réponse de cousinhub29 comme base et je l'ai modifié un peu. (j'avais besoin d'une double condition).

Niquel !!! Merci beaucoup
0