Empêcher transformation dates format ENG depuis format FR
Niconz
Messages postés
313
Date d'inscription
Statut
Membre
Dernière intervention
-
Niconz Messages postés 313 Date d'inscription Statut Membre Dernière intervention -
Niconz Messages postés 313 Date d'inscription Statut Membre Dernière intervention -
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,
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:
- Vba format date français
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
127 réponses
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 !
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 !
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
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
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...
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...
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
Et voici...
http://www.cjoint.com/c/FJtnwHfUMh1
Merci.
http://www.cjoint.com/c/FJtnwHfUMh1
Merci.
Re,
Dites voir, vous avez regardez comment j'ai fais la modif pour les NDA
dans votre fichier ces deux lignes sont toujours presentes en dehors du bloc IF END IF
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)
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,
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,
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
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
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
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
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
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
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, à +
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, à +
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é ?
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é ?
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
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
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é ?
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é ?
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
c'est la qu'il faut faire un test TYPE_DOC="NDA" pour cacher les images 3 a 5
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
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,
"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,
Bonjour,
Dites voir, le doute maasaï(doute africain), c'est vous qui avez code ce fichier ?
Je regarde la chose
A+
Dites voir, le doute maasaï(doute africain), c'est vous qui avez code ce fichier ?
Je regarde la chose
A+
Re,
Non, quasiment pas.
C'est une arme charitable sur CCM qui m'a aidée à construire le fichier.
Non, quasiment pas.
C'est une arme charitable sur CCM qui m'a aidée à construire le fichier.
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
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
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
Re,
fichier modifie pour objets visibles ou non suivant modif et type_doc
https://www.cjoint.com/c/FKciEpMaStf
fichier modifie pour objets visibles ou non suivant modif et type_doc
https://www.cjoint.com/c/FKciEpMaStf
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.
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.
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
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
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
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
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
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.
Ceci-dit la recherche de docs est d'origine, donc .....
Je regarde la chose quand meme demain