forcer date heure en heure

[olive2b]

Bonjour le forum,

Tout d'abord, meilleurs voeux à tous ceux qui liront ce post !

Voici ma requête : lorsqu'on veut entrer une heure dans une cellule (formatée ainsi), il faut entrer "8:00". Je souhaiterais que si l'on tape "8", excel reconnaisse automatiquement qu'il s'agit de "8:00" et non de 0:00:00 le 8/01/1900... Y a t-il un moyen ?

Merci d'avance pour vos réponses et bonne journée

 

[Staple1600]

Re : forcer date heure en heure

Bonsoir

Oui, il existe un moyen.
Il s'appelle VBA.
Tu le pratiques ou pas ?

Si tu le pratiques, à mettre dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Target) Then
Target.Value = IIf(Len(Target) < 2, "0" & Left(Target, 1), Target) & ":00"
Target.NumberFormat = "h:mm;@"
End If
Application.EnableEvents = True
End Sub

Sinon, j'attends tes questions 😉

 

[Philippe68]

Re : forcer date heure en heure

Bonsoir,
Salut JM 😛

Il y a moyen de prendre qu'une plage de la feuille ou toute la feuille est concernée ?
Car si dans cette feuille on fait une opération dans un petit tableau avec des chiffres, le résultat va donner des heures (ainsi que les données du reste)

 

[Staple1600]

Re : forcer date heure en heure

Bonsoir Divers68

Ceci réponds à ta question
If Target.Count > 1 Then Exit Sub

(toujours ce problème de lunettes 😉 )

Sinon pour spécifier une plage de cellules précises (exemple ici : A1:C3)

If Not Intersect(Target,[A1:C3]) Is Nothing Then

 

[Philippe68]

Re : forcer date heure en heure

Re,

C'est pas une histoire de lunettes mais moi et les macros, c'est 2, alors j'essaye de comprendre...

If Target.Count > 1 Then Exit Sub voudrait dire...
si le nombre cible est >1 alors on sort de la macro ?

 

[Staple1600]

Re : forcer date heure en heure

Re

Vi tu as tout compris 😉
Si la sélection en cours (Target) contient plus d'une cellule alors Exit Sub

PS: J'ai rajouté une édition à mon précédent message.

 

[Philippe68]

Re : forcer date heure en heure

Re,

Oui donc si on veut avoir autre chose que des dates dans une plage, on rajoute ton edit 😉

je peux donc remettre mes 😎

bon moi dodo maintenant, dure journée demain 😡
Bonne nuit JM 🙄

Edit : et merci 😉

 

[Staple1600]

Re : forcer date heure en heure

Re

Non

Mon edition sert simplifier à spécifier sur quelle plage de cellules l'application du format horaire se fera (donc ici seulement en A1:C3 et pas ailleurs)

Je remets le code avec l'édition dedans (bien qu'il bogue légèrement sur les bords notamment en colonne A 😕😕)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:C3")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If IsNumeric(Target) Then
Application.EnableEvents = False
Target.Value = IIf(Len(Target) < 2, "0" & Left(Target, 1), Target) & ":00"
Target.NumberFormat = "h:mm;@"
Application.EnableEvents = True
End If
End Sub

 

[hoerwind]

Re : forcer date heure en heure

Bonjour, salut à vous tous,

La méthode que j'emploie :

Par le correcteur d'orthographe transformer .. en :
Saisir dans une cellule 8.. et valider.

 

[olive2b]

Re : forcer date heure en heure

bonjour Staple1600,

Merci pour ta réponse, oui je pratique vba et j'avais ce code dans mon fichier mais je voulais savoir s'il existait un moyen plus simple. Apparemment non mais c'est pas grave, je laisserai comme ça.
Merci encore et bonne journée