XL 2010 [Résolu par sousou] Userform bilingue et date

[alias_2003]

Bonjour
Dans le fichier joint se trouve un userform contenant un dtpicker et un bouton.
Le bouton permet de passer du français à l'anglais (le français étant la langue par défaut).
Je ne sais absolument pas comment gérer les formats de date spécifiques à ces 2 langues.
Si l'un d'entre vous a déjà été confronté à ce problème, je serai curieux de savoir comment il s'y est pris !
Merci beaucoup,
Bonne soirée

 

[sousou]

Bonjour

Jouer sur la propriété format et customformat

 

[alias_2003]

Bonsoir sousou, le Forum
Je ne pourrai jamais te remercier assez !!!
Par contre, sais-tu comment modifier le format de la date en B1 (cette cellule doit reprendre la valeur du dtpicker) ??
Merci encore !

 

[sousou]

Bonsoir
c'est la propriété numbertformat qui va faire cela
Remplace ton code
Private Sub CommandButton1_Click()
If Feuil1.Range("D1") = 0 Then
Feuil1.Range("D1") = 1
Feuil1.Range("B1") = "" 'format de la date en anglais (mm/dd/yyyy)
DTPicker1.CustomFormat = "M/dd/yyyy"
Sheets(1).Range("b1").NumberFormat = "mm/dd/yyyy"
Else
Feuil1.Range("D1") = 0
Feuil1.Range("B1") = "" 'format de la date en français (dd/mm/yyyy)
DTPicker1.CustomFormat = "dd/M/yyyy"
Sheets(1).Range("b1").NumberFormat = "dd/mm/yyyy"
End If
Sheets(1).Range("b1") = DTPicker1
End Sub

 

[alias_2003]

Bonjour sousou, le Forum
Merci beaucoup ! C'est évidemment parfait et donc problème résolu !
Merci encore,
Passe une excellente journée !