A voir également:
- Calcule de heure dans textbox (VBA excel)
- Calcule de heure dans textbox (VBA excel) ✓ - Forum - VB / VBA
- Format textbox vba excel ✓ - Forum - Excel
- Comment calculer les heures de nuit sur excel ✓ - Forum - Excel
- Calculer les heures de nuit sur excel - Forum - Excel
- Calculs heures de nuit WE dimanche et fériés sur Excel - Forum - Excel
8 réponses
Armojax
- Messages postés
- 1842
- Date d'inscription
- mercredi 19 janvier 2005
- Statut
- Membre
- Dernière intervention
- 9 juin 2020
Re, joze... Juste quelques petits réglages.
Il ne faut pas mettre le code dans la procédure d'initialisation du UserForm (Private Sub UserForm_Initialize). Cette procédure s'exécute au moment de l'affichage, alors qu'on n'est pas encore intervenu. A ce moment-là, rien n'est saisi dans les TextBox, et Cdate ne peut forcément pas en déduire une date/heure.
- Fais un initialize qui initialise les textbox à rien, pour qu'elles soient vides à l'affichage :
Private Sub TextBox2_AfterUpdate
qui s'exécute après la saisie dans la textbox2.
Si on laisse les choses comme je les ai dites, le résultat n'est pas formaté, c'est-à-dire que le résultat sera du genre :
- 17:48:00 (avec les secondes) si le résultat est inférieur à 24 heures,
- 31/12/1899 03:15:00 dans le cas contraire.
Pour formater avec seulement les heures et minutes, utilise la fonction Format.
Voici ce que ça peut donner :
S'il s'agit d'une soustraction d'heures, tu adaptes.
Si tu veux contrôler la saisie, il faut travailler sur du texte. Par exemple :
- pas plus de 5 caractères (utiliser la propriété MaxLength)
- deux caractères à droite numériques, et inférieurs à 60
- le précédent = ":"
etc.
Il ne faut pas mettre le code dans la procédure d'initialisation du UserForm (Private Sub UserForm_Initialize). Cette procédure s'exécute au moment de l'affichage, alors qu'on n'est pas encore intervenu. A ce moment-là, rien n'est saisi dans les TextBox, et Cdate ne peut forcément pas en déduire une date/heure.
- Fais un initialize qui initialise les textbox à rien, pour qu'elles soient vides à l'affichage :
Private Sub UserForm_Initialize() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" End SubEnsuite, dans une autre procédure qui s'exécutera après la saisie dans les 2 premières textbox, tu mets le code que j'ai indiqué. Ça peut être, par exemple, la procédure
Private Sub TextBox2_AfterUpdate
qui s'exécute après la saisie dans la textbox2.
Si on laisse les choses comme je les ai dites, le résultat n'est pas formaté, c'est-à-dire que le résultat sera du genre :
- 17:48:00 (avec les secondes) si le résultat est inférieur à 24 heures,
- 31/12/1899 03:15:00 dans le cas contraire.
Pour formater avec seulement les heures et minutes, utilise la fonction Format.
Voici ce que ça peut donner :
Private Sub TextBox2_AfterUpdate() Dim H1 As Date Dim H2 As Date H1 = CDate(TextBox1.Value) H2 = CDate(TextBox2.Value) TextBox3.Value = Format(H1 + H2, "hh:mm") End Sub
S'il s'agit d'une soustraction d'heures, tu adaptes.
Si tu veux contrôler la saisie, il faut travailler sur du texte. Par exemple :
- pas plus de 5 caractères (utiliser la propriété MaxLength)
- deux caractères à droite numériques, et inférieurs à 60
- le précédent = ":"
etc.
ze95
- Messages postés
- 11
- Date d'inscription
- mercredi 5 avril 2006
- Statut
- Membre
- Dernière intervention
- 26 avril 2006
Boujour Armojax merci de prendre le temp de me répondre.
J'ai saisi ce code et ça ne marche pas !
ça me marque:
" ERREUR D'EXECUTION '13': INCOMPATIBILITE DE TYPE
merci pour ton aide.
J'ai saisi ce code et ça ne marche pas !
ça me marque:
" ERREUR D'EXECUTION '13': INCOMPATIBILITE DE TYPE
Private Sub UserForm_Initialize() Dim H1 As Date Dim H2 As Date H1 = CDate(TextBox1.Value) H2 = CDate(TextBox2.Value) TextBox3.Value = H1 + H2 End Sub
merci pour ton aide.
Armojax
- Messages postés
- 1842
- Date d'inscription
- mercredi 19 janvier 2005
- Statut
- Membre
- Dernière intervention
- 9 juin 2020
Bonjour joze,
Comme son nom l'indique, une textbox reçoit... du texte.
Donc tu ne peux pas additionner spontanément le contenu de 2 textbox.
Il faut convertir en date le résultat de la saisie, avec la fonction Cdate.
Tu peux définir 2 variables H1 et H2 comme des dates, les additionner et mettre le résultat dans la textbox3 :
Il te reste à gérer le format d'affichage, la gestion sur 12h ou 24h, le report d'un jour à l'autre...
Comme son nom l'indique, une textbox reçoit... du texte.
Donc tu ne peux pas additionner spontanément le contenu de 2 textbox.
Il faut convertir en date le résultat de la saisie, avec la fonction Cdate.
Tu peux définir 2 variables H1 et H2 comme des dates, les additionner et mettre le résultat dans la textbox3 :
Dim H1 As Date Dim H2 As Date H1 = CDate(TextBox1.Value) H2 = CDate(TextBox2.Value) TextBox3.Value = H1 + H2
Il te reste à gérer le format d'affichage, la gestion sur 12h ou 24h, le report d'un jour à l'autre...
blux
- Messages postés
- 23763
- Date d'inscription
- dimanche 26 août 2001
- Statut
- Modérateur
- Dernière intervention
- 13 janvier 2020
Salut,
je pense qu'il faudrait transformer le résultat du calcul en texte avant de l'afficher :
je pense qu'il faudrait transformer le résultat du calcul en texte avant de l'afficher :
TextBox3.Value = TEXTE(H1 + H2) ?
ze95
- Messages postés
- 11
- Date d'inscription
- mercredi 5 avril 2006
- Statut
- Membre
- Dernière intervention
- 26 avril 2006
Salut Blux mercie pour ta réponse mais
Désoler ça ne fonctionne pas
ça me marque:
"ERREUR DE COMPILATION/ SUB OU FONCTION NON DEFINIE"
merci pour ton aide.
a+ze95
Désoler ça ne fonctionne pas
ça me marque:
"ERREUR DE COMPILATION/ SUB OU FONCTION NON DEFINIE"
merci pour ton aide.
a+ze95
ze95
- Messages postés
- 11
- Date d'inscription
- mercredi 5 avril 2006
- Statut
- Membre
- Dernière intervention
- 26 avril 2006
Salut Armojax.
j'ai bien compris tes explications
je n'est plus d'erreur
mais l'osque j'execute mon formulaire
rien ne s'affiche dans le textBox3.
a+ze95
j'ai bien compris tes explications
je n'est plus d'erreur
mais l'osque j'execute mon formulaire
rien ne s'affiche dans le textBox3.
a+ze95
Armojax
- Messages postés
- 1842
- Date d'inscription
- mercredi 19 janvier 2005
- Statut
- Membre
- Dernière intervention
- 9 juin 2020
Un exemple ici :
https://www.cjoint.com/?egxO7RQxrp
https://www.cjoint.com/?egxO7RQxrp
Armojax
- Messages postés
- 1842
- Date d'inscription
- mercredi 19 janvier 2005
- Statut
- Membre
- Dernière intervention
- 9 juin 2020
- Messages postés
- 1842
- Date d'inscription
- mercredi 19 janvier 2005
- Statut
- Membre
- Dernière intervention
- 9 juin 2020
Un petit complément.
Essaie l'exemple que j'ai mis dans le post au-dessus. Chez moi il fonctionne.
MAIS... j'ai fait une bourde énorme, même si le résultat est correct.
Si l'heure de fin est inférieure à celle de début, on en déduit que l'heure de fin se situe le lendemain. Pour dire que c'est le lendemain, il faut ajouter 24 heures au résultat, soit 1 jour.
Dans mon code, j'ai machinalement ajouté 24 (j'ai fait ça vite, avant d'aller me coucher, ça doit être ça !).
Avec Excel et VBA, l'unité de mesure de temps est le jour, pas l'heure. Donc il suffit d'ajouter 1, et non pas 24.
Le résultat reste correct parce que le format masque la date, et ne montre que les heures et les minutes. Si on affichait les dates, on verrait qu'au lieu de finir le lendemain, on finirait à la même heure, mais 24 jours plus tard.
Donc, corrige...
Essaie l'exemple que j'ai mis dans le post au-dessus. Chez moi il fonctionne.
MAIS... j'ai fait une bourde énorme, même si le résultat est correct.
Si l'heure de fin est inférieure à celle de début, on en déduit que l'heure de fin se situe le lendemain. Pour dire que c'est le lendemain, il faut ajouter 24 heures au résultat, soit 1 jour.
Dans mon code, j'ai machinalement ajouté 24 (j'ai fait ça vite, avant d'aller me coucher, ça doit être ça !).
Avec Excel et VBA, l'unité de mesure de temps est le jour, pas l'heure. Donc il suffit d'ajouter 1, et non pas 24.
Le résultat reste correct parce que le format masque la date, et ne montre que les heures et les minutes. Si on affichait les dates, on verrait qu'au lieu de finir le lendemain, on finirait à la même heure, mais 24 jours plus tard.
Donc, corrige...
ze95
- Messages postés
- 11
- Date d'inscription
- mercredi 5 avril 2006
- Statut
- Membre
- Dernière intervention
- 26 avril 2006
Un grand Merci à toi Armajax ainsi qu'a Blux
ça marche enfin et grace à vous deux
merci, ze95 a+
ps. je serais certainement contrain de vous poser d'autre questions suivant l'avancement de mon formulaire.
ça marche enfin et grace à vous deux
merci, ze95 a+
ps. je serais certainement contrain de vous poser d'autre questions suivant l'avancement de mon formulaire.
nulos
Salut à tous,
QQun pourrait il me donner la réponse à ce problème?
8jours 18 heures 2 minutes et 21 secondes
_ moins
1 jour 19 heures 17 minutes et 43 secondes?
Merci à tous
QQun pourrait il me donner la réponse à ce problème?
8jours 18 heures 2 minutes et 21 secondes
_ moins
1 jour 19 heures 17 minutes et 43 secondes?
Merci à tous
aquarelle
- Messages postés
- 7083
- Date d'inscription
- dimanche 8 avril 2007
- Statut
- Modérateur
- Dernière intervention
- 25 septembre 2020
Bonsoir,
Le mieux serait de créer ton propre post et d'y donner les explications sur la question qui te préoccupe.
En effet, cela facilite la lecture et les réponses à donner.
Si chacun vient sur un post pour y ajouter sa propre question, il est ensuite difficile de suivre les demandes et les solutions sans tout mélanger. Il y aussi un risque pour que les solutions, du coup, ne soient pas adaptées.
Merci de le comprendre.
Voici comment procéder : http://perso.orange.fr/rginformatique/section%20virus/demofairesontmessage.htm
NB : N'oublie pas d'être poli(e), respectueux (euse) et donne le maximum d'informations concernant ton problème
Bonne nuit
Le mieux serait de créer ton propre post et d'y donner les explications sur la question qui te préoccupe.
En effet, cela facilite la lecture et les réponses à donner.
Si chacun vient sur un post pour y ajouter sa propre question, il est ensuite difficile de suivre les demandes et les solutions sans tout mélanger. Il y aussi un risque pour que les solutions, du coup, ne soient pas adaptées.
Merci de le comprendre.
Voici comment procéder : http://perso.orange.fr/rginformatique/section%20virus/demofairesontmessage.htm
NB : N'oublie pas d'être poli(e), respectueux (euse) et donne le maximum d'informations concernant ton problème
Bonne nuit
