Private Sub CommandButton1_Click() 'bouton"ok"
Unload userformx
Select Case Me.lblNiv3.Caption 'agit en fonction de la liste déroulante
Case "1"
userform1.checkboxa.value=true
userform1.Show ' ici l'userform1 s'ouvre mais comment faire pour que checkbox a soit activé?
Case "2"
userform1.checkboxb.value=true
userform1.Show ' idem pour le checkbox b
Case "3"
userform1.checkboxc.value=true
userform1.Show ' idem pour le checkbox c
End Select
End Sub