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

CheckBox coché alors info vers TextBox

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 !

koukou40

XLDnaute Occasionnel
Bonsoir,
Je suis nouveau 😀 sur ce forum que je découvre avec émerveillement car il ruisselle d'infos très très utiles pour un débutant comme moi.
Cependant voici mon souci : dans un USF, j'ai placé 3 CheckBox (nommés respectivement "4H", "12H" et "20H"), et un TextBox (nommé Début). Si je coche sur un checkbox, j'aimerai que dans le textbox s'affiche soit biensûr "4H" ou "12H ou "20H", quelle est la solution ?

D'avance merci et à bientôt...pour d'autres questions !!!😉

koukou40
 
Re : CheckBox coché alors info vers TextBox

bonsoir a tous, koukou40

sub checkbox1_click()
if checkbox1.value=true then textbox1.value="4H"
end sub

sub checkbox2_click()
if checkbox2.value=true then textbox1.value="12H"
end sub

sub checkbox3_click()
if checkbox3.value=true then textbox1.value="20H"
end sub

bonne continuation
 
Re : CheckBox coché alors info vers TextBox

Bonsoir,
je pense qu'il vaudrait mieux que tu utilises les OptionButton
tu ne peux en sélectionner qu'un dans ton usf, ou dans une frame, et ensuite dans le code de tes Opt :

Code:
Private Sub OptionButton1_Click()
Début = OptionButton1.Caption
End Sub
Private Sub OptionButton2_Click()
Début = OptionButton2.Caption
End Sub
Private Sub OptionButton3_Click()
Début = OptionButton3.Caption
End Sub

un fichier exemple
 

Pièces jointes

Dernière édition:
Re : CheckBox coché alors info vers TextBox

re pour completer une solution de plus qui elimine les confusions

sub checkbox1_click()
if checkbox1.value=true then
checkbox2.value=false
checkbox3.value=false
textbox1.value="4H"
end if
end sub

sub checkbox2_click()
if checkbox2.value=true then
checkbox1.value=false
checkbox3.value=false
textbox1.value="12H"
end if
end sub

sub checkbox3_click()
if checkbox3.value=true then
checkbox1.value=false
checkbox2.value=false
textbox1.value="20H"
end if
end sub


ceci a pour effet quand tu cliques sur une checkbox, ca efface les deux autres.
mais tu as interret d'utiliser les optionbutton
bonne continuation
 
- 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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…