XL 2019 comportement bizarre

[oukthr]

Bonjour, dans le fichier en piece jointe, j'ai fait un userform pour inserer une date dans un tableaux a l'aide de trois combobox (Jours, mois et Années), sous le format jj/mm/aaaa,
le probleme c'est que le résultat est sous la forme mm/jj/aaaa, j'ai du inverser l'ordre dans la ligne du code pour avoir le résultat voulu,
si quelqu'un peut verifier si je n'ai pas fait d'erreurs.
Merci

 

[Phil69970]

Bonjour @oukthr

Essaye de remplacer

'Remplacer
'Feuil1.Range("A" & dl) = Me.C_mois.Value & "/" & Me.C_Jours.Value & "/" & Me.C_Annees.Value
'Par ceci
Feuil1.Range("A" & dl) = CDate(Me.C_Jours.Value & "/" & Me.C_mois.Value & "/" & Me.C_Annees.Value)

Et avec le fichier ....

Merci de ton retour

@Phil69970

 

[jm.andryszak]

Bonjour
remplacez :
Feuil1.Range("A" & dl) = Me.C_mois.Value & "/" & Me.C_Jours.Value & "/" & Me.C_Annees.Value
par :
Feuil1.Range("A" & dl) = CDate(Me.C_Jours.Value & "/" & Me.C_mois.Value & "/" & Me.C_Annees.Value)
ou
Feuil1.Range("A" & dl) = DateSerial(Me.C_Annees.Value, C_mois.Value, Me.C_Jours.Value)
et testez

 

[jm.andryszak]

Oups
Je n'avais pas vu le post de Phil69970
Désolé.

 

[oukthr]

Bonjour @oukthr

Essaye de remplacer



Et avec le fichier ....

Merci de ton retour

@Phil69970

Bonjour
remplacez :
Feuil1.Range("A" & dl) = Me.C_mois.Value & "/" & Me.C_Jours.Value & "/" & Me.C_Annees.Value
par :
Feuil1.Range("A" & dl) = CDate(Me.C_Jours.Value & "/" & Me.C_mois.Value & "/" & Me.C_Annees.Value)
ou
Feuil1.Range("A" & dl) = DateSerial(Me.C_Annees.Value, C_mois.Value, Me.C_Jours.Value)
et testez

Merci a vous deux, mais j'aimerais comprendre le pourquoi de ce comportement.

 

[mapomme]

Bonsoir à tous ,

Essayez de saisir : jour=31; mois= 02 et année= 2022. Vous verrez que ça passe !

 

[Phil69970]

Re
Bonjour @mapomme

Cela vient du fait qu'il n'y a pas de contrôle sur la date en elle même
le 31/02/xxxx n’existe pas plus que le 31/04/xxxx et plein d'autres dates

@Phil69970

 

[Phil69970]

Re

Je propose cette version

@Phil69970

 

[mapomme]

Cela vient du fait qu'il n'y a pas de contrôle sur la date en elle même
le 31/02/xxxx n’existe pas plus que le 31/04/xxxx et plein d'autres dates

Bonsoir @Phil69970,

Tu brises tout le suspens .

 

[Dranreb]

Bonsoir.

Merci a vous deux, mais j'aimerais comprendre le pourquoi de ce comportement.

Simplement à cause d'une règle: Lorsque dans une macro on donne à Excel, en guise de valeur de cellule un String convertible en un autre type de donnée, il y applique une interprétation anglo-saxonne. Donc il vaut mieux lui affecter une donnée du type final qui ne sera plus à convertir.