Pb date sur formulaire automatique ShowDataForm

[dodo31]

Bonjour à tous,

je n'arrive pas à modifier le format d'affichage de la date dans le formulaire automatique d'excel.

Format tableau: j/m/aa
Affichage formulaire: m/j/aa

La macro que j'utilise:
Sub Saisie()
'
' Saisie Macro
' Macro enregistrée le 13/07/2012 par ordi4
'

'
Sheets("Emplacement").Select
Range("A1😀377").Select
ActiveSheet.ShowDataForm
Sheets("Feuil1").Select
End Sub

Merci pour votre aide

Dominique

 

[néné06]

Re : Pb date sur formulaire automatique ShowDataForm

Bonjour Dominique et bienvenue sur le Forum.

Te serait-il possible de nous faire parvenir un petit exemple avec ton ShowDataForm.

Cordialement

René

 

[dodo31]

Re : Pb date sur formulaire automatique ShowDataForm

Ci-joint copie écran en jpg.


Merci pour votre aide.

Cordialement

Dominique

 

[néné06]

Re : Pb date sur formulaire automatique ShowDataForm

Re,

Si tu pouvais nous poster une pièce_jointe de ton programme sans données confidentielles, pour que l'on puisse regarder de plus prés ton code VBA.

Pour cela,en bas de ta réponse:

"Aller en mode avancé"
Cliquer sur le trombone
Ajouter un fichier à partir de votre ordinateur
Chisir la PJ

Envoyer.

A+

 

[dodo31]

Re : Pb date sur formulaire automatique ShowDataForm

OK

Ci-joint, mon fichier.

A+

 

[Modeste geedee]

Re : Pb date sur formulaire automatique ShowDataForm

Bonsour®

Bonjour à tous,

je n'arrive pas à modifier le format d'affichage de la date dans le formulaire automatique d'excel.

Format tableau: j/m/aa
Affichage formulaire: m/j/aa

La macro que j'utilise:
Sub Saisie()
'
' Saisie Macro
' Macro enregistrée le 13/07/2012 par ordi4
'

'
Sheets("Emplacement").Select
Range("A1😀377").Select
ActiveSheet.ShowDataForm
Sheets("Feuil1").Select
End Sub

Merci pour votre aide

Dominique

il faut savoir que lorsque tu utilises VBA tout ce qui est saisi est au format US

s'agissant ici du formulaire automatique appelé via VBA il n'est pas possible d'intercepter la saisie pour la convertir en saisie langue locale, chose qu'il serait facile de faire sur un formulaire personnalisé .

A noter que ce même formulaire Automatique ne présente pas ce désagrément lorsqu'il est appelé directement depuis la feuille de calcul ...

😎 la solution !!
simuler un appel depuis la feuille de calcul ...

Sub Saisie()
' Saisie Macro
' Macro enregistrée le 13/07/2012 par ordi4
    Sheets("Emplacement").Select
    Range("A1:D377").Select
' langue locale saisir au format jj/mm/aaaa
    Application.CommandBars.FindControl(ID:=860).Execute 
'         langue US saisir au format mm/dd/yyyy
    '         ActiveSheet.ShowDataForm   ' 
    Sheets("Feuil1").Select
End Sub

 

[dodo31]

Re : Pb date sur formulaire automatique ShowDataForm

Merci pour tout et ne sois pas si modeste, geedee, ça fonctionne nickel.

Cordialement.

Dominique