Option Explicit
Private Sub MultiPage1_Change()
End Sub
Private Sub UserForm_Initialize()
UserForm1.Label1.Caption = ""
UserForm1.Label2.Caption = ""
UserForm1.Label3.Caption = ""
UserForm1.Label4.Caption = ""
UserForm1.N1 = ""
UserForm1.P1 = ""
UserForm1.N2 = ""
UserForm1.P2 = ""
UserForm1.Label11.Caption = ""
UserForm1.Label12.Caption = ""
UserForm1.Label18.Caption = ""
UserForm1.Label10.Caption = ""
UserForm1.Eff1 = ""
UserForm1.Note1 = ""
UserForm1.Eff2 = ""
UserForm1.Note2 = ""
End Sub
'POURCENTAGES'
Private Sub CommandButton1_Click()
Call TestSignifPourcent
End Sub
Private Sub N1_Change()Label1.Caption = Range(N1.Text).Value
End Sub
Private Sub P1_Change()
Label2.Caption = Range(P1.Text).Value * 100 & "%"
End Sub
Private Sub N2_Change()
Label3.Caption = Range(N2.Text).Value
End Sub
Private Sub P2_Change()
Label4.Caption = Range(P2.Text).Value * 100 & "%"
End Sub
'NOTES'
Private Sub CommandButton2_Click()
Call TestSignifNote
End Sub
Private Sub Eff1_Change()
Label11.Caption = Range(Eff1.Text).Value
End Sub
Private Sub Note1_Change()
Label12.Caption = Range(Note1.Text).Value * 100 & "%"
End Sub
Private Sub Eff2_Change()
Label18.Caption = Range(Eff2.Text).Value
End Sub
Private Sub Note2_Change()
Label10.Caption = Range(Note2.Text).Value * 100 & "%"
End Sub