Empêcher transformation dates format ENG depuis format FR

Fermé
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 - 2 sept. 2016 à 09:49
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 - 28 avril 2017 à 15:57
Bonjour,

Je fais face au problème suivant avec un formulaire sous VBA.
Dans le cadre de ce formulaire, plusieurs champs doivent être remplis, dont des champs format dates en Français (JJ/MM/AAAA).

Le remplissage du formulaire se fait parfaitement, et les dates rentrées sont bien enregistrées sous le format Francais.

Par contre, lorsque je reviens sur cette date, la date s'affiche désormais au format Anglais, et non plus Français.

L'objectif de mon fichier étant de mettre en place une base de données des contrats de l'entreprise.

Ainsi, si lorsque j'ajoute un nouveau contrat, avec date de début : 01/02/2017 (format Français), il me la transforme en 02/01/2017 (format Anglais), mon fichier n'a plus aucun intérêt, car il ne restitue pas correctement l'information qui a été enregistrée initialement.

Quelqu'un sait-il pourquoi Excel transforme le format des dates, et comment on peut empêcher cette transformation.

Si besoin, je peux vous envoyer le fichier dont il est question.

D'avance, merci beaucoup à tous pour votre aide,


Excellente journée,

A voir également:

127 réponses

Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
18 oct. 2016 à 16:54
Salut FB,
Voici le résultat de mes 1ers tests.
Je continue demain, et vous tiens au courant.

