Bonjour à tous
Voici mon PB :
Dans un UserForm, j’ai une page d’un Multipage qui contient des TextBox l’un d’elle est une date.
Une fois que j’ai rempli mes TextBox je clique sur le bouton modifier pour mettre à jour ma feuille excel.
Ces procédures fonctionnent très bien si le jour de ma date est supérieur à 12 sinon la date est au format US
J’ai consulter beaucoup de forum et j’ai tout essayé : CDate, Format (dd/mm/yyyy)
Même dans un Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean), rien y fait.
Pour info j’ai 3 autres pages dans le multipages qui contiennent chacun 10 TextBox où je dois saisir des dates où la procédure de mise à jour de la feuille Excel est la même que ci-dessus
Peut-on forcer VBA afin qu’il reconnaisse les options régionales de Windows qui sont en français.
Ou bien quelqu’un aurait-il une solution.
Merci, bon week-end
Voici mon PB :
Dans un UserForm, j’ai une page d’un Multipage qui contient des TextBox l’un d’elle est une date.
VB:
Sub TextBox10_Change()
TextBox10.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
If Len(TextBox10) = 2 Or Len(TextBox10) = 5 Then TextBox10 = TextBox10 & "/"
End Sub
VB:
Private Sub CommandButton2_Click()
Dim ligne As Long
Dim i As Integer
Dim LL As Long
If MsgBox("Etes-vous certain de vouloir MODIFIER ce dossier ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
LL = Me.ComboBox1.Column(0, Me.ComboBox1.ListIndex)
For i = 10 To 19
If Me.Controls("TextBox" & i).Value <> "" Then Ws.Cells(LL, i + 1).Value = Me.Controls("TextBox" & i).Value
Next i
ActiveWorkbook.Save
End Sub
J’ai consulter beaucoup de forum et j’ai tout essayé : CDate, Format (dd/mm/yyyy)
Même dans un Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean), rien y fait.
Pour info j’ai 3 autres pages dans le multipages qui contiennent chacun 10 TextBox où je dois saisir des dates où la procédure de mise à jour de la feuille Excel est la même que ci-dessus
Peut-on forcer VBA afin qu’il reconnaisse les options régionales de Windows qui sont en français.
Ou bien quelqu’un aurait-il une solution.
Merci, bon week-end