[RESOLU]Heure Minute en Heure Centième - VB

Modeste geedee

XLDnaute Barbatruc

• 6 Janvier 2014

• #2

Re : Heure Minute en Heure Centième - VB

Bonsour®
Dim HoraireCent As Double
HoraireCent = HoraireSexa / TimeValue("1:00")
et réciproquement :
HoraireSexa = HoraireCent * TimeValue("1:00")

plus précisément selon l'exemple :
TextEffectif = "8:30"
Coeff = 0.9
MsgBox Coeff * TimeValue(TextEffectif) / TimeValue("1:0")

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 6 Janvier 2014

• #3

Re : Heure Minute en Heure Centième - VB

Bonsoir Modeste

J'ai peur de t'avoir perdu la !!!

08h30 c'est un travail de 07:00 à 15:30 donc de l'amplitude et pas de l'effectif

Coef réducteur 0,90

donc Heure effectif 7,39

Private Sub TextAmplitude_Change()
If TextAmplitude = "" Then Exit Sub
If TextAmplitude <> "" Then Me.TextEffectif = heure(Me.TextAmplitude) * Val(Replace(Me.TextCoef, ",", "."))
End Sub

Cliquez pour agrandir...

Concrètement, cela donne quoi pour mon bout de code ?

Merci de toutes aides
David

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Janvier 2014

• #4

Re : Heure Minute en Heure Centième - VB

Bonjour Ternoise
Salut Modeste geedee

x=CDbl(TimeValue("8:30")) * 24 * 0.9

Qui donne 7,65 et non 7,39 (la formule de Modeste donne d'ailleurs le même resultat)

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 6 Janvier 2014

• #5

Re : Heure Minute en Heure Centième - VB

Bonsoir Pierre Jean, Le Forum

J'ai bien 7,39

 

Pièces jointes

• Classeur Heure.xls

  13.5 KB · Affichages: 41

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Janvier 2014

• #6

Re : Heure Minute en Heure Centième - VB

Bonsoir Ternoise, salut Pierre, Modeste geedee,

Faudrait pas faire n'importe quoi Ternoise.

Donc ne pas mettre la cellule G13 au format [hh],mm qui redonne des heures et des minutes

Fichier joint.

A+

 

Pièces jointes

• Classeur Heure(1).xls

  23.5 KB · Affichages: 59

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 6 Janvier 2014

• #7

Re : Heure Minute en Heure Centième - VB

Re,
Ce classeur était un exemple afin de faire voir le résultat que je recherche en remplaçant cette ligne de code

If TextAmplitude <> "" Then Me.TextEffectif = heure(Me.TextAmplitude) * Val(Replace(Me.TextCoef, ",",

Cliquez pour agrandir...

Cette dernière me renvoi 7,56 mais j'aimerais qu'elle me renvoi 7,39 comme mon ancien logiciel de calcul d'heure.

En fait c'est bien des Heure Minute que je recherche !!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Janvier 2014

• #8

Re : Heure Minute en Heure Centième - VB

Re,

C'est quoi heure() dans votre code VBA

A+

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 6 Janvier 2014

• #9

Re : Heure Minute en Heure Centième - VB

Re,

J'ai fais un p'tit truc simple !

 

Pièces jointes

• Classeur Heure.xls

  33.5 KB · Affichages: 60

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 6 Janvier 2014

• #10

Re : Heure Minute en Heure Centième - VB

Bonsour®

quand on utilise le symbolisme hh:mm:ss ,
EXCEL interprète "by Design" la valeur comme un horaire en heure minute(0 à 59) et seconde (0 à 59)

quand on utilise le symbolisme décimal "entier , décimal"
c'est la partie décimale qui désigne la fraction d'heure

1 seule décimale on parle alors de dixièmes d'heure (0 à 9)
2 décimales on parle centièmes d'heure(0à 99)
3 décimales se sont alors des millièmes d'heure(0 à 999)
et ainsi de suite

c'est une règle mathématique indépendante d'EXCEL
c'est une aberration de vouloir dire que 7,39 représente 7heures et 39 minutes !!!
Persister dans ce sens ne pourra qu'aboutir à des résultats erronés...

ne pas oublier que pour EXCEL un nombre décimal représente également une date, suivi d'une partie décimale qui est alors une fraction de jour(24h)

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 6 Janvier 2014

• #11

Re : Heure Minute en Heure Centième - VB

Re à tous,

Je m'incline...

Ce gros projet commence réellement à me ....

Merci à tous

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Janvier 2014

• #12

Re : Heure Minute en Heure Centième - VB

Re,

Comme quoi faut toujours commencer par le commencement.

Si vous tenez vraiment à la virgule (?) comme séparateur des heures et des minutes, utilisez :

Code:

Private Sub CommandButton1_Click()
If Not IsDate(TextAmplitude) Then TextAmplitude.SetFocus: Exit Sub
TextEffectif = heure(TextAmplitude, TextCoef)
End Sub

Function heure(str As Date, coef As String)
heure = 24 * str * Val(Replace(coef, ",", "."))
heure = Int(heure) & "," & Round(60 * (heure - Int(heure)), 2)
End Function

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Janvier 2014

• #13

Re : Heure Minute en Heure Centième - VB

Re,

Et si la logique l'emporte vous utiliserez les 2 points : comme séparateur :

Code:

Private Sub CommandButton1_Click()
If Not IsDate(TextAmplitude) Then TextAmplitude.SetFocus: Exit Sub
TextEffectif = heure(TextAmplitude, TextCoef)
End Sub

Function heure(str As Date, coef As String)
heure = 24 * str * Val(Replace(coef, ",", "."))
heure = Int(heure) & ":" & Round(60 * (heure - Int(heure)), 2)
End Function

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Janvier 2014

• #14

Re : Heure Minute en Heure Centième - VB

Re,

Ah j'oubliais que "Amplitude" peut atteindre ou dépasser 24 h, donc utiliser :

Code:

Private Sub CommandButton1_Click()
If UBound(Split(TextAmplitude, ":")) = 1 Then
  TextEffectif = heure(TextAmplitude, TextCoef)
Else
  TextAmplitude = ""
  TextAmplitude.SetFocus
End If
End Sub

Function heure(str As String, coef As String)
heure = Val(Split(str, ":")(0)) + Val(Split(str, ":")(1)) / 60
heure = heure * Val(Replace(coef, ",", "."))
heure = Int(heure) & ":" & Format(60 * (heure - Int(heure)), "00")
End Function

A+

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 6 Janvier 2014

• #15

Re : Heure Minute en Heure Centième - VB

Re Job

Non l'amplitude ne peux pas dépasser 24h !!!! Déjà 14h de travail c'est pas mal !!!

Par contre si je persiste à ne pas être logique, cela pose problème avec en exemple 11h45 d'amplitude
Il manque l'arrondi à la minute supérieur je pense !

Merci à tous et j'espère rejoindre, un jour Modeste et vous tous dans ma logique !
David

 

Vote positif 0 Vote négatif