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 :
Le useform :
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
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
Partager