Discussion :

[orcinus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Tdate_Change()
 Dim Valeur As Byte
    Tdate.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
    Valeur = Len(Tdate)
    If Valeur = 2 Or Valeur = 5 Then Tdate = Tdate & "/"
 
End Sub

[unparia]

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.

[orcinus]

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 /

[unparia]

Effectivement c'est lorsque je valide et que sa vient incrémenter mon tableau excel que l'inversion se produit.

Voilà qui est TRES différent de ton exposé originel de la difficulté rencontrée, non ?

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 ...

[Pierre Fauconnier]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test()
  Dim Result As String
  Dim MyDate As Date
 
  Result = InputBox("Saisissez une date au format jj/mm/aaaa", "Saisie de date")
  MyDate = DateSerial(Right(Result, 4), Mid(Result, 4, 2), Left(Result, 2))
End Sub

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function getDateFromString(DateString As String) As Date
  If DateString Like "##/##/####" Then
    getDateFromString = DateSerial(Right(DateString, 4), Mid(DateString, 4, 2), Left(DateString, 2))
  End If
End Function

[unparia]

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

[Pierre Fauconnier]

Salut Jacques,

Bonjour Pierre
VBA "raisonne" en effet en format anglo-saxon (mm/dd/yyyy)[...]
Cependant : Cdate lui-même prend la liberté de "corriger" ce qui lui paraît manifestement erroné.
[...]

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...

Merci pour ton complément d'info, en tout cas

[unparia]

On a des spécialistes de l'usine à gaz sur nos forums, mais je pense qu'il faut rester simple et efficace...

C'est bien vrai
Attention (mon edit) à Dateserial lui-même.

[Pierre Fauconnier]

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 ).

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à.

[unparia]

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.

[RyuAutodidacte]

Bonjour,

Tout à fait d'accord avec vous Jacques et Pierre, je vous ai mis

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"

[orcinus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Tdate_Change()
 
 Dim Valeur As Byte
    Tdate.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
    Valeur = Len(Tdate)
    If Valeur = 2 Or Valeur = 5 Then Tdate = Tdate & "/"
 
End Sub

[orcinus]

ryuautodidacte, j'ai essayé également votre solution en passant par "données"
mais rien ne change

[Pierre Fauconnier]

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...

[unparia]

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 ?

tu le montres quand, ce code ?

[orcinus]

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.

[Pierre Fauconnier]

encore une fois, dans un autre classeur ce code fonctionne très bien[...]

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.

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... )

[orcinus]

Serais donc ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'procédure permettant d'ajouter un nouvel enregistrement dans la base de données
Private Sub btnajouter_Click()
 
Sheets("source").Activate
Sheets("source").Activate
Range("A1").Select
Range("A" & Rows.Count).End(xlUp).Select  'on se positionne sur la dernière ligne non vide
Range("A" & Rows.Count).End(xlUp).Offset(1).Select 'on se décale d'une ligne vers le bas
 
ActiveCell = Tdate.Value
ActiveCell.Offset(0, 1).Value = Cagence
ActiveCell.Offset(0, 2).Value = Csite
ActiveCell.Offset(0, 3).Value = Tnom
ActiveCell.Offset(0, 4).Value = Cclient
ActiveCell.Offset(0, 5).Value = Ccontrat
ActiveCell.Offset(0, 6).Value = Cdomaine
ActiveCell.Offset(0, 7).Value = Cdemande
ActiveCell.Offset(0, 9).Value = Cbilan
ActiveCell.Offset(0, 10).Value = Tfacturation
ActiveCell.Offset(0, 11).Value = Tobservations
 
MsgBox "nouvelle entrée bien enregistré", vbOKOnly + vbInformation, "CONFIRMATION D'ENREGISTREMENT"
 
End Sub

[Pierre Fauconnier]

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))

[orcinus]

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.