Empêcher transformation dates format ENG depuis format FR

Re,

merci pour ton retour rapide,
Oui, j'ai bien vu l'exemple, mais je ne comprends pas comment voir le code dont tu parles :


Sheets("Feuil1").Range("A1").Value = Format(TextBox1.Value, "yyyy/mm/dd")

J'ai bien un format date (jj/mm/aaaa) dans ma cellule de mon onglet Excel, mais je ne vois pas ou chercher pour voir si le code diffère.

Merci.

Re,

Bon, quand tu as complètement rempli ton formulaire (UserForm), j'imagine que tu cliques sur un CommandButton pour renvoyer la valeur des champs du formulaire vers le tableau Excel. C'est à ce moment là qu'il faut utiliser le format américain. Relis l'exemple de mon premier post.
Sinon, pour éviter de perdre trop de temps, met ton fichier en pièce jointe...

Bonjour,

un exemple avec Cdate (meme resultat que ThauTheme)

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

Bonjour f894009,

Oui, c'est l'UF amendment_doc, ainsi que mod_doc et Addition_doc.
Merci pour votre aide,

A dispo si besoin,

Bonjour,

Ok, je modifie les alertes intempestives pour avancer et vous tiens au courrant

Re,

J'ai beau faire, mais j'ai toujours les bonnes dates !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Vous pouvez faire une recopie d'ecrans avec le cas concret ????

OK, je vous l'envoi en msg privé.

très peu, c'est une arme charitable sur CCM qui m'a aidée à construire le fichier.

Ok, j'ai enlevé le ".", mais maintenant, la date s'efface une fois que je l'ai rentrée...

Re,

ce que je vous ai propose, c'est pour les tetxboxs ajout amendement ou modif . Dans quoi avez-vous mis ce code ????????????????????????????????????????

Dans l'UF Addition_doc, faute de précision...
Maintenant je comprends mieux.

Mais j'ai fait les modif dans ces 2 UF, et le problème persiste...
https://mon-partage.fr/f/lIpYYQPv/
Mm mdp que la dernière fois.

Si la manip que vous avez faites chez vous marche, vous ne pouvez pas me l'envoyer...

Re,

Si la manip que vous avez faites
Ben je ne l'ai pas faites pour le moment mais il semblerait que cela devient utile pour vous

Re,

Merci, ca a l'air de marcher parfaitement.
Je continuerai mes tests demain matin et vous tiens au courant si besoin.

Encore un enorme merci.
Tres bonne soiree

Bonjour f894009,


Je me permets de revenir vers vous par rapport à mon fameux fichier.

Les dernières modifs que vous avez faites marchent parfaitement, mais j’ai un dernier soucis, qui m’empêche de déployer le fichier.
Et vu que vous avez l’air de très bien toucher votre bille sur VBA… j’essaye d’en tirer profit :)

Seriez-vous prêt à m’aider une fois de plus ?

Si oui, un énorme merci, suivi de petites explications…

Rappel du contexte : ce fichier aura pour but de recenser tous les contrats de l’entreprise.
Fonctionnalités : selon les 4 boutons > ajouter, modifier, rechercher ou établir un reporting en fonction de l’historique (= onglet legal docs listing)


Ma problématique :
Dans l’UF MOD_DOC apparaît le Combobox AMENDMENTS_NM, ainsi que le bouton Consult….
Le combobox a pour utilité de faire apparaitre la liste de tous les amendments lié à un contrat existant par fournisseur, et le bouton de lancer l’UF dans lequel les champs décrivant cet amendment s’affiche.

Lorsque je recherche un contrat, ou cherche à modifier un contrat auquel est lié plusieurs avenants, et que j’utilise ce combobox et son bouton, j’ai les problèmes suivants :

- la liste de références fait apparaître des documents qui n’ont rien à voir avec le document initial.
Ex : il m’indiquera une référence pour un contrat Danone alors que je suis sur un contrat Nestlé…

- la liste de références apparaît de manière illogique : la même référence peut apparaître plusieurs fois, et en fonction de la référence choisie, rien ne se passe quand je clique sur le bouton.

Auriez-vous une idée de comment régler le soucis ?
Je souhaiterai que ce bouton liste de manière chronologique (par ordre d’enregistrement du document) les amendments liés au contrat d’origine, et qu’une fois la référence sélectionné, les données de cet avenant s’affiche dans l’UF en conséquence.

Pour info, j’ai constaté pendant mes tests, que la liste des références affiche des références de mes précédents essais.
Ex :mon 1er essai était sur le contrat ABC
Mon 2ème essai est sur le contrat CBA. La liste des références affichera les avenants du contrat CBA, et ABC…
Il faudrait bien sûr que la liste n’affiche que les avenants liés au contrat recherchés…

https://mon-partage.fr/f/eJKndwGm/
mot de passe : MDP

Pour s’identifier sur le fichier:
Last name : A
First Name : Nic
Password : G19PK1


Dans l’attente de vous lire,
Merci beaucoup.

N.B : amendment = avenant en anglais (à toute fin utile).

Bonjour,

Ok, je recupere votre fichier et regarde la chose

super, merci beaucoup :) !

Après plusieurs tests, ca marche très bien. Bravo !
Je ne m'étais pas trompé, vous touchez vraiment votre bille :)

