Définition d'un format date userform VBA (excel2010)
JustineK
Messages postés
8
Statut
Membre
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai créé une userform qui permet de rentrer plusieurs informations dont des dates pour qu'elles soient ensuite rangées dans une ligne d'un tableau excel.
Le problème est que les dates sont entrées dans les "box" de la userform sous le format DD/MM/YYYY et une fois la macro exécutée, la date s'affiche dans la cellule Excel au format américain MM/DD/YYYY (normal je sais)...
Les variables de dates ont été définies "as Variant" au début de la macro.
Dans la userform j'ai voulu définir le format de la date en DD/MM/YYYY mais si j'éxécute la userform j'obtiens une erreur d'exécution 424 : Objet Requis et cela me réfère au code de la userform ci-dessous au niveau du NewDateV0.NumberFormat :
Je ne sais pas comment faire pour modifier ce format...
J'espère avoir été claire !
Je vous remercie d'avance pour votre aide.
Justine
J'ai créé une userform qui permet de rentrer plusieurs informations dont des dates pour qu'elles soient ensuite rangées dans une ligne d'un tableau excel.
Le problème est que les dates sont entrées dans les "box" de la userform sous le format DD/MM/YYYY et une fois la macro exécutée, la date s'affiche dans la cellule Excel au format américain MM/DD/YYYY (normal je sais)...
Les variables de dates ont été définies "as Variant" au début de la macro.
Dans la userform j'ai voulu définir le format de la date en DD/MM/YYYY mais si j'éxécute la userform j'obtiens une erreur d'exécution 424 : Objet Requis et cela me réfère au code de la userform ci-dessous au niveau du NewDateV0.NumberFormat :
NewDateV0 = AffecterLivrable.DateV0Box.Value
End If
'NewDateV0.NumberFormat = "dd/mm/yyyy"
NewDateV1 = AffecterLivrable.DateV1Box.Value
End If
'NewDateV1.NumberFormat = "dd/mm/yyyy"
Je ne sais pas comment faire pour modifier ce format...
J'espère avoir été claire !
Je vous remercie d'avance pour votre aide.
Justine
A voir également:
- Définition d'un format date userform VBA (excel2010)
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format dat - Guide
- Format apfs - Guide
2 réponses
Bonjour,
Ce n'est pas clair, ce bout de code n'est pas compréhensible sans son contexte.
Pouvez-vous mettre le classeur sur https://www.cjoint.com/ et poster le lien ?
Ce n'est pas clair, ce bout de code n'est pas compréhensible sans son contexte.
Pouvez-vous mettre le classeur sur https://www.cjoint.com/ et poster le lien ?
Bonsoir,
as-tu essayé avec datevalue() ?
Du style
[NewDateV0] = datevalue(AffecterLivrable.DateV0Box)
NewDateV0 étant un nom de cellule
ou
[A1]=datevalue(AffecterLivrable.DateV0Box)
Tu peux aussi utiliser un contrôle calendrier (dateTime Picker par exemple) à la place des textbox. Plus de contrôle de saisie à faire...
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
as-tu essayé avec datevalue() ?
Du style
[NewDateV0] = datevalue(AffecterLivrable.DateV0Box)
NewDateV0 étant un nom de cellule
ou
[A1]=datevalue(AffecterLivrable.DateV0Box)
Tu peux aussi utiliser un contrôle calendrier (dateTime Picker par exemple) à la place des textbox. Plus de contrôle de saisie à faire...
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.