XL 2019 Saisie d'heure en vba

micpid62 · 30 Mars 2023

Bonjour à tous
Je voudrais une explication sur la saisie horaire.
Je veux la somme des heures pour une activité
J'ai un formulaire avec une textbox pour la saisie des heures.
Si je saisis dans le formulaire 16:30 dans la base de donnée, j'ai 4:30:00 PM
Il faut que j'aille dans la base de donnée pour saisir directement 16:30 et j'ai le résultat désiré
Est-ce qu'il y a un formlat spécial en vba pour régler ce problème
Merci d'avance

Phil69970 · 3 Avril 2023

Re

@micpid62

Je sais pas comment tu as pu faire car chez moi j'obtiens ceci :

Et après validation

Et avec le fichier

@Phil69970

TooFatBoy · 30 Mars 2023

Bonjour,

micpid62 à dit:
Si je saisis dans le formulaire 16:30 dans la base de donnée, j'ai 4:30:00 PM

16:30 et 4:30 PM, c'est la même chose.

Donc quel problème cela te pose-t-il ?

sylvanu · 30 Mars 2023

Bonsoir Micpid, TooFatBoy,
Dans votre base de données, sélectionnez la colonne Heures et faites format cellules / Heure et optez pour 13:30, vous devez par défaut avoir la mise en forme 1:30 PM.

micpid62 · 31 Mars 2023

En fait, dans mon formulaire, si je saisis un nombre d'heures supérieures, à 24H00 j'ai un message d'erreur.

TooFatBoy · 31 Mars 2023

Donc c'est une durée que tu veux saisir dans ta TextBox ?

L'erreur se produit à la saisie, ou à l'affectation dans la cellule ?

Tu ne veux pas donner des explications un peu plus complètes, et aussi un petit fichier ???

Phil69970 · 31 Mars 2023

Bonjour à tous

@micpid62

Un essai
Si les heures sont dans la colonne C par exemple
Sélectionner la colonne C
Format de cellule ==> personnalisé :

[h]:mm

Merci de ton retour

@Phil69970

Dranreb · 31 Mars 2023

Bonjour.
De toute façon il est souhaitable d'affecter, en tant que valeurs de cellules, les textes numériques issus de contrôles convertis en les types de données appropriés au moyen des fonctions CDbl et CDate, voire CCur. Sinon Excel y applique une interprétation anglo-saxonne.

TooFatBoy · 31 Mars 2023

Dranreb à dit:
De toute façon il est souhaitable d'affecter, en tant que valeurs de cellules, les textes numériques issus de contrôles convertis en les types de données appropriés au moyen des fonctions CDbl et CDate, voire CCur. Sinon Excel y applique une interprétation anglo-saxonne.

Toutafé. D'où ma question.

micpid62 · 3 Avril 2023

L'erreur se produit lors de l'affectation dans la cellule.
C'est-à-dire que si je saisis 22:30 dans la textbox, dans la cellule de ma feuille, j'ai : 10:30:00 pm

Phil69970 · 3 Avril 2023

Re

Remplace ce code

arr(1) = CDate(Me.TxtNbrHeures)

Par ce code :

arr(1) = Format(TxtNbrHeures.Value, "hh:mm")

Merci de ton retour

@Phil69970

Dranreb · 3 Avril 2023

Bonjour.
Plutôt CDbl(CDate(TxtNbrHeures.Text)), le CDate pour assurer la conversion en double du texte mais CDbl pour dissuader Excel de changer le format de la cellule.

micpid62 · 3 Avril 2023

Phil69970 à dit:
Re

Remplace ce code

Par ce code :

Merci de ton retour

@Phil69970

Avec ce code : arr(1) = Format(TxtNbrHeures.Value, "hh:mm")
j'obtiens ex: 71:00:00
j'ai voulu changer en mettant des accolades comme [h]mm
mais j'ai le même résultat

Phil69970 · 3 Avril 2023

Re

@micpid62

Je sais pas comment tu as pu faire car chez moi j'obtiens ceci :

Et après validation

Et avec le fichier

@Phil69970

Dranreb · 3 Avril 2023

Alors je n'avais pas capté que le nombre d'heure pouvait dépasser 24.
Il ne reste plus qu'à faire:

VB:

TSpl = Split(TxtNbrHeures & ":0", ":"): arr(1) = TimeSerial(TSpl(0), TSpl(1), 0)

TooFatBoy · 3 Avril 2023

micpid62 à dit:
L'erreur se produit lors de l'affectation dans la cellule.
C'est-à-dire que si je saisis 22:30 dans la textbox, dans la cellule de ma feuille, j'ai : 10:30:00 pm

Je viens d'essayer ton fichier, juste en mettant les cellules de la colonne "Nbre d'heures" au format [h]:mm et il n'y a aucun problème, j'ai bien 16:30 qui s'affiche sur la nouvelle ligne du TS.

En revanche, il y a bien sûr une erreur pour les durées supérieures à 24:00.
Mais si tu mets simplement ceci :

VB:

arr(1) = TxtNbrHeures

ça devrait marcher.

XL 2019 Saisie d'heure en vba

micpid62

XLDnaute Occasionnel

Phil69970

TooFatBoy

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

micpid62

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

micpid62

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

micpid62

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Discussions similaires