Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Choix de la feuille avec Option Button

  • Initiateur de la discussion Initiateur de la discussion denis
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
Re bonjour

J'ai trouvé avec :


Private Sub OptionButton1_Click()

Sheets("feuil2").Activate


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()

Sheets("feuil3").Activate


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


@ +
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
579
Réponses
3
Affichages
834
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…