Entrer un temps style 01:12:45 sans devoir saisir les deux point
Résolu
Jrm
-
Jrm -
Jrm -
Bonjour,
Je souhaiterai entrer un temps
exemple : 1h12min45secc
De la façon suivante 011245 mais qu'il s'affiche automatiquement sous la forme 01:12:45
Je vous avoue que je coince un peu, le faire en VBA ou alors avec une formule ? :-(
Merci de vote aide
Je souhaiterai entrer un temps
exemple : 1h12min45secc
De la façon suivante 011245 mais qu'il s'affiche automatiquement sous la forme 01:12:45
Je vous avoue que je coince un peu, le faire en VBA ou alors avec une formule ? :-(
Merci de vote aide
3 réponses
-
Bonjour,
Par formule, tu peux t'inspirer de ça. https://answers.microsoft.com/en-us/office/forum/office_2007-excel/how-can-i-convert-from-hhmmss-to-hhmmss-in-excel/0506100b-9ab8-465d-a858-118abac522a2
En VBA, ça doit être faisable, pas très compliqué via un UserForm mais a priori ralentit le classeur si saisie directe dans les cellules.
A+ -
Bonjour,
Voilà en vba, a mettre dans la feuille concernée, pour la cellule A1, a adapter:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then MonPremierTableau End If End Sub Sub MonPremierTableau() 'Définit la taille du tableau et le type de données. Dim NomTableau(2) As String Dim i As Integer Dim chaine As String chaine = Range("A1").Value If Len(chaine) = 5 Then 'Alimente les éléments du tableau NomTableau(0) = Left(chaine, 1) NomTableau(1) = Mid(chaine, 2, 2) NomTableau(2) = Right(chaine, 2) Else 'Alimente les éléments du tableau NomTableau(0) = Left(chaine, 2) NomTableau(1) = Mid(chaine, 3, 2) NomTableau(2) = Right(chaine, 2) End If Range("A1").Value = NomTableau(0) & ":" & NomTableau(1) & ":" & NomTableau(2) End Sub
J'ai été obligé de faire 2 options, car 0 en premier est supprimé
-