Quand je cherche votre NDA Carrefour ah que coucou (très belle référence d'ailleurs :)), le formulaire s'affiche, mais j'ai encore un msg d'erreur 380.
Ligne de bug : MOD_DOC.CURR.Text = .Range("S" & Ligne), qui correspond à la Currency… champ qui n'est pas à compléter pour un NDA….. Rrrhhhh

A part ca, la fonction Search me retrouve tous les autres type de documents, sauf les NDA…

Merci, et bonne soirée avec Jojo !
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 18/10/2016 à 17:09
Re,

sauf les NDA…
Ben avec "mon fichier" pas de probleme

champ qui n'est pas à compléter pour un NDA….. Rrrhhhh
En effet !!!
Faire test si pas NDA pour ecriture
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
18 oct. 2016 à 17:29
Re.

Ba c'est avec votre fichier que le bug apparaît...
J'ai d'ailleurs ajouté plusieurs autres NDA et le même problème se pose.

Si pas NDA, toit roule à présent.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
18 oct. 2016 à 17:57
Re,

Ceci-dit la recherche de docs est d'origine, donc .....

Je regarde la chose quand meme demain
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 oct. 2016 à 11:22
Bonjour,

Apres avoir ajouter deux lignes pour NDA R&D........ en modifiant le numero,
search ou modif, je retrouve bien les 3 NDA
Vous pouvez reexpliquez le probleme ?

fichier avec modif PAYMENT si pas NDA
http://www.cjoint.com/c/FJtju7M1uHf
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
19 oct. 2016 à 12:00
Bonjour FB,

Merci pour votre retour.

"........ en modifiant le numero" : si vous parlez du num de reference, qu'avez-vous change, car celui-ci est cense se cree en fonction des champs remplis de l'UF.

Je retrouve bien les NDA, mais a chaque fois que l'UF s'affiche avec les infos, j'ai en meme temps un msg d'erreur 380 avec la ligne ci-dessous qui bug.
MOD_DOC.CURR.Text = .Range("S" & Ligne)

D'ailleurs, je ne comprends pas pourquoi dans les 3 NDA, il y avait une info pour les champs "Termination notice" et "Currency", car ces champs ne sont pas censes etre remplis lors d'un ajout de NDA.

Bref, j'ai fait le test en ajoutant un nouveau NDA, et ici aussi, il me le trouve bien, mais il m'affiche un msg 380...
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 19/10/2016 à 13:45
Re,

je ne comprends pas pourquoi dans les 3 NDA

J'ai rempli ces champs a la main a la suite d'erreur 380. Je ne sais pas et ne veux pas savoir quels champs sont a remplir ou pas, c'est a vous de dire et nous modifions le code en fonction pour les NDA comme a ete fait MOD_DOC.PAYMENT et eventuellement pour autres type_doc

suite:
modif a faire dans MOD_DOC, Private Sub UserForm_Activate()
dans le bloc
 '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
    With Worksheets("Legal docs listing")


        If TYPE_DOC <> "NDA" Then
            MOD_DOC.PAYMENT = Val(.Range("P" & Ligne))
            MOD_DOC.TERM_NOTICE.Text = .Range("Q" & Ligne)
            MOD_DOC.CURR.Text = .Range("S" & Ligne)
        End If
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
19 oct. 2016 à 14:47
Re,

Desole de vous saouler avec ca, mais ca marche pas encore parfaitement.

Pour info, les champs qui ne doivent pas etre remplis pour un NDA sont les suivants : de "termination notice a "validity of the pricing" inclus.

Enfin, pour ta modif : faite, et ca marche bien pour les NDA que vous avez remplis a la main.
Par contre, des que j'ajoute un NDA, et que je cherche a le retrouver, le msg d'erreur 380 revient...

Ne serait-il pas plus simple de creer un autre formulaire dedie pour les NDA, dans la mesure ou j'ai l'impression que c'est ce qui bug.
Qu'en pensez-vous ?

Merci.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 19/10/2016 à 14:52
Re,
Desole de vous saouler avec ca
Ce n'est pas le cas, autrement pas la peine d'aider les autres, seulement je vais au plus simple car c'est votre fichier.
des que j'ajoute un NDA
Vous pouvez mettre le fichier avec le ou les NDA ajouter par sasie a dispo ??
Que je puisse voir de quoi il retourne
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
19 oct. 2016 à 15:23
Et voici...
http://www.cjoint.com/c/FJtnwHfUMh1

Merci.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 oct. 2016 à 15:53
Re,

Dites voir, vous avez regardez comment j'ai fais la modif pour les NDA

        If TYPE_DOC <> "NDA" Then
            MOD_DOC.PAYMENT = Val(.Range("P" & Ligne))
            MOD_DOC.TERM_NOTICE.Text = .Range("Q" & Ligne)
            MOD_DOC.CURR.Text = .Range("S" & Ligne)
        End If

dans votre fichier ces deux lignes sont toujours presentes en dehors du bloc IF END IF
            MOD_DOC.TERM_NOTICE.Text = .Range("Q" & Ligne)
            MOD_DOC.CURR.Text = .Range("S" & Ligne)
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
19 oct. 2016 à 16:03
Ba, j'ai gentiment applique ce que vous m'avez dit dans votre post 90.

Mais meme en enlevant ces doublons, le probleme persiste.
C'est reparti pour un tour...
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
Modifié par f894009 le 19/10/2016 à 16:38
Re,

c'est ici que ca coince pour le dernier NDA que vous avez saisi faut kake chose ou pas ??

MOD_DOC.TACITE_RENEWAL.Text = .Range("O" & Ligne)
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
19 oct. 2016 à 16:44
Re,

Non pas de tacite renewal pour les NDA.
Lorsqu'on ajoute un NDA, ce champ est shunte, donc non remplissable.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
Modifié par f894009 le 19/10/2016 à 18:06
Re,
Et ben, mettez cette ligne dans le test type_doc<>"NDA"!!!!!!
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
20 oct. 2016 à 08:17
Bonjour FB,

Et bien un grand MERCI alors !
Je n'en serai pas là sans vous.

Pour les 400 lignes, je vais les intégrer dans les prochaines semaines, je vous tiendrai au courant si besoin.

Encore merci, et à bientôt peut-être,

Très belle journée,
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
1 nov. 2016 à 11:45
Salut FB,

Et oui, encore moi.
Je viens jouer le revenant… :)

J'ai encore (pour changer :)) identifier un problème pour lequel ta précieuse aide serait appréciable.

Ta prochaine problématique, si tu l'acceptes, est la suivante :
Lorsque je cherche à modifier un NDA existant, le fichier me demande de compléter les champs suivants : de tacite renewal à validity of the pricing inclus, alors que ces champs ne sont pas à remplir pour un NDA. 

Dans la macro Private Sub UserForm_Activate() de MOD_DOC, ces champs sont bien mis en "false", j'ai donc du mal à comprendre pourquoi ils continuent de s'afficher. 

Une idée de ce qui peut clocher ?

Pour info, et si ca t'est utile, j'ai constaté les 2 choses suivantes : 
- Le label et textbox "DOC_VALUE" ne se grise pas lorsque je cherche à modifier un NDA, à contrario des autres champs suivant ; et ce alors que toutes les lignes sont bien mises en false… 
- Le label de tous les champs ci-dessus sont bien inactifs, mais pas les textbox… 

