OVH Cloud OVH Cloud

écrire des heures sans les 2 points ?

7 réponses
Avatar
Thierry
Bonjour,
J'aimerais, dans une seul feuille excel, taper des heures dans des cellules,
mais sans taper les deux points :
Exemple
1) je tape dans A1 : 1025
2) je souhaite que l'ordi affiche dans A1 : 10:25
Or, A1 affiche 00.00 et dans la zone formule s'affiche 21.10.1902 00:00:00
et le format est "hh:mm")

7 réponses

Avatar
andre.charrier
Bonjour Thierry,

Il faut aller dans les paramètres régionnaux et à Heure mettre . ce qui est
plus facile à taper.
N'oublie pas de faire format cellule et choisir heure.
André
<
<
<
"Thierry" a écrit dans le message de
news:4147239e$
Bonjour,
J'aimerais, dans une seul feuille excel, taper des heures dans des
cellules,

mais sans taper les deux points :
Exemple
1) je tape dans A1 : 1025
2) je souhaite que l'ordi affiche dans A1 : 10:25
Or, A1 affiche 00.00 et dans la zone formule s'affiche 21.10.1902 00:00:00
et le format est "hh:mm")




Avatar
EMiLe
Si tu n'a pas besoin de faire des calculs tu peux tjs mettre clic droit>
format de cellule>nombre>personnalisé
00":"00

Aussinon, je laisse faire les pros ;)

EMiLe



Bonjour,
J'aimerais, dans une seul feuille excel, taper des heures dans des cellules,
mais sans taper les deux points :
Exemple
1) je tape dans A1 : 1025
2) je souhaite que l'ordi affiche dans A1 : 10:25
Or, A1 affiche 00.00 et dans la zone formule s'affiche 21.10.1902 00:00:00
et le format est "hh:mm")




Avatar
AV
J'aimerais, dans une seul feuille excel, taper des heures dans des cellules,
mais sans taper les deux points :


Pour A1 de la feuille active
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
x = Format(zz, "0000")
zz.Value = Left(x, 2) & ":" & Right(x, 2)
Application.EnableEvents = True
End Sub

AV

Avatar
ru-th
Salut

à mettre dans le module de la feuille concerné, les cellules étant en format
standard dans la colonne B
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Target = Left(Target.Text, 2) & ":" &
Right(Target.Text, 2)
End Sub

mais, je doute du bien-fondé de cette opération
je préfére taper 1: pour 01:00 que 0100

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Thierry" a écrit dans le message de
news:4147239e$
Bonjour,
J'aimerais, dans une seul feuille excel, taper des heures dans des
cellules,

mais sans taper les deux points :
Exemple
1) je tape dans A1 : 1025
2) je souhaite que l'ordi affiche dans A1 : 10:25
Or, A1 affiche 00.00 et dans la zone formule s'affiche 21.10.1902 00:00:00
et le format est "hh:mm")




Avatar
Thierry K
Bonsoir à tous

moi j'utilise ..(2 fois le point) et en correction automatique j'ai mis
remplacer .. (2 points) par :
ça permet d'utiliser le pavé numérique et ne pas changer
majuscule/minuscule.

Thierry k


"Thierry" a écrit dans le message de
news:4147239e$
Bonjour,
J'aimerais, dans une seul feuille excel, taper des heures dans des
cellules,

mais sans taper les deux points :
Exemple
1) je tape dans A1 : 1025
2) je souhaite que l'ordi affiche dans A1 : 10:25
Or, A1 affiche 00.00 et dans la zone formule s'affiche 21.10.1902 00:00:00
et le format est "hh:mm")




Avatar
davbook
Le mardi 14 Septembre 2004 à 19:00 par Thierry :
Bonjour,
J'aimerais, dans une seul feuille excel, taper des heures dans des cellules,
mais sans taper les deux points :
Exemple
1) je tape dans A1 : 1025
2) je souhaite que l'ordi affiche dans A1 : 10:25
Or, A1 affiche 00.00 et dans la zone formule s'affiche 21.10.1902 00:00:00
et le format est "hh:mm")
allez je vous donne mon truc
dans le module thisworkbook vous mettez :
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Cells.Replace What:="²", Replacement:=":"
End Sub
pas plus, du coup quand vous tapez le ² il est remplacé par : et hop, ca change la vie (en tout cas sur un pc portable)
Avatar
uraeus21
Le mardi 14 Septembre 2004 à 19:47 par AV :
J'aimerais, dans une seul feuille excel, taper des heures dans des cellules,
mais sans taper les deux points :
Pour A1 de la feuille active
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
x = Format(zz, "0000")
zz.Value = Left(x, 2) & ":" & Right(x, 2)
Application.EnableEvents = True
End Sub
AV
Bonjour,
Si je veux forcer le format heure sans taper le " : " mais sur une plage de plusieurs cellules.
Et non sur une seule !
Pouvez-vous me dire comment faire ?
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
x = Format(zz, "0000")
zz.Value = Left(x, 2) & ":" & Right(x, 2)
Application.EnableEvents = True
End Sub