XL 2019 besoin d aide programmation VBA

stef60400

XLDnaute Nouveau
bonjour a tous
Voila j ai un micro logiciel en VBA pour des calculs de serrage de joint
mais il fonctionné sur une version antierieur
apres je suis pas expert dans ce domaine,mais besoin d un coup main et de comprendre aussi
s il on peut m aider sa sera un grand merci car je logitiel et utile pour mon travail
le fiichier et trop volumineux pour mettre ici merci de me contacter en priver pour échanger
 
Dernière édition:

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour stef
Edit : Bonjour Staple
Il serait judicieux de faire un petit passage ici
CharteXLD.gif
 

Staple1600

XLDnaute Barbatruc
Bonjour Eric C

Trop tard, camarade (cf message#2)

Et pour dédouaner le demandeur, il nous a dit bonjour mais dans son fil de présentation (le premier posté)
;)

Ceci dit et pour info, stef60400, on ne joint jamais le fichier original mais une copie allégée et anonymisée et/ou un fichier exemple créé pour l'occasion et pour illustrer le problème rencontré.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Staple, Eric, Stef,
Quand Staple parle d'un fichier exemple, ce n'est pas d'une image dont il s'agit mais d'un fichier XL allégé où l'erreur est présente.
Il y a plein d'erreur qui n'ont rien à voir avec la ligne en jaune, mais qui viennent d'autre part comme le typage des variables ou autres.
 

stef60400

XLDnaute Nouveau
bonsoir
ok merci pour l'info,mais vu je suis pas expert en la matière ,je cherche a comprendre la programmation, apres la vba de trim tu l ajoute comment et ou
j apprend tout les jours a me coucher moin bête lol , apres si on m explique bien j arriverai a remettre en service ce petit programme
 
Dernière édition:

stef60400

XLDnaute Nouveau
Re

Désolé il manquait la fin d'un mot.
Relis mon précédent message (je l'ai édité)
ok merci j'ai enfin compris apres je suis pas sortie d affaire car vu les soucis qu il y a j ai plusieurs page a reprendre et vu je suis nul lol je vais casser les pieds a comprendre les erreurs de la vba je pense qu il y beaucoup syntaxe a reprendre
maintenant j ai le soucis if Len (zdb)

je met toute la page de code car je suis sur il y a plein soucis
 
Dernière édition:

stef60400

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 723
Messages
2 081 934
Membres
101 844
dernier inscrit
pktla