Ajout Split

[Bruce68]

Bonsoir à tous
Dans fichier ci joint je voudrais incerer le bout de macro avec Split à la place de la premiere macro ci dessous mais je ne sais comment faire ( C'est concocter par PierreJean)
Je n'arrive pas à recupérer les heures et les mn pour faire ma multiplication avec mon taux horaires, ma macro marche parfaitement bien j'aurais voulu tester la macro de PierreJean
Si cela est possible .
Private Sub TextBox1_AfterUpdate()
Heures = Int(TextBox1)
Min = Right(TextBox1, 2)
Minut = (Heures * 60) + Min
End Sub

x = Split(TextBox1, ":")
Range("A1") = x(0) / 24 + x(1) / 1440
MsgBox ("nb d'heures= " & x(0))
MsgBox ("nb de minutes= " & x(1))

Je vous remercie de votre aide

 

[soenda]

Re : Ajout Split

Bonsoir Bruce68

Essaies avec CDate

x = Split([B]CDate[/B](TextBox1.Value), ":",[COLOR=red][B]3[/B][/COLOR])
...
MsgBox ("nb d'heures= " & x([B]0[/B])) & vbcr & ("nb de minutes= " & x([B]1[/B]))

Note: x(2) contient les secondes

A plus