Version imprimable
bonjour,
je cherche pourquoi ce code m'inverse les jours jours et les mois dans ma textbox.
Je sais qu'il y a beaucoup de sujet traité sur les dates.Mais la
'procédure permettant la mise en forme automatique du champ date
Code:
2
3
4
5
6
7
Bonjour
Le code que tu montres-là n'inverse lui-même rien dans la textbox.
Je devine que ton "inversion" se manifeste, mais pas à ce niveau.
Si tu veux de l'aide : essaye donc d'être précis, s'il te plait.
bonjour,
merci pour la réponse rapide et autant pour moi.
Effectivement c'est lorsque je valide et que sa vient incrémenter mon tableau excel que l'inversion se produit.
J'ai trouver une solution en remplacent / par .
Mais j'aurais aimer savoir pour sa ne fonctionne pas avec /
Voilà qui est TRES différent de ton exposé originel de la difficulté rencontrée, non ?Citation:
Effectivement c'est lorsque je valide et que sa vient incrémenter mon tableau excel que l'inversion se produit.
Te viendrait-il à l'esprit que le code que tu dois montrer est alors celui qui exploite le contenu de ta textbox pour l'affecter à une cellule ? Non ?;)
EDIT : et le "." à la place du "\" fait que ta cellule passe en texte et n'est plus une date, hein ...
Salut.
VBA et Excel ne parlent pas toujours le même langage concernant les dates. Il se pourrait que VBA considère la date comme étant au format m/d/y alors que ton Excel la considère probablement au format j/m/a. Dès lors que tu récupères un string via ton textbox, tu aurais intérêt à recomposer la date en utilisant DateSerial(YearValue, MonthValue, DayValue). Tu éviteras bien des misères.
Idéalement, tu te créeras une fonction de conversion, surtout si tu veux pouvoir convertir une date saisie selon plusieurs formats (1/3/17, 01/03/2017 ou 01-03-2017 par exemple). La fonction que je donne ici est simplissime et ne permet pas beaucoup de fioritures (aucune, en fait ;)), mais elle illustre que tu as intérêt à sortir le code de transformation (et de vérification) de ton code principal pour l'isoler dans une fonction. Elle est largement améliorable, avec par exemple un paramètre optionnel pour déterminer le format d'entrée.Code:
2
3
4
5
6
7
Code:
2
3
4
5
Bonjour Pierre
VBA "raisonne" en effet en format anglo-saxon (mm/dd/yyyy)
Dans son cas, l'utilisation d'une conversion par Cdate permettrait d'alimenter correctement sa cellule.
Cependant : Cdate lui-même prend la liberté de "corriger" ce qui lui paraît manifestement erroné.
Ainsi : Cdate("13/12/2017") sera traduit en la date 13/12/2017
Mais qu'un utilisateur saisisse par erreur "01/13/2017" et cdate "corrigera" en 13/01/2017
EDIT : et Dateserial lui-même (même en lui passant les valeurs numériques des sous-chaînes) lui jouerait un mauvais tour dans le cas d'un utilisateur étourdi.
Ainsi : DateSerial(2017,13,1) aura pour résultat : 01/01/2018
Salut Jacques,
Tout à fait. C'est pourquoi je n'aime pas spécialement cette fonction et que je préfère piloter moi-même le séquençage pour éviter les erreurs. La fonction que je donne en exemple est évidemment simple, car il n'est pas ici question de créer une fonction qui recevrait n'importe quoi en entrée et qui tenterait de transformer ce n'importe quoi en date. On a des spécialistes de l'usine à gaz sur nos forums, mais je pense qu'il faut rester simple et efficace...Citation:
Envoyé par unparia
Merci pour ton complément d'info, en tout cas ;)
C'est bien vrai :plusser:Citation:
On a des spécialistes de l'usine à gaz sur nos forums, mais je pense qu'il faut rester simple et efficace...
Attention (mon edit) à Dateserial lui-même.
Ok pour le DateSerial avec des dépassements, mais c'est cela qui peut être très utile avec DateSerial, donc perso, j'aime bien... Mais c'est notamment pour cela que je dis que ma fonction de conversion est très (trop) légère. Elle illustre simplement mon dada de sortir du code principal ce qui n'a rien à y faire pour l'isoler dans une fonction perfectible, testable, maintenable, évolutive, ... (Bref, tu me comprends, je crois :mouarf:).
Par exemple, calculer une date d'échéance à 150 jours fin de mois (dernier jour du cinquième moi à partir de la date de facture), je fais dateserial(year(date),month(date)+6,0) sans me préoccuper du dépassement d'année et en appréciant de pouvoir utiliser le zérotième jour du mois pour aller au dernier jour du mois précédent...
Il existe d'autres techniques mais j'aime assez bien celle-là.
C'est tout simplement la plus pure de toutes. Elle a également ma très grande préférence. ;)Citation:
Il existe d'autres techniques mais j'aime assez bien celle-là
Bonjour,
Tout à fait d'accord avec vous Jacques et Pierre, je vous ai mis :plusser:
Dans un poste auquel j'avais répondu, la feuille à traiter contenait des dates d'apparences correct, mais qui une fois traiter par VBA inverser les mois et les jours.
La solution que j'avais donnée était de :
1 - mettre les formats correspondant dans chaque colonnes dont la fameuse colonne Dates, et pas forcément laisser Excel le faire automatiquement
2 - pour être sûr que la colonne date soit bien traiter par VBA, sélectionner les dates dans la colonne concernée et faire :
Données => Convertir (on peut laisser "Largeur fixe") => faire 2 x Suivant => puis Sélectionner "Date" et choisir "JMA" => Fin
Normalement les dates à traiter par VBA ne devrait plus poser de problème
Edit : Avec cette solution on peut laisser les dates sous cette forme "XX/XX/XX"
merci a tous les deux pour vos réponses.
Mais n'étant pas programmeur, je plante.
Je regarde beaucoup pour essayer de comprendre et j'adapte aussi ce que je peux trouver
Mon code fonctionne très bien dans un classeur et pas dan un autre. de plus il y a juste à entrer des chiffres pas de / ou . ou autre chose.
J'ai tout revérifié mais je ne trouve pas.
ci-dessous mon code
si vous pouvez m'aider:(
Code:
2
3
4
5
6
7
8
ryuautodidacte, j'ai essayé également votre solution en passant par "données"
mais rien ne change
Comme unparia te l'a dit, ton code n'a rien à voir dans l'inversion des mois/jours.
il ajoute simplement une barre oblique après le deuxième ou cinquième caractère saisi, mais il n'inverse rien du tout.
Ce qui plante, c'est que VBA va considérer ta valeur saisie comme une date au format mm/dd/yyy et pas au format dd/mm/yyyy. C'est donc après la saisie de la date complète, et donc après l'exécution du code que tu donnes ici, que l'inversion est effectuée.
Donne le code qui traite la saisie pour l'injecter dans une cellule, si tu souhaites que nous t'aidions...
tu le montres quand, ce code ?Citation:
Te viendrait-il à l'esprit que le code que tu dois montrer est alors celui qui exploite le contenu de ta textbox pour l'affecter à une cellule ? Non ?
encore une fois, dans un autre classeur ce code fonctionne très bien
et je n'ai eu besoin de rien rajouter
je rentre la date dans ma textbox et quand je valide sa vient incrémenter automatiquement ma colonne date et au bon format. Sans rien faire ou rajouter.
même en rajoutant du code pour effectuer des calculs, le résultat est est dans le bon ordre
je peux si nécessaire vous faire passer les deux classeurs.
Encore une fois, ce n'est pas ce code (celui que tu as donné) qui pose problème, mais le code qui récupère la chaine saisie dans le textbox pour l'envoyer dans la cellule.Citation:
Envoyé par orcinus
Donne-nous ce code-là car c'est là qu'est le problème. Et c'est justement parce que le problème survient dans certains classeurs et pas dans d'autres que ce code nous est nécessaire pour t'aider... (Je ne vois pas comment l'exprimer de façon plus compréhensible... ;))
Serais donc ceci?
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Probablement, oui...
Modifie ta ligne activecell = tdate.value par activecell.value = DateSerial(Right(tdate.value, 4), Mid(tdate.value, 4, 2), Left(tdate.value, 2))
sa marche super.
Merci beaucoup et désolé pour ma lenteur.
Je vais quand regarder de plus près et essayer de comprendre pourquoi sa fonctionne sur un classeur et pas un autre
Se site et vos compétences est plus que utile pour des novices comme moi.