Discussion :

[fmailys]

Bonjour

A partir d'un chiffre décimale, exemple 12.50 en A1, je souhaiterais à l'aide d'une vba, le convertir en 12:50
Dans le code où on ne saisir pas les chiffres en centièmes, j'ai une msg box qui s'affiche avec le message"merci de mettre les heures en centièmes"

Merci de votre aide

Cdt

[Philippe Tulliez]

Bonjour,
La fonction TEMPS répond à ton problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=TEMPS(ENT(A1);100*(A1-ENT(A1));1)

Je te suggère la lecture de ce didacticiel Utiliser les fonctions Date et Heure sous Excel 2007 et tout particulièrement ce chapitre

[Kimy_Ire]

J'ai cherché rapidement sur internet :
http://boisgontierjacques.free.fr/pa...orkSheetChange
=> Dans "Saisie d'une heure avec ou sans le caractère :" télécharge le fichier "SaisieHeureSans2Points". Après quelque modif', cela répondra peut-être à tes attentes.

[gFZT82]

Bonjour,

Je n’ai pas bien compris.
Tu semble vouloir convertir une heure exprimée en décimal en une heure exprimée en sexagésimal.
Si c’est le cas, 12.50 n’équivaut pas à 12:50 mais à 12:30.

Cordialement.

[Philippe Tulliez]

Bonjour,

Bonjour,
Je n’ai pas bien compris.
Tu semble vouloir convertir une heure exprimée en décimal en une heure exprimée en sexagésimal.
Si c’est le cas, 12.50 n’équivaut pas à 12:50 mais à 12:30.
Cordialement.

Nous sommes bien d'accord là-dessus mais je pense que c'est une conversion à effectuer suite à un encodage décimal où l'on interprète 12,30 comme étant 12:30, 11,15 comme 11:15, 8,05 comme 08:05 et dans ce cas là on peut faire la conversion avec cette solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=TEMPS(ENT(A1);100*(A1-ENT(A1));1)

[Fluch]

Hello, si joint quelques lignes simples répondant à ton attente.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
For T = 1 To Len(Cells(1, 1)) 'Boucle pour chercher la position du point (.)
    If Mid(Cells(1, 1), T, 1) = "." Then  'recherche du point de gauche à droite de la chaine
        Cells(1, 1) = Left(Cells(1, 1), T - 1) & ":" & Right(Cells(1, 1), Len(Cells(1, 1)) - T) 'Changement du . en :
        GoTo fin
    End If
Next T
fin:
End Sub

Cela fonctionne sur la cellule A1
A toi de l'adapter à ton besoin