XL 2019 Saisie d'heure en vba

[micpid62]

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

 

[TooFatBoy]

Bonjour,

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]

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]

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

 

[TooFatBoy]

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]

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]

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]

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]

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]

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]

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]

Re

Remplace ce code



Par ce code :



Merci de ton retour

@Phil69970

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]

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]

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

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

 

[TooFatBoy]

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 :

arr(1) = TxtNbrHeures

ça devrait marcher.