Voici la dernière version du fichier :
http://www.cjoint.com/c/FKbkSSkdW0M

Merci pour ton aide, très bon après-midi
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
1 nov. 2016 à 14:30
Bonjour,

Je viens jouer le revenant
Soit en retard d'un jour pour Halloween!!!!!!
Soit en avance d'un jour pour la fete des morts!!!!!!!

Ok, je recupere le fichier et vous tiens au courant
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
1 nov. 2016 à 15:24
Re,

fichier modifie pour non controls d'objets si TYPE_DOC="NDA"

https://www.cjoint.com/c/FKbowww5Xlf

Par contre il serait plus judicieux des mettre les dits objets non visible car en enabled=false rien n'empeche d'ecrire dedans et la c'est le binz avec les tests de format
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
1 nov. 2016 à 15:32
Re,

Merci, ca marche bien après 2 tests sommaires.
A voir si rien ne cloche après d'autres tests plus poussés.

Et comment fais-t-on pour mettre les objets en non visible, mais seulement pour les NDA, car pour rappel, ces champs doivent être visible et remplis si c'est un autre type de document.


Encore merci FB, à +
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
1 nov. 2016 à 15:34
Re,

comment fais-t-on pour mettre les objets en non visible

Eh ben, nomducontrol.visible=false pour cache et nomducontrol.visible=true pour non cache
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
Modifié par Niconz le 1/11/2016 à 16:12
Ah, tout con, parfait merci.

Ca marche nickel !

Autre question plus délicate :


Je m'aperçois qu'il n'était peut-être pas très judicieux de mettre mes listes déroulantes dans le même onglet que dans le listing de mes documents…
En effet, si je supprime un doc (donc potentiellement une ligne), j'élimine un composant de plusieurs listes déroulantes, et ca fout le bordel…

J'ai essayé de voir par moi-même s'il était possible de déplacer ces listes déroulantes dans un autre onglet, et renommer le code comme je le pouvais (et le comprenais), mais ca merde à chaque fois.

Bref, ma question est la suivante : y-a-til un moyen simple de bouger mes listes déroulantes dans un autre onglet sans réécrire tout le code du fichier ?

Merci.

Re, re

J'ai appliqué votre conseil et ai mis les lignes ci-dessous en caché.

Me.Label33.Visible = False
Me.Image4.Visible = False
Me.Image3.Visible = False
Me.Label32.Visible = False
Me.Image5.Visible = False


Par contre, il continue de m'afficher les images 3, 4 et 5.
Qu'ai-je loupé ?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
1 nov. 2016 à 16:40
Re,
Normalement avec les manips ci-dessous, les formules de vos listes se mettent a jour automatiquement
Vous faites une copie de la feuille ou il y a vos listes
Vous positionnez vos listes de facon a pouvoir copiez les colonnes de la feuille ou vous aviez prevu de mettre ces listes, renommez les deux feuilles et ca doit etre ok
Facile, mais attention
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
1 nov. 2016 à 16:50
C'est pourtant ce que j'avais fait, en faisant attention de bien changer le nom de l'onglet dans les macros, mais lors des tests, les listes déroulantes ne s'affichait pas.

Je referai un essai et vous l'enverrai quand j'aurai le temps.
Merci.
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
1 nov. 2016 à 16:50
Re, re,

Avez-vous vu mon complément de post ?

J'ai appliqué votre conseil et ai mis les lignes ci-dessous en caché.

Me.Label33.Visible = False
Me.Image4.Visible = False
Me.Image3.Visible = False
Me.Label32.Visible = False
Me.Image5.Visible = False


Par contre, il continue de m'afficher les images 3, 4 et 5.
Qu'ai-je loupé ?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
1 nov. 2016 à 18:39
Re,

Par contre, il continue de m'afficher les images 3, 4 et 5.
Qu'ai-je loupé ?


Dans uf mod_Doc, Private Sub UserForm_Activate()

il y a ceci, a la fin de la procedure

    ' boucle sur les boutons 1 à 5
    For b = 1 To 5
        'si cas de modif on les rend visibles, si recherche on les rend invisibles
        If modif = 1 Then MOD_DOC.Controls("Image" & b).Visible = True Else MOD_DOC.Controls("Image" & b).Visible = False
    Next

