probleme de format de cellule e,a,t de vba

[Tom-pouic]

Bonjour, j'ai récupéré le code vba pour faire un chronomètre pour un fichier perso. Mais la sortie des infos est en format hh:mm:ss, or je voudrai que ce soit en format m'ss. Mais dès que je tente un changement dans le code ça plante. Quelqu'un peut il m'aider ? Merci d'avance,
merci de regarder le code dans le fichier joint

 

[BERRACHED said]

Re : probleme de format de cellule e,a,t de vba

Salut,Tom-pouic

Dans ton Moduel1 si tu l'a remarqué la procédure est sous la forme
heures:minutes:secondes:

H = TimeValue(UserForm1.Label1.Caption) + TimeSerial(0, 0, 1)
    UserForm1.Label1.Caption = Format(H, "hh:mm:ss")

qui est le seul format horaire reconnu automatiquement par Excel
22:35 sera interprété en 22h et 35 mn !!!!
on pourra éventuellement formater la cellule au format mm:ss
mais faite très attention !!!!!!
cela n'est qu'un format d'affichage...
qui peut fortement porter à confusion !!!!
avec une macro évènementielle qui divise la saisie 22:35 par 60 permettrait de
parvenir au comportement éscompté du moins ce je que pense
mais je te déconseille cela est une très mauvaise idée !!!

Cordialement

 

[Roland_M]

Re : probleme de format de cellule e,a,t de vba

bonjour

dans le code userform et dans ce sub tu modif avec ce code:


Private Sub CommandButton3_Click()
'------ modif roland ----------------
V$ = UserForm1.Label1
Vh$ = Left(V$, 2)
Vm$ = Mid(V$, 4, 2)
Vs$ = Right(V$, 2)
TotMin = Val(Vh$) * 60 + Val(Vm$)
TotSec = Val(Vs$)
Range("D5") = TotMin & "'" & TotSec
'----------------------------------
EnMarche = False
TimerOff
Label1.Caption = "00:00:00"
Label2.Caption = "0"
TimerOff
End Sub


ou voir fichier joint !

A+Roland

 

[Roland_M]

Re : probleme de format de cellule e,a,t de vba

bonsoir

comme tu me l'as demandé par message perso, la modif !
tu me dis quoi !?

ci-joint le fichier

à plus roland

 

[Tom-pouic]

Re : probleme de format de cellule e,a,t de vba

Moi je dis MERCI !!!!
ça marche niquel c'est top !!!
A+ tout le monde et encore merci !