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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
Merci beaucoup Asterix
Titus
"Asterix" <asterix@oreka.com> a écrit dans le message de
news:%23dBfG%23K7DHA.2812@TK2MSFTNGP11.phx.gbl...
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
"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