Time Value Format

Version imprimable

Voir 40 message(s) de cette discussion en une page

04/10/2013, 16h45
pilounet54

Time Value Format

J’ai une contradiction entre en case 2 qui fonctionne !

Code:

mCellule1 = mCellule1 & ":00"

et case 3

Code:

mCellule1 = TimeValue(Format(Left(mCellule1, 2), "00") & ":" & Right(mCellule1 & "00", 2))

en case 3 je souhaite deux chiffres les deux points et le troisième chiffres et le et un zéro pour finir
pouvez vous m'aidez?
04/10/2013, 16h48
EngueEngue

Toi parler le français comme les vaches espagnoles.. Exprime toi correctement et on pourra t'aider.

D'après ma compréhension de ton pb:

Code:

mCellule1 = left(mCellule1,2) & ":" & right(mCellule1,1) & "0"
04/10/2013, 17h06
pilounet54

format

pardon pour mon espagnoles.

mais cela fonctionne pas !

Code:

mCellule1 = left(mCellule1,2) & ":" & right(mCellule1,1) & "0"

[/QUOTE]

je souhaite deux premier chiffres ensuite les deux points le dernier chiffre
et un zéro pour finir

les deux code séparément fonctionne mais si je mets ces deux codes cela fonctionne pas
04/10/2013, 17h12
parmi

Pour faciliter l'aide, inscrit le contenu de tes 2 cellules et le résultat que tu attends.
04/10/2013, 17h18
pilounet54

format

si je tape le chiffre 1 résultat cellule 01:00
si je tape le chiffre 12 résultat cellule 12:00
si je tape le chiffre 123 résultat cellule 12:30
si je tape le chiffre 1234 resultat cellule 12:34
encore pardon pour mon français !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
truc = mcellule1
select case len(truc)
case 1 
mcellule1 = "0" & mcellule1 & ":00"
case 2
mcellule1 =  mcellule1 & ":00"
case 3
mcellule1 =  left(mCellule1,2) & ":" & right(mCellule1,1) & "0"
case 4
mcellule1 =  left(mCellule1,2) & ":" & right(mCellule1,2)
end select
end sub

04/10/2013, 20h50
pilounet54

1 pièce(s) jointe(s)

voir svp sur fichier ci joint cela ne fonctionne pas merci

quand je tape 12 cela me fais un chiffre bizard ?

Bonjour, regarde ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Test()
Debug.Print TimeValueFormat("")
Debug.Print TimeValueFormat("1")
Debug.Print TimeValueFormat("12")
Debug.Print TimeValueFormat("123")
Debug.Print TimeValueFormat("1234")
End Sub
 
Function TimeValueFormat(Tm As String) As String
Dim t As String
Dim HH As String
Dim MM As String
t = Trim("" & Tm) & "????"
HH = Format(Val(Replace(Left(t, 2), "?", "")), "00")
MM = Val(Replace(Mid(t, 3, 2), "?", ""))
If Len(MM) < 2 Then MM = MM & "0"
TimeValueFormat = HH & ":" & MM
End Function

time value format

bonjour Rdurupt,

Qu'apportent l'introduction des 4 "????" et des "replace" dans HH et MM ?

Sans ces éléments on obtient le même résultat ; à savoir: le résultat souhaité.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function TimeValueFormat(Tm As String) As String Dim t As String Dim HH As String Dim MM As String t = Trim("" & Tm) HH = Format(Val(Left(t, 2)), "00") MM = Val(Mid(t, 3, 2)) If Len(MM) < 2 Then MM = MM & "0" TimeValueFormat = HH & ":" & MM Msgbox TimeValueFormat ' pour contrôle résultat End Function
cordialement,

Citation:

Envoyé par pilounet54

voir svp sur fichier ci joint cela ne fonctionne pas merci

