Discussion :

[prisme7]

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 :

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
'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

[pgz]

Bonjour.

Essaies :

Code :

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

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

Bon courage,

PGZ

[ucfoutu]

Bonjour,

utilise tout simplement :

Code :

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

Select Case Hour(Now)

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

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

[prisme7]

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