Private Sub btnprecedent_Click()
Ts = zdtTs
bPc = Me.cacPc
bPe = Me.cacPe
DN = zdtDN
Fa = zdtFa
Mf = zdtMf
Pc = zdtPc
Tc = zdtTc
Pe = zdtPe
PN = zdtPN
Ps = zdtPs
H = Me.zdtH
Ep = Me.zdtEp
Et = Me.zdtEt
F = Me.zdtF
V = Me.zdtV
Lambda = Me.zdtLambda
A = Me.zdtA
C = Me.zdtC
g1 = Me.zdtg1
g0 = Me.zdtg0
B = Me.zdtB
bCritAB = copAB
bCritC = copC
bCritD = copD
SBride = Me.zdtS
SyBride = Me.zdtSy
SCalculBride = Me.zdtSCalcul
Nu = Me.zdtNu
bLiquide = Me.copFluideLiquide
bGazeux = Me.copFluideGazeux
SEpreuveBride = Me.zdtSEpreuve
niEcran = 2
Unload Me
'D_Choix.Show
End Sub
Private Sub Asssis_Click()
ED_Class.Show
End Sub
Private Sub btnArreter_Click()
niEcran = -1
Unload Me
End Sub
Private Sub btnSuivant_Click()
Dim tTexte As String
Dim tTitre As String
Dim bPression As Boolean
'On Error Resume Next
bPression = False
tTitre = sgctName & " " & sgctVersion & " - Erreur!"
'on valide le contenu des infos de conception
If bBride Then
If Len(Me.zdtS) = 0 Then
MsgBox "Vous devez renseigner une valeur pour la contrainte admissible S dans les conditions de service.", vbCritical + vbOKOnly, tTitre
Me.zdtS.SetFocus
Exit Sub
End If
If Len(Me.zdtA) = 0 Then
MsgBox "Vous devez renseigner une valeur pour A.", vbCritical + vbOKOnly, tTitre
Me.zdtA.SetFocus
Exit Sub
End If
If Len(Me.zdtB) = 0 Then
MsgBox "Vous devez renseigner une valeur pour B.", vbCritical + vbOKOnly, tTitre
Me.zdtB.SetFocus
Exit Sub
End If
If Len(Me.zdtC) = 0 Then
MsgBox "Vous devez renseigner une valeur pour C.", vbCritical + vbOKOnly, tTitre
Me.zdtC.SetFocus
Exit Sub
End If
If Len(Me.zdtg0) = 0 Then
MsgBox "Vous devez renseigner une valeur pour g0.", vbCritical + vbOKOnly, tTitre
Me.zdtg0.SetFocus
Exit Sub
End If
If Len(Me.zdtg1) = 0 Then
MsgBox "Vous devez renseigner une valeur pour g1.", vbCritical + vbOKOnly, tTitre
Me.zdtg1.SetFocus
Exit Sub
End If
If Len(Me.zdtEt) = 0 Then
MsgBox "Vous devez renseigner une valeur pour et.", vbCritical + vbOKOnly, tTitre
Me.zdtEt.SetFocus
Exit Sub
End If
If Len(Me.zdtH) = 0 Then
MsgBox "Vous devez renseigner une valeur pour h.", vbCritical + vbOKOnly, tTitre
Me.zdtH.SetFocus
Exit Sub
End If
If Len(Me.zdtEp) = 0 Then
MsgBox "Vous devez renseigner une valeur pour Ep.", vbCritical + vbOKOnly, tTitre
Me.zdtB.SetFocus
Exit Sub
End If
If Len(Me.zdtF) = 0 Then
MsgBox "Vous devez renseigner une valeur pour le coefficient F.", vbCritical + vbOKOnly, tTitre
Me.zdtF.SetFocus
Exit Sub
End If
If Len(Me.zdtV) = 0 Then
MsgBox "Vous devez renseigner une valeur pour le coefficient V.", vbCritical + vbOKOnly, tTitre
Me.zdtV.SetFocus
Exit Sub
End If
If Len(Me.zdtLambda) = 0 Then
MsgBox "Vous devez renseigner une valeur pour le coefficient lambda.", vbCritical + vbOKOnly, tTitre
Me.zdtLambda.SetFocus
Exit Sub
End If
If Len(Me.zdtNu) = 0 Then
MsgBox "Vous devez renseigner une valeur pour le coefficient Nu.", vbCritical + vbOKOnly, tTitre
Me.zdtNu.SetFocus
Exit Sub
End If
End If
If Len(Me.zdtDN) = 0 Then
MsgBox "Vous devez renseigner une valeur pour le DN.", vbCritical + vbOKOnly, tTitre
Me.zdtDN.SetFocus
Exit Sub
End If
If Len(Me.zdtPs) = 0 Then
MsgBox "Vous devez renseigner une valeur pour la pression de service.", vbCritical + vbOKOnly, tTitre
Me.zdtPs.SetFocus
Exit Sub
Else
If CDbl(zdtPs) > sgcniPression Then bPression = True
End If
If Len(Me.zdtTs) = 0 Then
MsgBox "Vous devez renseigner une valeur pour la temp?rature de service.", vbCritical + vbOKOnly, tTitre
Me.zdtTs.SetFocus
Exit Sub
Else
If CDbl(zdtTs) > sgcniTemperature Then
MsgBox "Vous avez d?pass? les limites d'utilisation de C.A.N.E.B.I.E.R.E. Vous ne pouvez pas exc?der " & sgcniTemperature & " ?C.", vbCritical + vbOKOnly, tTitre
Me.zdtTs.SetFocus
Exit Sub
End If
End If
If Len(zdtPN) <> 0 Then
If CDbl(zdtPN) > sgcniPression Then bPression = True
If CDbl(zdtPN) < CDbl(zdtPs) Then
MsgBox "Vice de conception. La pression de service est sup?rieure ? la pression nominale.", vbCritical + vbOKOnly, tTitre
Me.zdtPs.SetFocus
Exit Sub
End If
End If
If Me.cacPe Then
If Len(Me.zdtPe) = 0 Then
MsgBox "Vous devez renseigner une valeur pour la pression d'?preuve.", vbCritical + vbOKOnly, tTitre
Me.zdtPe.SetFocus
Exit Sub
Else
If CDbl(zdtPe) > sgcniPression Then bPression = True
End If
If Len(Me.zdtSy) = 0 And bBride Then
MsgBox "Vous devez renseigner une valeur pour la limite d'?lasticit? Sy dans les conditions d'?preuve.", vbCritical + vbOKOnly, tTitre
Me.zdtSy.SetFocus
Exit Sub
End If
If Len(Me.zdtSEpreuve) = 0 And bBride Then
MsgBox "Vous devez renseigner une valeur pour la contrainte admissible S dans les conditions d'?preuve.", vbCritical + vbOKOnly, tTitre
Me.zdtSEpreuve.SetFocus
Exit Sub
End If
End If
If Me.cacPc Then
If Len(Me.zdtPc) = 0 Then
MsgBox "Vous devez renseigner une valeur pour la pression de calcul.", vbCritical + vbOKOnly, tTitre
Me.zdtPc.SetFocus
Exit Sub
End If
If Len(Me.zdtTc) = 0 Then
MsgBox "Vous devez renseigner une valeur pour la temp?rature de calcul.", vbCritical + vbOKOnly, tTitre
Me.zdtTc.SetFocus
Exit Sub
End If
If Len(Me.zdtSCalcul) = 0 And bBride Then
MsgBox "Vous devez renseigner une valeur pour la contrainte admissible S dans les conditions de calcul.", vbCritical + vbOKOnly, tTitre
Me.zdtSCalcul.SetFocus
Exit Sub
End If
End If
Ts = CDbl(zdtTs)
Range("CANEBIERE.xls!Ts").Value = Ts
bPc = Me.cacPc
bPe = Me.cacPe
If Len(zdtDN) > 0 Then
DN = zdtDN
Range("CANEBIERE.xls!Dn").Value = CDbl(DN)
Else
DN = ""
Range("CANEBIERE.xls!Dn").Value = ""
End If
If Len(zdtFa) > 0 Then
Fa = zdtFa
Range("CANEBIERE.xls!Fa").Value = CDbl(Fa)
Else
Fa = ""
Range("CANEBIERE.xls!Fa").Value = ""
End If
If Len(zdtMf) > 0 Then
Mf = zdtMf
Range("CANEBIERE.xls!Mf").Value = CDbl(Mf)
Else
Mf = ""
Range("CANEBIERE.xls!Mf").Value = ""
End If
If Me.cacPc Then
Pc = zdtPc
If Len(Pc) > 0 Then
Range("CANEBIERE.xls!Pc").Value = CDbl(Pc)
Else
Range("CANEBIERE.xls!Pc").Value = ""
End If
Tc = zdtTc
If Len(Tc) > 0 Then
Range("CANEBIERE.xls!Tc").Value = CDbl(Tc)
Else
Range("CANEBIERE.xls!Tc").Value = ""
End If
If bBride Then
SCalculBride = Me.zdtSCalcul
If Len(SCalculBride) > 0 Then
Range("CANEBIERE.xls!scalculBride").Value = CDbl(SCalculBride)
Else
Range("CANEBIERE.xls!scalculBride").Value = ""
End If
End If
Else
Pc = ""
Tc = ""
SCalculBride = ""
Range("CANEBIERE.xls!Pc").Value = ""
Range("CANEBIERE.xls!Tc").Value = ""
Range("CANEBIERE.xls!scalculBride").Value = ""
End If
If Me.cacPe Then
Pe = zdtPe
If Len(Pe) > 0 Then
Range("CANEBIERE.xls!Pe").Value = CDbl(Pe)
Else
Range("CANEBIERE.xls!Pe").Value = ""
End If
SyBride = Me.zdtSy
If Len(SyBride) > 0 And bBride Then
Range("CANEBIERE.xls!syBride").Value = CDbl(SyBride)
Else
Range("CANEBIERE.xls!syBride").Value = ""
End If
SEpreuveBride = Me.zdtSEpreuve
If Len(SEpreuveBride) > 0 Then
Range("CANEBIERE.xls!SEpreuveBride").Value = CDbl(SEpreuveBride)
Else
Range("CANEBIERE.xls!SEpreuveBride").Value = ""
End If
Else
Pe = ""
SyBride = ""
SEpreuveBride = ""
Range("CANEBIERE.xls!Pe").Value = ""
Range("CANEBIERE.xls!syBride").Value = ""
Range("CANEBIERE.xls!SEpreuveBride").Value = ""
End If
PN = zdtPN
If Len(PN) > 0 Then
Range("CANEBIERE.xls!PN").Value = CDbl(PN)
Else
Range("CANEBIERE.xls!PN").Value = ""
End If
Ps = CDbl(zdtPs)
Range("CANEBIERE.xls!Ps").Value = Ps
If bBride Then
H = CDbl(Me.zdtH)
Ep = CDbl(Me.zdtEp)
Et = CDbl(Me.zdtEt)
F = CDbl(Me.zdtF)
V = CDbl(Me.zdtV)
Lambda = CDbl(Me.zdtLambda)
A = CDbl(Me.zdtA)
C = CDbl(Me.zdtC)
g1 = CDbl(Me.zdtg1)
g0 = CDbl(Me.zdtg0)
B = CDbl(Me.zdtB)
bCritAB = copAB
bCritC = copC
bCritD = copD
Nu = CDbl(Me.zdtNu)
SBride = CDbl(Me.zdtS)
Else
H = ""
Ep = ""
Et = ""
F = ""
V = ""
Lambda = ""
A = ""
C = ""
g1 = ""
g0 = ""
B = ""
bCritAB = False
bCritC = False
bCritD = False
Nu = ""
SBride = ""
End If
Range("CANEBIERE.xls!hBride").Value = H
Range("CANEBIERE.xls!epBride").Value = Ep
Range("CANEBIERE.xls!etBride").Value = Et
Range("CANEBIERE.xls!fBride").Value = F
Range("CANEBIERE.xls!vBride").Value = V
Range("CANEBIERE.xls!lambdaBride").Value = Lambda
Range("CANEBIERE.xls!aBride").Value = A
Range("CANEBIERE.xls!cBride").Value = C
Range("CANEBIERE.xls!g1Bride").Value = g1
Range("CANEBIERE.xls!g0Bride").Value = g0
Range("CANEBIERE.xls!bBride").Value = B
Range("CANEBIERE.xls!sBride").Value = SBride
Range("CANEBIERE.xls!nu").Value = Nu
If bCritAB Then Range("CANEBIERE.xls!critere").Value = "A,B"
If bCritC Then Range("CANEBIERE.xls!critere").Value = "C"
If bCritD Then Range("CANEBIERE.xls!critere").Value = "D"
If Len(DN) > 0 Then
Range("CANEBIERE.xls!Dn").Value = CDbl(DN)
Else
Range("CANEBIERE.xls!Dn").Value = ""
End If
bLiquide = Me.copFluideLiquide
bGazeux = Me.copFluideGazeux
If bGazeux Then
Range("CANEBIERE.xls!fluide").Value = "Vapeur"
Else
Range("CANEBIERE.xls!fluide").Value = "Liquide"
End If
If bPression Then
MsgBox "Attention, vous avez d?pass? les limites d'utilisation de C.A.N.E.B.I.E.R.E (" & sgcniPression & " bar)." _
& vbCrLf & "Ce calcul ne peut-?tre men? qu'au titre d'une v?rification." _
& vbCrLf & vbCrLf & "Le fabricant du joint doit imp?rativement ?tre consult? pour la d?finition du joint ? installer." _
, vbOKOnly + vbInformation, sgctName & " " & sgctVersion & " - Avertissement"
End If
niEcran = 4
Unload Me
End Sub
Private Sub cacPc_Click()
Call GestionPc
End Sub
Sub GestionPc()
Me.lblPc.Enabled = Me.cacPc
Me.lblUnitePc.Enabled = Me.cacPc
Me.zdtPc.Enabled = Me.cacPc
Me.lblTc.Enabled = Me.cacPc
Me.lblUniteTc.Enabled = Me.cacPc
Me.zdtTc.Enabled = Me.cacPc
Me.lblSCalcul.Enabled = Me.cacPc
Me.lblUniteScalcul.Enabled = Me.cacPc
Me.zdtSCalcul.Enabled = Me.cacPc
If Me.cacPc Then
Me.zdtPc.BackColor = 12648447
Me.zdtTc.BackColor = 12648447
Me.zdtSCalcul.BackColor = 12648447
Else
Me.zdtPc.BackColor = 14737632
Me.zdtTc.BackColor = 14737632
Me.zdtSCalcul.BackColor = 14737632
End If
End Sub
Sub GestionPe()
Me.lblPe.Enabled = Me.cacPe
Me.lblUnitePe.Enabled = Me.cacPe
Me.zdtPe.Enabled = Me.cacPe
Me.lblSy.Enabled = Me.cacPe
Me.zdtSy.Enabled = Me.cacPe
Me.lblUniteSy.Enabled = Me.cacPe
Me.LblSepreuve.Enabled = Me.cacPe
Me.zdtSEpreuve.Enabled = Me.cacPe
Me.lblUniteSepreuve.Enabled = Me.cacPe
If Me.cacPe Then
Me.zdtPe.BackColor = 12648447
Me.zdtSy.BackColor = 12648447
Me.zdtSEpreuve.BackColor = 12648447
Else
Me.zdtPe.BackColor = 14737632
Me.zdtSy.BackColor = 14737632
Me.zdtSEpreuve.BackColor = 14737632
End If
End Sub
Private Sub cacPe_Click()
Call GestionPe
End Sub
Private Sub ImgCoef_Click()
ED_Coefficient.Show
End Sub
Private Sub UserForm_Initialize()
Me.zdtDN = DN
Me.zdtFa = Fa
Me.zdtMf = Mf
Me.zdtPc = Pc
Me.zdtPe = Pe
Me.zdtPN = PN
Me.zdtPs = Ps
Me.zdtTc = Tc
Me.zdtTs = Ts
If Not bConception Then bPc = False
Me.cacPc = bPc
Me.cacPe = bPe
Me.zdtH = H
Me.zdtEp = Ep
Me.zdtEt = Et
Me.zdtF = F
Me.zdtV = V
Me.zdtLambda = Lambda
Me.zdtA = A
Me.zdtC = C
Me.zdtg1 = g1
Me.zdtg0 = g0
Me.zdtB = B
Me.copAB = bCritAB
Me.copC = bCritC
Me.copD = bCritD
Me.zdtS = SBride
Me.zdtSy = SyBride
Me.zdtSCalcul = SCalculBride
Me.zdtSEpreuve = SEpreuveBride
Me.zdtNu = Nu
Me.copFluideLiquide = bLiquide
Me.copFluideGazeux = bGazeux
Me.Caption = sgctName & " " & sgctVersion & " - Brides"
Call GestionPc
Call GestionPe
' info uniquement en mode conception
Me.Fracalcul.Enabled = bConception
Me.lblFa.Enabled = bSeisme
Me.lblUniteFa.Enabled = bSeisme
Me.zdtFa.Enabled = bSeisme
Me.lblMf.Enabled = bSeisme
Me.lblUniteMf.Enabled = bSeisme
Me.zdtMf.Enabled = bSeisme
Me.fraConception.Enabled = bSeisme
Me.FraConception2.Visible = bBride
Me.lblSCalcul.Visible = bBride
Me.zdtSCalcul.Visible = bBride
Me.lblUniteScalcul.Visible = bBride
Me.lblS.Visible = bBride
Me.zdtS.Visible = bBride
Me.lblUniteS.Visible = bBride
Me.lblSy.Visible = bBride
Me.zdtSy.Visible = bBride
Me.lblUniteSy.Visible = bBride
Me.LblSepreuve.Visible = bBride
Me.zdtSEpreuve.Visible = bBride
Me.lblUniteSepreuve.Visible = bBride
Me.STD.Visible = Not bBride
End Sub
Private Sub zdtA_Change()
If Len(zdtA) > 0 Then
If Not IsNumeric(zdtA) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtA = A
End If
End If
End Sub
Private Sub zdtA_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtB_Change()
If Len(zdb) >= 0 Then
If Not IsNumeric(zdb) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtB = B
End If
End If
End Sub
Private Sub zdtB_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtC_Change()
If Len(zdtC) > 0 Then
If Not IsNumeric(zdtC) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtC = C
End If
End If
End Sub
Private Sub zdtC_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtDN_Change()
If Len(zdtDN) > 0 Then
If Not IsNumeric(zdtDN) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtDN = DN
End If
End If
End Sub
Private Sub zdtDN_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtEp_Change()
If Len(zdtEp) > 0 Then
If Not IsNumeric(zdtEp) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtEp = Ep
End If
End If
End Sub
Private Sub zdtEp_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtEt_Change()
If Len(zdtEt) > 0 Then
If Not IsNumeric(zdtEt) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtEt = Et
End If
End If
End Sub
Private Sub zdtEt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtF_Change()
If Len(zdtF) > 0 Then
If Not IsNumeric(zdtF) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtF = F
End If
End If
End Sub
Private Sub zdTf_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtFa_Change()
If Len(zdtFa) > 0 Then
If Not IsNumeric(zdtFa) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtFa = Fa
End If
End If
End Sub
Private Sub zdtFa_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtg0_Change()
If Len(zdtg0) > 0 Then
If Not IsNumeric(zdtg0) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtg0 = g0
End If
End If
End Sub
Private Sub zdtg0_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtg1_Change()
If Len(zdtg1) > 0 Then
If Not IsNumeric(zdtg1) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtg1 = g1
End If
End If
End Sub
Private Sub zdtg1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdth_Change()
If Len(zdtH) > 0 Then
If Not IsNumeric(zdtH) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtH = H
End If
End If
End Sub
Private Sub zdtH_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtLambda_Change()
If Len(zdtLambda) > 0 Then
If Not IsNumeric(zdtLambda) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtLambda = Lambda
End If
End If
End Sub
Private Sub zdtLambda_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtMf_Change()
If Len(zdtMf) > 0 Then
If Not IsNumeric(zdtMf) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtMf = Mf
End If
End If
End Sub
Private Sub zdtMf_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtNu_Change()
If Len(zdtNu) > 0 Then
If Not IsNumeric(zdtNu) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtNu = Nu
End If
End If
End Sub
Private Sub zdtNu_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtPc_Change()
If Len(zdtPc) > 0 Then
If Not IsNumeric(zdtPc) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtPc = Pc
End If
End If
End Sub
Private Sub zdtPc_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtPe_Change()
If Len(zdtPe) > 0 Then
If Not IsNumeric(zdtPe) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtPe = Pe
End If
End If
End Sub
Private Sub zdtPe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtPN_Change()
If Len(zdtPN) > 0 Then
If Not IsNumeric(zdtPN) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtPN = PN
End If
End If
End Sub
Private Sub zdtPN_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtPs_Change()
If Len(zdtPs) > 0 Then
If Not IsNumeric(zdtPs) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtPs = Ps
End If
End If
End Sub
Private Sub zdtPs_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtS_Change()
If Len(zdtS) > 0 Then
If Not IsNumeric(zdtS) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtS = SBride
End If
End If
End Sub
Private Sub zdtS_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtSCalcul_Change()
If Len(zdtSCalcul) > 0 Then
If Not IsNumeric(zdtSCalcul) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtSCalcul = SCalculBride
End If
End If
End Sub
Private Sub zdtSCalcul_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtSEpreuve_Change()
If Len(zdtSEpreuve) > 0 Then
If Not IsNumeric(zdtSEpreuve) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtSEpreuve = SEpreuveBride
End If
End If
End Sub
Private Sub zdtSEpreuve_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtSy_Change()
If Len(zdtSy) > 0 Then
If Not IsNumeric(zdtSy) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtSy = SyBride
End If
End If
End Sub
Private Sub zdtSy_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtTc_Change()
If Len(zdtTc) > 0 Then
If Not IsNumeric(zdtTc) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtTc = Tc
End If
End If
End Sub
Private Sub zdtTc_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtTs_Change()
If Len(zdtTs) > 0 Then
If Not IsNumeric(zdtTs) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtTs = Ts
End If
End If
End Sub
Private Sub zdtTs_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub
Private Sub zdtV_Change()
If Len(zdtV) > 0 Then
If Not IsNumeric(zdtV) Then
MsgBox "La valeur que vous avez saisie est incorrecte.", vbCritical + vbOKOnly, sgctName & " " & sgctVersion
Me.zdtV = V
End If
End If
End Sub
Private Sub zdtV_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call DecimalSeparateur(KeyAscii)
End Sub