Microsoft 365 problème de dates UserForm

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #2

Bonjour le fil

Juste pour faire des tests

VB:

Private Sub UserForm_Initialize()
[A1] = #11/13/2019#
MsgBox Format([A1], "dddd dd mmmm yyyy")
TextBox1 = CDate(Range("A1").Value2) + 1
TextBox2 = DateValue(Range("A1").Text) + 1
TextBox3 = Range("A1") + 1
End Sub

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Novembre 2019

• #3

bonjour Staple1600, le Forum,

merci pour ta proposition, je ferais le test lundi sur l'une de ces machines, car je suis dans l'impossibilité de le faire maintenant.
Je te fais un retour rapide du test.

@+ et merci.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #4

Re

Tu peux faire des tests sur ton PC de ta demeure 😉
(ce que j'ai fait 😉)
C'était juste des tests de syntaxe pour formater des dates.

Si ton problème est lié au paramères régionnaux, il faudra étudier une autre piste.

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Novembre 2019

• #5

Re

le MsgBox = mercredi 13 novembre 2019
TextBox1 = 14/11/2019
TextBox2 = 14/11/2019
TextBox3 = 14/11/2019

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #6

Re

Avec cet autre test, ca pédale un peu dans la semoule 😉

VB:

Private Sub UserForm_Click()
Dim a$
a = Format(Range("A1").Value + 1, "dddd dd mmmm yyyy")
TextBox3.AutoSize = -1: TextBox2.AutoSize = -1: TextBox1.AutoSize = -1
TextBox3.Text = a: TextBox2.Text = a: TextBox1.Text = a
End Sub

Private Sub UserForm_Initialize()
'[A1] = #1/8/2019# '1 aout 2019 'test 1
[A1] = DateSerial(2019, 8, 1) 'test 2
MsgBox Format([A1], "dddd dd mmmm yyyy")
TextBox1 = CDate(Range("A1").Value2)
TextBox2 = DateValue(Range("A1").Text)
TextBox3.Text = Format(Range("A1").Value, "MM/dd/yyyy")
End Sub

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Novembre 2019

• #7

Re...

MsgBox = jeudi 01 août 2019

Private Sub UserForm_Initialize()
TextBox1 = 01/08/2019
TextBox2 = 01/08/2019
TextBox3 = 08/01/2019

Private Sub UserForm_Click()
TextBox1 =vendredi 02 août 2019
TextBox2 = vendredi 02 août 2019
TextBox3 = vendredi 02 août 2019

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #8

Re

Oui, je sais, il y a bien une inversion sur le TextBox3
D'où la semoule 😉

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Novembre 2019

• #9

Re...

pourtant dans :

Private Sub UserForm_Initialize()
si tu écris :
TextBox3.Text = Format(Range("A1").Value, "dd/mm/yyyy")
on est bon

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #10

Re

C'est ce qu'on pouvait croire, mais...🙄

VB:

Private Sub UserForm_Click()
Dim a$
a = Format(Range("A1").Value + 1, "dddd dd mmmm yyyy")
TextBox3.AutoSize = -1: TextBox2.AutoSize = -1: TextBox1.AutoSize = -1
TextBox3.Text = a: TextBox2.Text = a: TextBox1.Text = a
End Sub

Private Sub UserForm_Initialize()
[A1] = #1/8/2019# '1 aout 2019 'test 1
'[A1] = DateSerial(2019, 8, 1) 'test 2
MsgBox Format([A1], "dddd dd mmmm yyyy")
TextBox1 = CDate(Range("A1").Value2)
TextBox2 = DateValue(Range("A1").Text)
TextBox3.Text = Format(Range("A1").Value, "dd/mm/yyyy")
End Sub

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Novembre 2019

• #11

Re...

MsgBox = mardi 08 janvier 2019

Private Sub UserForm_Initialize()
TextBox1 = 08/01/2019
TextBox2 = 08/01/2019
TextBox3 = 08/01/2019

Private Sub UserForm_Click()
TextBox1 = mercredi 09 janvier 2019
TextBox2 = mercredi 09 janvier 2019
TextBox3 = mercredi 09 janvier 2019

J'aime pas la semoule 😡

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #12

Re

Bah si puisque au départ : j'ai 01/08/2019 (si on fait le test 1)
(et comme le dit le commentaire en vert : 1 août 2019)

Donc selon la date, il y a inversion ou pas
Et c'est bien là ton problème, non ? 😉

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Novembre 2019

• #13

Re...

"Et c'est bien là ton problème, non ? "

oui et non, comme je l'ai dis mon code fonctionne très bien sur tous les postes -2
en outre les données au départ écrites sur la feuille le sont de façon correcte dans le bon format.

certaines données renvoyées sur l'UserForm, le sont à partir de Tablo et là même soucis.

@+

 

Vote positif 0 Vote négatif