fonction time vba

bonsoir voilà mon probleme j'ai utiliser une fonction time dans une condition select case
et quand je la teste sur un pc elle marche par contre sur l'autre non
en fait elle converti l'heure en standard dans excel , et meme si je change le format en heure cela ne change rien
quelqu'un a t il deja rencontré ce problème.

voilà une partie de mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'selectionner la cellule qui va recevoir l'heure Range("A1").Value = (time)   'appliquer le traitement 'dans le cas ou l'heure serait comprise entre les différentes valeurs ci dessous Select Case (time) Case 0 To 6 MsgBox ("Bonne nuit") Case 8 To 11 MsgBox ("Bonjour") Case 12 To 13 MsgBox ("Bon app") Case 14 To 19 MsgBox ("Bon après-midi") Case Else MsgBox ("Bonsoir") End Select   End Sub

---

merci ;)

Bonjour.

Essaies :

Code:

---

Range("A1").Value = Format(Time(),"hh")

---

Bon courage,

PGZ

Bonjour,

utilise tout simplement :

Code:

---

Select Case Hour(Now)

---

Citation:

---

Returns a Variant (Integer) specifying a whole number between 0 and 23, inclusive, representing the hour of the day.

---

Citation:

---

Dim MyTime, MyHour
MyTime = #4:35:17 PM# ' Assign a time.
MyHour = Hour(MyTime) ' MyHour contains 16.

---

super merci beaucoup surtout l'info sur le type de variable c'est plus clair maintenant
merci encore