Je continue mes tests dans tous les sens pour être sur que rien ne cloche.
Encore merci.

Re,

Je viens de voir une petite coquille.
Lorsque je cherche un contrat pour lequel il n'y a aucun avenant lié à ce contrat, et que je clique quand même sur le bouton "Consult this amendment", j'ai un message d'erreur 380 qui s'affiche.
La ligne du code qui pose problème est la suivante :
AMENDMENT_DOC.BU = .Range("G" & Ligne)


Y-a-til un moyen de corriger pour que dans le cas présent, rien ne se passe quand on clique sur le bouton ?

Si non, ou s'il y a un risque que cela endommage le code présent, laissons tomber.
Sur le principe, ce n'est pas un gros soucis, car on est pas censé cliquer sur ce bouton s'il n'y a pas d'avenants liés à ce contrat.

Merci.


2Ème petite coquille…


Je viens d’ajouter un Rolling contract, auprès d’Evian à mon fichier.

https://mon-partage.fr/f/aRuo9JyB/

J’ai ensuite fait une modif pour voir si tout marchait, et modifier la date de fin et la valeur du contrat.

Dans l’onglet legal docs listing, la date de fin que j’ai modifié s’affiche désormais en texte (01 Dec 2025) et non en chiffre (01.12.2025) comme tous les autres.
Peux-t-on faire en sorte que les dates affichées en colonne M, N, T, X & Y soit dans tous les cas, et peu importe le dernier UF utilisé en format jj.mm.2025 ?

Merci.

Re,

Ok, je recupere votre fichier et regarde la chose

non en chiffre (01.12.2025) comme tous les autres
Sur le fichier les dates sont des dates ex:01/01/2016 et 01.12.2025 pour moi c'est du texte pas une date

fichier modifie pour les deux "coquilles"

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

Je regarde s'il n'y a pas d'autres anomalies
A+

Bonsoir FB,

Apres quelques tests sommaires, ca marche.
Je continue en début de semaine et vous tiens au courant au besoin.

Encore merci, très bon weekend.

Merci FB, ca a l'air de bien marché.

Je vais faire d'autres tests plus poussés et vous tiens au courant.

Merci beaucoup, très belle journée,

Re,

Et bien c'est parce que je ne trouve pas ce qui cloche que je vous envoyais mon feedback, au cas ou vous doutez de mon manque de compétence en VBA... :)

Et je comprends encore moins que ca marchait tres bien avec les autres donnees, et que je n'ai pas touche aux codes...

Merci.

Re,
au cas ou vous doutez de mon manque de compétence en VBA
La n'est pas la question, le curseur souris sur les variables, assez peu de gens connaisse ce moyen d'investigation tres utile.

Je recupere votre fichier

suite:

Probleme au control password sur identification, il y a un #N/A sur le rechercheV feuille Data base Entreprise pour Anne et Bob qui plante le code

Elle est trop belle, #VALEUR! colonne B feuille Legal docs listing ligne 13

Pour le reste je regarde demain matin

Re,

C'est une methode magique > je croyais que vous etiez sarcastique :)

#N/A sur le rechercheV feuille Data base Entreprise pour Anne et Bob qui plante le code = c'est parce que le department est Human Resources et non HR.

Merci, et a demain.
Tres bonne soirée.

Re,
Sarcastique, pas de ça chez nous, sauf si vous commencez en premier.
À demain

Re,

MOD_DOC.TACITE_RENEWAL = .Range("O" & Ligne) 

Legal......... colonne O
Tacit renewal
NO
YES
NO
NO
YES
YES
YES
YES
YES
YES
YES
N/A
N/A
NO

pour

MOD_DOC.NUM = .Range("B" & Ligne)

, la ca se complique car pas de probleme dans Legal ...... ce serait, d'apres Excel, MOD_DOC.NUM qui n'existe pas !!!!!!!!!!!!!!!!!!!!
Je cherche

Bonjour,

Pas de soucis.
Je vous attends :)

Très bonne fin de semaine.

Bonjour,
dans le fichier ci_dessous, j'ai copie la feuille "Legal docs listing" et les deux UF (Mod_Choix et Mod_Doc). Ben y a pas d'erreur sur Mod_Doc.Num !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Par contre il y avait des erreurs sur les comboboxs ou la RowSource est declaree en propriete (normal, j'ai modifie)

pour lancer, lancer l'UF Mod_Choix, clic Modif..(msg pas de doc), choisir le doc (y en a un par defaut) et clic Modif..

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

Pour votre fichier, la, c'est un cas vraiment curieux

Suite:

Si je fais la meme manip avec votre fichier, ca marche sans erreur !!!!!!!!!!!!!!!!!!!!!!!!!!!

Re,

Non, ce que j'ai fait n'est qu'un test, je n'ai pas trouve le pourquoi de ce probleme: MOD_DOC n'exite pas pour Excel
Une solution simple serait de remplir les objets de MOD_DOC en mettant le code de MOD_CHOIX Suite_click dans l'activation ou l'initialize de MOD_DOC en passant modif et soit le N° ou la ligne des infos a afficher en parametres ou avec ds variables Public (c'est normalement ce qui ce fait le plus couramment)
Mais pour l'instant, je ne vois pas ce qui cree ce probleme.