D
denis
Guest
Bonjour
Avec ce petit prog. je choisi le matin de 11h00 à 14h00 ou le soir de 18h00 à 22h00.
Mon prob comment aller sur la feuilMidi ou la feuilSoir juste en clic sur Option1 ou 2
Merci d'avance
Private Sub OptionButton1_Click()
Dim Heure As Byte, Minute As Byte
For Heure = 11 To 14
For Minute = 0 To 50 Step 30
ComboBox14.AddItem Format(Heure, "00") & " h " & Format(Minute, "00")
ComboBox15.AddItem Format(Heure, "00") & " h " & Format(Minute, "00")
Next Minute
Next Heure
End Sub
Private Sub OptionButton2_Click()
Dim Heure As Byte, Minute As Byte
For Heure = 18 To 22
For Minute = 0 To 50 Step 30
ComboBox14.AddItem Format(Heure, "00") & " h " & Format(Minute, "00")
ComboBox15.AddItem Format(Heure, "00") & " h " & Format(Minute, "00")
Next Minute
Next Heure
End Sub
Avec ce petit prog. je choisi le matin de 11h00 à 14h00 ou le soir de 18h00 à 22h00.
Mon prob comment aller sur la feuilMidi ou la feuilSoir juste en clic sur Option1 ou 2
Merci d'avance
Private Sub OptionButton1_Click()
Dim Heure As Byte, Minute As Byte
For Heure = 11 To 14
For Minute = 0 To 50 Step 30
ComboBox14.AddItem Format(Heure, "00") & " h " & Format(Minute, "00")
ComboBox15.AddItem Format(Heure, "00") & " h " & Format(Minute, "00")
Next Minute
Next Heure
End Sub
Private Sub OptionButton2_Click()
Dim Heure As Byte, Minute As Byte
For Heure = 18 To 22
For Minute = 0 To 50 Step 30
ComboBox14.AddItem Format(Heure, "00") & " h " & Format(Minute, "00")
ComboBox15.AddItem Format(Heure, "00") & " h " & Format(Minute, "00")
Next Minute
Next Heure
End Sub