Discussion :

[retraite83]

Bonjour,

Je tourne en rond sur un pb d'affichage d'heure en format anglais

J'ai une cellule "B5" définie en format personnalisé

Code :

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

hh:mm AM/PM

Dans la barre de formule sur la cellule la valeur est

Code :

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

00:30:00

Dans "B5" je récupère

Code :

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

12:30 AM

alors que je veux

Code :

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

00:30 AM

Mes tentatives aussi bien en format de cellule qu'en VBA tourne au fiasco.

Pouvez-vous me guider ?
merci

[Raccourcix]

Bonjour

je peux me tromper mais il me semble que dans le système AM/PM, 12:30 AM = minuit et trente minutes et 12:30 PM = midi et trente minutes
on n'utilise pas 00:30 AM ou 00:30 PM

la minute après 11:59 PM est 12:00 AM et celle après 12:59 AM est 1:00 AM

au moins avec 00:00 ... 23:59 on ne se trompe pas comme les Dupont/d dans Objectif Lune

Stéphane

[retraite83]

Bonjour,

je suis d'accord sur le principe mais j'ai besoin de mettre vraiment au format anglais c'est à dire pour 12h30 00:30 PM

C'est le format de ma cellule "B5" qui n'est pas bon mais malgré tous mes essais

[Pierre Fauconnier]

Salut

00:30 AM est erroné. Du coup, il est normal que tu ne puisses pas le récupérer avec les formats d'Excel. Ca me paraît logique.

A part une transformation en texte, je ne vois pas de solution

[retraite83]

bonjour

pour éclairer mes essais voici mon code

Code :

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

1
2
3
4
5
 
val = Format(infV.Range("C" & i), "hh:mm")
Call Module23.heure(val, hFR, hEN) ' heure FR ou EN
infV.Range("AA" & i) = hFR
infV.Range("AB" & i) = hEN

lors de l'appel du module 23 j'ai

Code :

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

val = 12:30

le module 23

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
17
18
19
Option Explicit
Sub heure(ByRef val As String, ByRef hFR As String, ByRef hEN As String)
 
Dim param As Worksheet, i As Integer, hhmm As String
 
Set param = Sheets("Param")
 
For i = 2 To 49
    hhmm = Format(param.Range("O" & i), "hh:mm")
    If val = hhmm Then
        hFR = param.Range("P" & i)
        hEN = param.Range("Q" & i)
        Exit Sub
    Else
    End If
Next i
hFR = ""
hEN = ""
End Sub

Param est une table avec les correspondances FR/EN par exemple pour val = 12:30 en P = 12h30 et en Q = 00.30 pm

au retour de la macro j'ai bien hFR =12h30 et hEN = 00:30 pm
La recherche en table est donc correcte. ensuite s'exécute les 2 dernières lignes de code

Code :

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

1
2
infV.Range("AA" & i) = hFR
infV.Range("AB" & i) = hEN

[/CODE]

AA est bien = 12h30
mais AB = 12:30 PM et non 00:30 pm (au passage pm est devenu PM en majuscule mais ce n'est pas gênant))

La cellule en AB a le format personnalisé h:mm AM/PM

Je me suis peut être bien compliqué la vie, il y surement plus simple

[retraite83]

J'ai résolu le pb par un morceau de code, mais pas très clean je trouve

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim l As String, r As String, h As String, ampm As String
l = Left(val, 2)
If l >= 12 Then
    l = l - 12
    ampm = " PM"
Else
    ampm = " AM"
End If
 
r = Mid(val, 3, 3)
h = "'" & l & r & ampm
infV.Range("AB" & i) = h

[Pierre Fauconnier]

Si ça fonctionne, c'est le principal.

Voici une autre proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
  Dim t As Date
  Dim r As Range
 
  For Each r In Range("a1:a5")
    If r.Value > 0.5 Then
      r.Value = "'" & Format(r.Value - 0.5, "hh:mm") & " PM"
    Else
      r.Value = "'" & Format(r.Value, "hh:mm") & " AM"
    End If
  Next
End Sub

A gauche, les heures de droite transformées en texte