Bonjour le forum,
J'ai un problème qui, en apparence, est simple à résoudre, mais en apparence seulement !
En effet, je suis en train de créer un UserForm avec différents champs qui s'alimentent automatiquement et je sèche sur l'horaire de travail, au format 39:00:00.
Je suis allé regarder sur des forums, j'ai posté ailleurs, j'ai utilisé l'enregistreur de macro ... et ça ne fonctionne pas.
Pour un horaire de travail à 39:00:00, la cellule affiche 1,625.
A l'heure actuelle, j'ai ce code, qui paraît très logique :
Private Sub horaire_Change()
Dim Heure
If Len(Horaire.Value) = 6 Then
Horaire.Value = Format(Horaire.Value, "00:00:00")
End If
End Sub
... et qui ne marche pas.
Je joins le fichier test.
Si quelqu'un peut y regarder ...
Merci d'avance.
Cordialement.
J'ai un problème qui, en apparence, est simple à résoudre, mais en apparence seulement !
En effet, je suis en train de créer un UserForm avec différents champs qui s'alimentent automatiquement et je sèche sur l'horaire de travail, au format 39:00:00.
Je suis allé regarder sur des forums, j'ai posté ailleurs, j'ai utilisé l'enregistreur de macro ... et ça ne fonctionne pas.
Pour un horaire de travail à 39:00:00, la cellule affiche 1,625.
A l'heure actuelle, j'ai ce code, qui paraît très logique :
Private Sub horaire_Change()
Dim Heure
If Len(Horaire.Value) = 6 Then
Horaire.Value = Format(Horaire.Value, "00:00:00")
End If
End Sub
... et qui ne marche pas.
Je joins le fichier test.
Si quelqu'un peut y regarder ...
Merci d'avance.
Cordialement.