Discussion :

[symbiioz]

Bonjour,

Pour enregistrer des données inscrites dans un useform, je viens les copiers sur une feuille.
Ici, j'ai 6 textbox, 3 pour une date de début, 3 pour une date de fin, et chaque groupe de 3 et composé du jour, mois, année.

Je viens donc récupérer les 3 données que je concatène pour faire la date dans une cellule au format 16/09/2019.

Pour la date de fin aucun soucis, mais pour la date de début, il inverse la textbox du jour et du mois et au lieu de me retrouver avec un 01/09/2019 je me retrouve avec un 09/01/2019 ! En faisant la différence de jour, il le prend réellement comme un jour de janvier.. je suis obligé dans le code d'inverser la texbox du jour et du mois pour avoir le bon résultat.. Illogique.

Le code :

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
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
Dim accueil As Worksheet
Set accueil = Feuil7
 
Dim a, b As Date
 
    'Enregistrer les valeurs du formulaire dans la page d'accueil
accueil.Cells(6, 2) = Repertoire.Value
accueil.Cells(5, 2) = Lecteur.Value
 
a = txbJourDébut & "/" & txbMoisDébut & "/" & txbAnDébut
b = txbJourFin & "/" & txbMoisFin & "/" & txbAnFin
'a = Format(a, "dd/mm/yy")
 
accueil.Cells(8, 2) = a
accueil.Cells(9, 2) = b
accueil.Cells(10, 2) = WorksheetFunction.NetworkDays_Intl(a, b, 1, [tableau2])
 
End Sub

Le useform :


Pour la date de début, le jour est bien txbJourDébut, le mois txbMoisDébut, l'année txbAnDébut
La date de fin, jour txbJourFin, mois txbMoisFin, année txbAnFin

Si besoin je partagerai un fichier light, car celui-ci est lourd et avec des données sensibles.

Merci,
Symbiioz

[Menhir]

Pour la date de fin aucun soucis, mais pour la date de début, il inverse la textbox du jour et du mois et au lieu de me retrouver avec un 01/09/2019

C'est juste une coïncidence mais le problème est le même pour les deux date et se produira pour toute date dont le nombre du jour est égale ou inférieur à 12.

Modifie ton code ainsi :

Code :

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

a = DateSerial(txbAnDébut, txbMoisDébut, txbJourDébut)

Même chose pour "b", bien sûr.

[boudoula]

Bonjour

je constate que dans ton code seul la variable b et déclarée en date, je pense que si tu déclares aussi la a en date tout devrait mieux se passer

Code :

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

Dim a as Date, b As Date 'au lieu de Dim a, b As Date

[Menhir]

je pense que si tu déclares aussi la a en date tout devrait mieux se passer

On parie ?

Effectivement, tu as raison de dire que cette erreur est à corriger.
Mais ce n'est pas ça qui guérira VBA de son indéfectible envie d'inverser jour et mois dans une date dès qu'il le peut.

Quand on manipule des dates en VBA, il ne faut JAMAIS passer par des chaines de caractère mais être rigoureux et manipuler les date avec des fonctions de date.

[Docmarti]

Quand on ecrit une date dans une cellule, on doit utiliser .FormulaLocal

Code :

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

1
2
3
4
5
accueil.Cells(6, 2).FormulaLocal = Repertoire.Value
accueil.Cells(5, 2).FormulaLocal = Lecteur.Value
 
accueil.Cells(8, 2).FormulaLocal = a
accueil.Cells(9, 2).FormulaLocal = b

[Menhir]

Quand on ecrit une date dans une cellule, on doit utiliser .FormulaLocal

Uniquement si on l'inscrit sous forme de chaine de caractère (ce que, personnellement, je déconseille).

Je conseille plutôt de l'écrire en tant que valeur (avec une variable de type Data ou plus simplement Double) et mettre la cellule au format de date souhaité (ce qui peut éventuellement se faire en VBA avec la propriété NumberFormat).

[Pierre Fauconnier]

Mon 2ième grain de sel...

[...]
Les formulaires et les dates... Vaste sujet.[...]

Vaste sujet parce que l'approche n'est pas systématique...


Un textbox ne renvoie pas a priori du texte. Un textbox renvoie du texte. Point barre.

Si des "box" pouvaient renvoyer des long ou des double ou des bidule, on les auraient appelés longbox, doublebox ou bidulebox.

A partir de là, si on attend la saisie d'une date dans un textbox, on a comme seul choix de transformer le texte en date ( as date) selon le format de saisie attendu. Après, on utilise la date pour ce pour quoi on l'utilise. Le format d'une cellule n'a strictement rien à voir ici.

Transformer du texte (au format attendu) en date requiert juste une fonction que l'on se doit, si on veut être pro, d'avoir dans un module Tools.

Les discussions, interminables, sur les dates sur les forums VBA viennent du fait que les "programmeurs" ne respectent pas cette manière de procéder.

Mon ton péremptoire vient de mon exaspération due à ce que l'on rend complexe une chose qui ne l'est pas du tout:

• Saisir une date dans un textbox;
• Vérifier si la saisie est conforme au résultat attendu;
• Si oui, transformer saisie en date (grâce à une fonction générique);
• utiliser la valeur as date par la suite.

Il n'y a rien de "très complexe" ou d'absurde. Il faut juste être systématique dans son approche.

[MarcelG]

(Je suis à la bourre, pas grave...)

Tu l'auras peut-être compris, Pierre, mon "à priori" était ironique.
Trop souvent, l'on voit écrites d'autres considérations alors que s'interroger sur la nature même d'une Textbox est une base essentielle.

Maintenant, chacun son avis bien entendu. Et je ne peux qu'admettre ce que tu avances.

A mon niveau, considérer les numéros de série peut éviter, au développeur lambda, dont je suis, bien des soucis.
Certes, cela peut ne paraître pas très "pro".

Et, à mon humble avis, c'est encore plus vrai pour la recherche de date.
Mieux vaut rechercher un numéro de série qu'une date.

A bientôt.

[Menhir]

J'ai toujours fait en sorte d'éviter les UserForm (c'est un choix qui se discute mais jusqu'à présent, je m'en porte très bien) donc, à fortiori, les TextBox.

Mais lorsque je dois récupérer des dates d'un fichier texte exporté d'une autre application, la seule méthode qui pour moi est fiable (aux erreurs de données source près), c'est, comme MarcelG, la combinaison Split + DateSerial.

Dans le cas présent (ne pas l'oublier, quand même ), le Split n'est pas nécessaire puisque l'utilisateur a séparé jour, mois et année dans trois champs différents.

[MarcelG]

Bonjour Menhir, Bonjour le Forum,

Comme tu as pu le voir, j'ai élargi la discussion pour envisager les 2 cas (3 éléments séparés, date entière).

Par ailleurs, j'aurais souhaité avoir votre sentiment quant à la recherche que j'évoque dans la 2ème partie de mon post.

Merci et à bientôt.

[Thumb down]

Bonjour,
symbiioz a été admis aux urgences pour une entorse au synapses !