Saisie heures négatives dans Textbox

patsyl60 · 25 Avril 2011

Bonjour à tous,

Je voudrais suivre les heures supplémentaires d'un nombre de salariés. Heures positives ou heures négatives.( voir fichier joint)

J'arrive à saisir dans une textbox les heures négatives mais dans mon tableau de répac ( voir feuil2), cela ne les prend pas en temps qu'heures . Avez vous une idée ?

Pour info : Sur la feuil1, je lance la macro (bouton lancer), j'indique la date, le nom ( liste déroulante) et le nombre d'heures ( positives ou négatives). Sur la feuil2, j'ai une récap...

D'avance merci de votre aide.

Patsyl60

pierrejean · 25 Avril 2011

Re : Saisie heures négatives dans Textbox

bonjour patsyl60

A tester:

VB:

Sub traitement()
Date = UserForm1.Calendar1
Nom = UserForm1.ComboBox1
Ajout = UserForm1.TextBox1
  x = Split(Ajout, ":")
  Z = x(0) / 24 + x(1) / 1440
  If Z < 0 Then Z = Z - 1 / 24
Sheets("Feuil2").Range("A65536").End(xlUp)(2) = Date
Sheets("Feuil2").Range("B65536").End(xlUp)(2) = Nom
Sheets("Feuil2").Range("C65536").End(xlUp)(2) = Z
Sheets("Feuil2").Range("C65536").End(xlUp).NumberFormat = "[hh]:mm;[Red]-[hh]:mm "
End Sub

patsyl60 · 25 Avril 2011

Re : Saisie heures négatives dans Textbox

Bonsoir pierrejean,

Merci pour ta solution qui fonctionne. Seul problème ( mais de taille ) lorsque je met -02:00:00, il m'indique en récap -03:00. As tu une idée ?

ci joint fichier avec ton code.

D'avance merci.

Patsyl60

JCGL · 25 Avril 2011

Re : Saisie heures négatives dans Textbox

Bonjour à tous,

Peux-tu essayer avec ceci dans le module standard :

Code:

Sub LANCER()
    UserForm1.Show
End Sub

Sub traitement()
    Date = UserForm1.Calendar1
    Nom = UserForm1.ComboBox1
    Ajout = UserForm1.TextBox1
    x = Split(Ajout, ":")
    Z = x(0) / 24 + x(1) / 1440
    'If Z < 0 Then Z = Z - 1 / 24
    Sheets("Feuil2").Range("A65536").End(xlUp)(2) = Date
    Sheets("Feuil2").Range("B65536").End(xlUp)(2) = Nom
    Sheets("Feuil2").Range("C65536").End(xlUp)(2) = Z
    Sheets("Feuil2").Range("C65536").End(xlUp).NumberFormat = "[hh]:mm;[Red]-[hh]:mm "
End Sub

A+ à tous

patsyl60 · 25 Avril 2011

Re : Saisie heures négatives dans Textbox

Merci JCGL,

Cela fonctionne.

Merci à toi et pierrejean pour votre aide.

Bonne soirée.

Patsyl60

pierrejean · 26 Avril 2011

Re : Saisie heures négatives dans Textbox

Re

Salut JC

J'avoue ne pas comprendre !
Ta correction est parfaitement logique toutefois
Chez moi, tant avec XL2000 que XL 2010 j'ecris -5:24 pour 6:36 affiché

tototiti2008 · 26 Avril 2011

Re : Saisie heures négatives dans Textbox

Bonjour patsy, Bonjour PierreJean, Bonjour JCGL,

une proposition de correction

Code:

Sub traitement()
Date = UserForm1.Calendar1
Nom = UserForm1.ComboBox1
Ajout = UserForm1.TextBox1
  x = Split(Ajout, ":")
  Z = x(0) / 24 + Sgn(x(0)) * x(1) / 1440
Sheets("Feuil2").Range("A65536").End(xlUp)(2) = Date
Sheets("Feuil2").Range("B65536").End(xlUp)(2) = Nom
Sheets("Feuil2").Range("C65536").End(xlUp)(2) = Z
Sheets("Feuil2").Range("C65536").End(xlUp).NumberFormat = "[hh]:mm;[Red]-[hh]:mm "
End Sub

pierrejean · 26 Avril 2011

Re : Saisie heures négatives dans Textbox

Re

Bon Dieu mais c'est bien sur !!!

Merci infiniment Tototiti

Ta correction est parfaite
Elle m'a permis de comprendre mon erreur et de plus je fais connaissance avec Sgn()

tototiti2008 · 26 Avril 2011

Re : Saisie heures négatives dans Textbox

Re,

Tout le plaisir est pour moi, PierreJean
Je ne sais pas pourquoi il est souvent plus facile de voir les petites erreurs dans les codes des autres et qu'on est souvent aveugle quand on cherche dans le sien, mais si un jour quelqu'un a une explication, je suis preneur

A+

patsyl60 · 26 Avril 2011

Re : Saisie heures négatives dans Textbox

Bonsoir tototiti2008, Bonsoir PierreJean, Bonsoir JCGL,

Merci à tous pour vos solutions. Vous êtes parfaits.

Patsyl60

Saisie heures négatives dans Textbox

patsyl60

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

patsyl60

XLDnaute Occasionnel

Pièces jointes

JCGL

XLDnaute Barbatruc

patsyl60

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

patsyl60

XLDnaute Occasionnel

Discussions similaires