If CheckBox1.Checked then formulaire.txtb1.Show() 'choisie la méthode qui va avec ton code formulaire.txtb.Visible = True else formulaire.txtb1.hide() 'choisie la méthode qui va avec ton code formulaire.txtb.Visible = False end if
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim i as integer For i = 1 to x ' x étant le nombre de checkboxs 'test si la checkbox est checker alors la textbox correspondante est visible If userform1.Controls("Chexckbox" & i).Value = True then formulaire.Controls("TextBox" & i).Visible=True 'Test si la checkbox n'est pas checker alors la textbox correspondant n'est pas pas visible If userform1.Controls("Chexckbox" & i).Value = False then formulaire.Controls("TextBox" & i).Visible=False Next i userform1 Unload
Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To x ' x étant le nombre de checkboxs 'test si la checkbox est checker alors la textbox correspondante est visible If UserForm1.Controls("Checkbox" & i).Value True Then formulaire.Controls("TextBox" & i).Visible True 'Test si la checkbox n'est pas checker alors la textbox correspondant n'est pas pas visible If UserForm1.Controls("Checkbox" & i).Value False Then formulaire.Controls("TextBox" & i).Visible False Next i Unload UserForm1 End Sub
If checkbox1.checked then my.settings.checked = true my.settings.save else my.settings.checked = false my.settings.save
form1.hide if my.settings.checked true then checkbox1.checked=true
my.settings.checked = false my.settings.save me.close
if checkbox1.checked=true then formulaire2.textbox1.visible=true else forumlaire2.textbox2.visible)false