OVH Cloud OVH Cloud

if heure

2 réponses
Avatar
Titus
Bonjour, j'ai créer un tableau je souhaite qu'en appuyant sur un bouton,
si il est entre 8h00 et 9h00, le chiffre 1 aille dans la cellule B2 de la
feuille alpha
si il est entre 9h00 et 10h00, le chiffre 1 aille dans la cellule D2 de la
feuille alpha
si il est entre 10h00 et 11h00, le chiffre 1 aille dans la cellule F2 de la
feuille alpha
Merci
Titus

2 réponses

Avatar
Asterix
bonjour

peut etre ce petit programme

Sub clicbt()
Dim h As Byte
h = Hour(Now)
Select Case h
Case 8
Sheets("alpha").Range("B2").Value = 1
Case 9
Sheets("alpha").Range("D2").Value = 1
Case 10
Sheets("alpha").Range("F2").Value = 1
End Select
End Sub

bon courage

Asterix
Avatar
Titus
Merci beaucoup Asterix
Titus

"Asterix" a écrit dans le message de
news:%23dBfG%
bonjour

peut etre ce petit programme

Sub clicbt()
Dim h As Byte
h = Hour(Now)
Select Case h
Case 8
Sheets("alpha").Range("B2").Value = 1
Case 9
Sheets("alpha").Range("D2").Value = 1
Case 10
Sheets("alpha").Range("F2").Value = 1
End Select
End Sub

bon courage

Asterix