Si ton code est déclenché par la procédure Worksheet_Change et que ton code fait un nouveau changement sur la feuille, tu déclenches à nouveau l'événement Worksheet_Change. Tu peux empêcher le nouveau changement avec la commande Application.EnableEvents = False
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False xx = Target.Value If Trim(xx) <> "" Then Target.Value = Format(Left(xx, 2), "00") & ":" & Mid(Mid(xx, 3) & "00", 1, 2) End If Application.EnableEvents = True End Sub

time value format

Re....,

La proposition de Engue Engue fonctionne mais encore faut-il avoir une procédure convenable et que la cellule transformée soit au format texte (voir plus bas).

A savoir, c'est quand :
- tu tapes un nombre en B que la cellule C doit se transformer en heures:minutes ?
- tu tapeS un nombre en B que cette même cellule B doit se restructurer en heures:minutes ?

si c'est la seconde alors:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Worksheet_Change(ByVal Target As Range) mcellule1 = Target Select Case Len(Target) Case 1 Target = "0" & Target & ":00" Case 2 Target = Target & ":00" Case 3 Target = Left(Target, 2) & ":" & Right(mcellule1, 1) & "0" Case 4 Target = Left(Target, 2) & ":" & Right(mcellule1, 2) End Select End Sub
Il faut que les cellules soient au format texte sinon 12 et 24 renvoient respectivement 0:5 et 1.

Par ailleurs, en l'état, des valeurs telles que 2684 sont traitées sans problème. est-ce souhaitable ?

Cordialement,

Citation:
Envoyé par nibledispo
bonjour Rdurupt,

Qu'apportent l'introduction des 4 "????" et des "replace" dans HH et MM ?

Sans ces éléments on obtient le même résultat ; à savoir: le résultat souhaité.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function TimeValueFormat(Tm As String) As String Dim t As String Dim HH As String Dim MM As String t = Trim("" & Tm) HH = Format(Val(Left(t, 2)), "00") MM = Val(Mid(t, 3, 2)) If Len(MM) < 2 Then MM = MM & "0" TimeValueFormat = HH & ":" & MM Msgbox TimeValueFormat ' pour contrôle résultat End Function
cordialement,
bonjour,
tu as raison, mais pour ma défense, j'ai toujours travaillé avec visual studio 6 qui génère un erreur si :

Code:

Left("",10)

car le nombre de caractères est inférieure à 10, des vieux réflexe.

Bonjour,

A peut près dans le même style :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Test()
 
    MsgBox Formater("10")
 
End Sub
 
Function Formater(T As String) As String
 
    If Len(T) = 1 Then
        Formater = Format("0" & T & String(4 - Len(T) - 1, "0"), "00:00")
    Else
        Formater = Format(T & String(4 - Len(T), "0"), "00:00")
    End If
 
End Function

Hervé.

time value format

Bonjour,

Rdurupt : J'admire les gens qui peuvent jongler avec divers langages. Pour moi, VBA uniquement est déjà l'enfer.

Theze : très bonne solution qui semble fonctionner quelque soit le formatage de la cellule contrairement à la solution Engue Engue. Je pense l'avoir comprise.

Par contre, pour mon apprentissage, j'ai tenté ce code dans un worksheet_change et il me renvoie "erreur 5 : argument ou appel de procédure incorrect.". Je ne comprends pas pourquoi ?
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Worksheet_Change(ByVal Target As Range) If Len(Target) = 1 Then Target = Format("0" & Target & String(4 - Len(Target) - 1, "0"), "00:00") Else Target = Format(Target & String(4 - Len(Target), "0"), "00:00") End If End Sub
Cordialement,

Bonjour,

Il faut ajouter l'instruction Application.EnableEvents = False afin de ne pas boucler sur la procédure lorsque la valeur de la cible est modifiée.

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Len(Target) = 1 Then
        Target = Format("0" & Target & String(4 - Len(Target) - 1, "0"), "00:00")
    Else
        Target = Format(Target & String(4 - Len(Target), "0"), "00:00")
    End If
    Application.EnableEvents = True
End Sub

Cordialement.

05/10/2013, 17h26
nibledispo

time value format

bonjour gFZT82,

Merci. Effectivement, cela marche impeccablement.

je vais de ce pas rechercher l'incidence dans un code de "enabledevents" , sur le net ou dans l'aide VBA.

Cordialement

Je décerne la médaille de la demande la plus idiote de la semaine - voir même du mois - à cette discussion !

Car franchement au lieu de coder une usine, c'est quand même pas compliqué de taper le signe ":" ‼ :roll:

Sinon voici une autre approche gérant les deux cas, format flemme et format date :
Code:

1 2 3 4 5 6 7 8 Private Sub Worksheet_Change(ByVal Target As Range) If Not IsDate(Target.Value) Then Application.EnableEvents = False Target.Value = Format$(Val(Mid(Target.Value, 1, 2)) & ":" & _ Val(Mid(Target.Value, 3, 2)), "hh:mm") Application.EnableEvents = True End If End Sub
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

05/10/2013, 18h11
gFZT82

Citation:

je vais de ce pas rechercher l'incidence dans un code de "enabledevents" , sur le net ou dans l'aide VBA.

Inutile de chercher "enabledevents" ou "enablederrieres", ces propriétés ne sont pas encore incluses à VBA ;).
Par contre, tu peux regardder la propriété Application.EnableEvents.

Cordialement.
05/10/2013, 18h11
nibledispo

time value format
bonjour Marc,

Ta remarque m'a bien fait rire et j'en rigole encore! c'est vrai que ça sent la flemme ! Mais malgré tout, ceux sont ces petits problèmes qui me font peut-être encore le mieux progresser.

Précisément le "enablevents" de notre ami gFZT82 reste pour moi mysterieux malgré ce que je viens de trouver sur le net et qui se rapproche fort de notre procédure.
Citation:
Dans quel cas faut-il utiliser EnableEvents=False dans une macro ?

Imagine que tu veuilles déclencher une macro qui incrémente un compteur en A1 lorsque tu changes une valeur sur la même feuille.
Pour automatiser lachose, tu mets ta macro dans l'événement worksheet_change() de la feuille en question.

Le problème c'est que lorsque tu incrémentes ton compteur en A1, cela déclenche la macro qui boucle donc sans fin.
L'instruction
Application.EnableEvents=False
te permet de désactiver temporairement les macros événementielles.
Mais il ne faut pas oublier de réactiver les événements en fin de macro !

Code:

1 2 3 Application.EnableEvents=False range("A1")=range("A1")+1 Application.EnableEvents=True
je crois comprendre que les procédures événementielles tournent sans cesse justement pour capter l’événement dès qu'il se produit.

Mais pourquoi worksheet_change bouclerait-elle sans fin. Si au prochain passage la cellule n'est pas une nouvelle fois modifiée, elle n'a aucune raison de s'activer.
C'est vrai que la célérité de l'ordinateur est autrement plus grande que la mienne lorsque je modifie une cellule. la procédure a sans doute bouclé une multitude de fois dans le même temps.
- est-ce la raison d'être de enableevents ?
- Faut-il, tout simplement, l'introduire systématiquement à l’intérieur de toute procédure évènementielle sans se poser de questions ?

j'ai mis ma trouvaille dans code car je n'ai toujours pas trouvé sur quelle balise il fallait cliquer pour "citation"

Cordialement,
05/10/2013, 19h41
Marc-L

Salut Paul !

Citation:

Envoyé par nibledispo

Faut-il, tout simplement, l'introduire systématiquement à l’intérieur de toute procédure évènementielle sans se poser de questions ?

Désactiver la détection d'évènement n'a lieu d'être au sein de la procédure de l'évènement de cellule modifiée
si cette procédure modifie au moins une cellule, peu importe si c'est la même ou pas …

C'est bien le cas de cette demande. Par exemple dans mon code en ligne n°4,
la cellule modifiée ayant déclenchée l'évènement est de nouveau modifiée au sein de la procédure de l'évènement …

D'où l'intérêt du mode pas à pas (via la touche F8) pour suivre - voir comprendre - la progression du code en cas d'erreur !

Voir 40 message(s) de cette discussion en une page