c'est la qu'il faut faire un test TYPE_DOC="NDA" pour cacher les images 3 a 5
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
2 nov. 2016 à 07:58
Bonjour FB,

"c'est la qu'il faut faire un test TYPE_DOC="NDA" pour cacher les images 3 a 5"... avec le décodeur, ca donne quoi ???? :)

J'ai essayé de réecrire le code de la facon suivante, mais ca bug.




Par quoi pensiez-vous remplacer la ligne ci-dessus ?

Merci, très bonne journée,
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 nov. 2016 à 08:24
Bonjour,

Dites voir, le doute maasaï(doute africain), c'est vous qui avez code ce fichier ?
Je regarde la chose
A+
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
2 nov. 2016 à 08:38
Re,

Non, quasiment pas.
C'est une arme charitable sur CCM qui m'a aidée à construire le fichier.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 2/11/2016 à 08:54
Re,
Ok, je regarde la chose

Je viens de voir aussi pourquoi avec NDA il etait possible d'ecrire dans le ctrl apres avoir mis du code en enabled=false, il y du code qui fait le contraire en fin de cette procedure
Private Sub UserForm_Activate()

Donc je vois mieux le pourquoi de ce que je vous ai dis que le mieux serait de les rendre non visible

Je repends tout ca
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 nov. 2016 à 09:30
Re,

fichier modifie pour objets visibles ou non suivant modif et type_doc

https://www.cjoint.com/c/FKciEpMaStf
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
2 nov. 2016 à 09:59
Re,

Merci beaucoup FB, encore une fois vous avez été à la hauteur de mes espérances :)

Petite question : puis-je supprimer les 2 derniers onglets, sans risque que cela pose de bug derrière ?

Je fais des tests dans la journée et demain pour m'assurer que tout est ok.
Je vais aussi en profiter pour cacher les champs non necessaires pour les NDA lors d'un ajout de docs.

Encore merci.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 nov. 2016 à 11:52
Re,

puis-je supprimer les 2 derniers onglets
Feuil1 et (2): oui
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
2 nov. 2016 à 13:45
Professeur... :)

Je viens de cacher les champs inutiles pour l'ajout d'un NDA, mais lorsque je cherche à ajouter un nouvel NDA, il me demande de compléter les champs grisés, qui sont bien sur invisibles...

Voilà le fichier.
http://www.cjoint.com/c/FKcmS7tnFXC

Comment faire pour désactiver ces champs, juste pour les NDA ?

Si jamais, expliquez-moi en terme simple, et j'essaierai de faire la manoeuvre, et si vraiment je n'y arrive pas, je reviens vous voir :)

Merci encore FB
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
2 nov. 2016 à 14:02
Re,
expliquez-moi en terme simple
F a c i l e, ce sont les memes modif que pour:
modification d'un NDA dans l'UF MOD_DOC
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
2 nov. 2016 à 14:33
Ok, j'aurai peut-être mieux fait de me taire...

Mise à part cacher les champs en les mettant en visible=false, que reste t-il à faire ?

Dois-je rajouter le code ci-dessous dans la macro Private Sub UserForm_Initialize() associé à l'UF ADDITION_DOC ?, en remplacant les images 3, 4 et 5 par les champs inutiles ?

' boucle sur les boutons 1 à 5
If (modif = 1 And TYPE_DOC = "NDA") Or modif = 0 Then
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
ElseIf modif = 1 And TYPE_DOC <> "NDA" Then
Image3.Visible = True
Image4.Visible = True
Image5.Visible = True
End If
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 nov. 2016 à 15:25
Re,

Vu qu'il n'y a pas de modif

If TYPE_DOC = "NDA" Then
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = False
Else
    Image3.Visible = True
    Image4.Visible = True
    Image5.Visible = True
End If
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
2 nov. 2016 à 16:02
Non, voici le résultat.




Qu'est ce qui cloche cette fois-ci ?
https://www.cjoint.com/c/FKcpbPEuprC
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 nov. 2016 à 18:27
Re,

Non, voici le résultat.
Rien a voir avec les images, c'est un champ non rempli
Ok, je regarde
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 2/11/2016 à 18:35
Re,

Quand j'ai ecrit les memes modif que dans MOD_DOC, c'est toutes les modifs, celle qui sont dans
Private Sub UserForm_Initialize() 
ET dans Private Sub SAVE_Click()
vu que ces deux UF sont identiques

A vous de voir si vous faites ou pas
0