XL 2019 comportement bizarre

oukthr · 11 Décembre 2022

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 · 11 Décembre 2022

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

Phil69970 · 11 Décembre 2022

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 · 11 Décembre 2022

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 · 11 Décembre 2022

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

oukthr · 11 Décembre 2022

Phil69970 à dit:
Bonjour @oukthr

Essaye de remplacer

Et avec le fichier ....

Merci de ton retour

@Phil69970

jm.andryszak à dit:
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 · 11 Décembre 2022

Bonsoir à tous ,

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

Phil69970 · 11 Décembre 2022

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 · 11 Décembre 2022

Re

Je propose cette version

@Phil69970

mapomme · 11 Décembre 2022

Phil69970 à dit:
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 · 11 Décembre 2022

Bonsoir.

oukthr à dit:
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.

XL 2019 comportement bizarre

oukthr

XLDnaute Nouveau

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Pièces jointes

jm.andryszak

XLDnaute Occasionnel

jm.andryszak

XLDnaute Occasionnel

oukthr

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires