Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir, Voici la réponse de AV , il n'y a pas si longtemps sur ce sujet: '--------- Pour des saisies en colonne A et sans séparateur ! Exemples 11005 pour signifier 01:10:05 1025 pour signifier 00:10:25 130 pour signifier 00:01:30 etc...
Dans le module de la feuille Private Sub Worksheet_Change(ByVal zz As Excel.Range) If IsNumeric(zz.Value) And zz.Value > 1 Then x = zz.Value zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100) zz.NumberFormat = "[hh]:mm:ss" End If End Sub
AV '------------- Salutations JJ
"Tolle" a écrit dans le message de news:446b4144$0$12331$
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour qu'ils s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter] devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
Merci pour votre aide Tolle
Bonsoir,
Voici la réponse de AV , il n'y a pas si longtemps sur ce sujet:
'---------
Pour des saisies en colonne A et sans séparateur !
Exemples
11005 pour signifier 01:10:05
1025 pour signifier 00:10:25
130 pour signifier 00:01:30
etc...
Dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
x = zz.Value
zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100)
zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub
AV
'-------------
Salutations
JJ
"Tolle" <tolle.lege@latino.be> a écrit dans le message de
news:446b4144$0$12331$ba620e4c@news.skynet.be...
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour
qu'ils s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter]
devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
Bonsoir, Voici la réponse de AV , il n'y a pas si longtemps sur ce sujet: '--------- Pour des saisies en colonne A et sans séparateur ! Exemples 11005 pour signifier 01:10:05 1025 pour signifier 00:10:25 130 pour signifier 00:01:30 etc...
Dans le module de la feuille Private Sub Worksheet_Change(ByVal zz As Excel.Range) If IsNumeric(zz.Value) And zz.Value > 1 Then x = zz.Value zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100) zz.NumberFormat = "[hh]:mm:ss" End If End Sub
AV '------------- Salutations JJ
"Tolle" a écrit dans le message de news:446b4144$0$12331$
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour qu'ils s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter] devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
Merci pour votre aide Tolle
JLuc
*Bonjour Tolle*, Le plus simple restant de saisir : 12:34
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour qu'ils s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter] devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
Merci pour votre aide Tolle
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Tolle*,
Le plus simple restant de saisir :
12:34
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour qu'ils
s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter]
devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
"Tolle" a écrit dans le message de news: 446b4144$0$12331$
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour qu'ils s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter] devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
Merci pour votre aide Tolle
Tolle
Merci "Jacky" pour la réponse malheureusement trop compliquée pour moi qui ne suis qu'un usagé occasionnel. Tolle
"Jacky" a écrit dans le message de news:
Bonsoir, Voici la réponse de AV , il n'y a pas si longtemps sur ce sujet: '--------- Pour des saisies en colonne A et sans séparateur ! Exemples 11005 pour signifier 01:10:05 1025 pour signifier 00:10:25 130 pour signifier 00:01:30 etc...
Dans le module de la feuille Private Sub Worksheet_Change(ByVal zz As Excel.Range) If IsNumeric(zz.Value) And zz.Value > 1 Then x = zz.Value zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100) zz.NumberFormat = "[hh]:mm:ss" End If End Sub
AV '------------- Salutations JJ
"Tolle" a écrit dans le message de news:446b4144$0$12331$
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour qu'ils s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter] devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
Merci pour votre aide Tolle
Merci "Jacky" pour la réponse malheureusement trop compliquée pour moi qui
ne suis qu'un usagé occasionnel.
Tolle
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
uJS8hfceGHA.1264@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Voici la réponse de AV , il n'y a pas si longtemps sur ce sujet:
'---------
Pour des saisies en colonne A et sans séparateur !
Exemples
11005 pour signifier 01:10:05
1025 pour signifier 00:10:25
130 pour signifier 00:01:30
etc...
Dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
x = zz.Value
zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100)
zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub
AV
'-------------
Salutations
JJ
"Tolle" <tolle.lege@latino.be> a écrit dans le message de
news:446b4144$0$12331$ba620e4c@news.skynet.be...
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour
qu'ils s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter]
devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
Merci "Jacky" pour la réponse malheureusement trop compliquée pour moi qui ne suis qu'un usagé occasionnel. Tolle
"Jacky" a écrit dans le message de news:
Bonsoir, Voici la réponse de AV , il n'y a pas si longtemps sur ce sujet: '--------- Pour des saisies en colonne A et sans séparateur ! Exemples 11005 pour signifier 01:10:05 1025 pour signifier 00:10:25 130 pour signifier 00:01:30 etc...
Dans le module de la feuille Private Sub Worksheet_Change(ByVal zz As Excel.Range) If IsNumeric(zz.Value) And zz.Value > 1 Then x = zz.Value zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100) zz.NumberFormat = "[hh]:mm:ss" End If End Sub
AV '------------- Salutations JJ
"Tolle" a écrit dans le message de news:446b4144$0$12331$
Bonjour,
Lorsque l'on tape 4 chiffres dans une cellule comment s'y prendre pour qu'ils s'affichent en forme d'heure ?
Ex. : le nombre 1234 [enter] devrait donner 12:34
Par la fonction Format de cellule, heures, je n'y parviens pas.
