1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
| Private Sub But_Annu_Click()
'Action réalisée lors d'un click sur le bouton annuler
Dim rep As Integer
rep = MsgBox("Etes-vous sûr de vouloir quitter l'application ?", vbYesNo, "Fermeture")
If rep = vbYes Then
Unload Me
Else
End If
End Sub
Private Sub But_Prec_Click()
'Action réalisée lors d'un click sur le bouton précédent
Me.Hide
USF_prop1.Show
End Sub
Private Sub BUT_suiv_Click()
'Action réalisée lors d'un click sur le bouton suivant
Call Module_conditions.condition_demarche
Call Module_fiche_bilan.ecriture_bilan
Me.Hide
USF_prop3.Show
End Sub
Private Sub CB_soll_connues_Click()
'Code permettant d'éviter d'avoir les deux checkboxs cochées en même temps
If CB_soll_connues.Value = True Then
CB_soll_inconnues.Value = False
Else
CB_soll_inconnues.Value = True
End If
End Sub
Private Sub CB_soll_inconnues_Click()
'Code permettant d'éviter d'avoir les deux checkboxs cochées en même temps
If CB_soll_inconnues.Value = True Then
CB_soll_connues.Value = False
Else
CB_soll_connues.Value = True
End If
End Sub
Private Sub UserForm_Activate()
'Checkbox1 cochée par défaut à l'activation du userform
CB_soll_connues.Value = True
End Sub |
Partager