Discussion :

[Sergio33600]

Bonsoir le forum,

J'ai cherché dans les sujets déjà traités mais je n'ai pas trouvé de solution à mon problème.
Je cherche un code VBA qui me permettrait de transformer une saisie de l'heure sous forme décimale, sous la forme hh "h" mm.
Par exemple, si je tape dans la cellule (B20) 9.15 cela se transforme en 9 h 15 ou si je tape 9.25 cela se transforme en 9 h 25.
Dans ma feuille Excel cela s'appliquerait aux cellules ("B18:B68").
Si quelqu'un a la solution ...
Merci.

[anasecu]

Bonsoir,

Pour saisir l'heure sur excel le séparateur implicite est ':'.
Si tu veux utiliser un autre séparateur comme le '.' dans ton cas il faut coder cette variation en VBA.
Si tu cherches un tant soit peu, tu vas trouver de multiples variantes
mais les soucis que cela va te procurer nécessite-t-il cet investissement ?

Si tu veux, tu peux aussi faire en sorte que ta saisie de '.' se transforme en ':' par correction automatique.
Personnellement lorsque je saisis '..' j'obtiens ':' : ce n'est pas illogique ?

[Invité]

Bonjour,
Dans ce genre de question, ce qui m'interpelle, c'est la finalité!

Mettre en place un usine a gaze pour faciliter la saisie aux utilisateurs et demain poser la question pourquoi je ne peux pas faire de somme avec mes valeurs!

As tu vraiment besoin de cela?

[unparia]

Bonjour Robert
Il est toujours possible de mettre en place un tel mécanisme qui préserverait la "chèvre" (la saisie) et le "chou" (la valeur réelle de la saisie). Cela nécessiterait l'utilisation d'un tremplin, sous telle ou telle autre forme au selection_change :
- soit par saisie faite sur une textbox "flottante" se superposant à la cellule à saisir
- soit par modification temporaire du format de la cellule
Puis transposition de la saisie faite et au besoin (cas de la modification du format) rétablissement du format.
Mais ce serait (comme tu le dis clairement) une usine à gaz source de lourdeur et ni justifiée, ni raisonnable.
Amitiés

[Sergio33600]

Bonjour à tous,

Merci pour vos réponses, qui ne m'aident pas vraiment, mais je ne pensais pas que ma demande serait la mise en place d'une usine à gaz.

J'ai un classeur Excel, avec une quinzaine d'onglets et dans chacun de ces onglets je dois rentrer l'heure de départ pour tous les participants à une compétition.
Pour éviter de taper cette heure sous la forme 9 h 28, par exemple, il me semblait plus simple et plus rapide de taper 9.28 et que cela se transforme en 9 h 28.
Je n'ai absolument pas besoin de faire la somme des heures, c'est juste pour simplifier la saisie.

J'ai bien cherché dans format cellule, mais je n'ais pas trouvé.

[unparia]

Merci pour vos réponses, qui ne m'aident pas vraiment, mais je ne pensais pas que ma demande serait la mise en place d'une usine à gaz.
.....
J'ai bien cherché dans format cellule, mais je n'ais pas trouvé.

je t'ai alors répondu.
Je ne connais pas d'autres solutions que celle de l'utilisation d'un tremplin et cette utilisation est à elle seule une petite usine à gaz.
on en voit mal une justification.

[Docmarti]

Bonjour

Si les cellules sont au format Texte, ca peut aller.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Intersect(Target, Range("B18:B68")) Is Nothing Then
ElseIf Target.Count = 1 Then
 
 ar = Target.Value
 ar = Replace(ar, ",", ":")
 If IsDate(ar) Then
  heure = Replace(ar, ":", " h ")
  Application.EnableEvents = False
  Target.Value = heure
  Application.EnableEvents = True
 End If
End If
 
End Sub

[Sergio33600]

Bonjour Docmarti,

Merci beaucoup pour ta réponse. La solution proposée qui fonctionne parfaitement.
J'ai légèrement modifié ton code pour pouvoir utiliser soit la virgule, soit le point comme séparateur de décimales.
Très bonne soirée.

[Docmarti]

Excellent.

Et si tu ne veux pas avoir a te preoccuper de t'assurer que le format de cellule est Texte, ajoute ce code :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B18:B68")) Is Nothing Then
ElseIf Target.Count = 1 Then
 'Format Texte
 Target.NumberFormat = "@"
End If
End Sub

[Sergio33600]

Bonjour Docmarti,

Merci beaucoup pour ce code.

Très bonne journée.