je voudrais saisir dans une cellule 1015 pour afficher 10:15 comme heure
mais je n'arrive pas avec le format personnalisé à le faire
j'ai mis h:mm et cela me donne 11/10/1902 00:00:00
merci de votre aide
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
Caetera
"Philippe" a écrit dans le message de news: O5nMj%
je voudrais saisir dans une cellule 1015 pour afficher 10:15 comme heure mais je n'arrive pas avec le format personnalisé à le faire j'ai mis h:mm et cela me donne 11/10/1902 00:00:00
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) x = Format(Target, "0000") Application.EnableEvents = False Target.Value = Left(x, 2) & ":" & Right(x, 2) Target.NumberFormat = "[hh]:mm" Application.EnableEvents = True End Sub
PS : il sera bon de limiter le champ d'application ainsi que mettre quelque tests de validité de saisie
Etc
"Philippe" <phdupin@free.fr> a écrit dans le message de news:
O5nMj%23vXKHA.1372@TK2MSFTNGP02.phx.gbl...
je voudrais saisir dans une cellule 1015 pour afficher 10:15 comme heure mais
je n'arrive pas avec le format personnalisé à le faire
j'ai mis h:mm et cela me donne 11/10/1902 00:00:00
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
x = Format(Target, "0000")
Application.EnableEvents = False
Target.Value = Left(x, 2) & ":" & Right(x, 2)
Target.NumberFormat = "[hh]:mm"
Application.EnableEvents = True
End Sub
PS : il sera bon de limiter le champ d'application ainsi que mettre quelque
tests de validité de saisie
"Philippe" a écrit dans le message de news: O5nMj%
je voudrais saisir dans une cellule 1015 pour afficher 10:15 comme heure mais je n'arrive pas avec le format personnalisé à le faire j'ai mis h:mm et cela me donne 11/10/1902 00:00:00
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) x = Format(Target, "0000") Application.EnableEvents = False Target.Value = Left(x, 2) & ":" & Right(x, 2) Target.NumberFormat = "[hh]:mm" Application.EnableEvents = True End Sub
PS : il sera bon de limiter le champ d'application ainsi que mettre quelque tests de validité de saisie
Etc
Solutions-xl
Est ce vraiment génant de saisir 10:15 ! Qd tu saisis 1015 c'et une valeur et le format ne fait qu'interpréter cette valeur Sinon il faudra faire une macro evennmentielle Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then Application.EnableEvents = False Target = CDate(Mid(Target, 1, 2) & ":" & Mid(Target, 3, 2) & ": 00") Application.EnableEvents = true End If End Sub
Philippe www.solutions-xl.com
On 6 nov, 17:38, "Philippe" wrote:
bonjour
je voudrais saisir dans une cellule 1015 pour afficher 10:15 comme heure mais je n'arrive pas avec le format personnalisé à le faire j'ai mis h:mm et cela me donne 11/10/1902 00:00:00 merci de votre aide
Est ce vraiment génant de saisir 10:15 !
Qd tu saisis 1015 c'et une valeur et le format ne fait qu'interpréter
cette valeur
Sinon il faudra faire une macro evennmentielle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Application.EnableEvents = False
Target = CDate(Mid(Target, 1, 2) & ":" & Mid(Target, 3, 2) & ":
00")
Application.EnableEvents = true
End If
End Sub
Philippe
www.solutions-xl.com
On 6 nov, 17:38, "Philippe" <phdu...@free.fr> wrote:
bonjour
je voudrais saisir dans une cellule 1015 pour afficher 10:15 comme heure
mais je n'arrive pas avec le format personnalisé à le faire
j'ai mis h:mm et cela me donne 11/10/1902 00:00:00
merci de votre aide
Est ce vraiment génant de saisir 10:15 ! Qd tu saisis 1015 c'et une valeur et le format ne fait qu'interpréter cette valeur Sinon il faudra faire une macro evennmentielle Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then Application.EnableEvents = False Target = CDate(Mid(Target, 1, 2) & ":" & Mid(Target, 3, 2) & ": 00") Application.EnableEvents = true End If End Sub
Philippe www.solutions-xl.com
On 6 nov, 17:38, "Philippe" wrote:
bonjour
je voudrais saisir dans une cellule 1015 pour afficher 10:15 comme heure mais je n'arrive pas avec le format personnalisé à le faire j'ai mis h:mm et cela me donne 11/10/1902 00:00:00 merci de votre aide