Private Sub angleA_Change() If (angleP.Text = "") Then angleP.Text = Int(180 - Val(angleD.Text) - Val(angleA.Text)) ElseIf (angleD.Text = "") Then angleD.Text = Int(180 - Val(angleA.Text) - Val(angleD.Text)) End If End Sub Private Sub angleD_Change() If (angleP.Text = "") Then angleP.Text = Int(180 - Val(angleD.Text) - Val(angleA.Text)) ElseIf (angleA.Text = "") Then angleA.Text = Int(180 - Val(angleP.Text) - Val(angleD.Text)) End If End Sub Private Sub angleP_Change() If (angleD.Text = "") Then angleD.Text = Int(180 - Val(angleP.Text) - Val(angleA.Text)) ElseIf (angleA.Text = "") Then angleA.Text = Int(180 - Val(angleP.Text) - Val(angleD.Text)) End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub angleA_Change() angleP.Text = Int(180 - Val(angleD.Text) - Val(angleA.Text)) End Sub Private Sub angleD_Change() angleA.Text = Int(180 - Val(angleP.Text) - Val(angleD.Text)) End Sub Private Sub angleP_Change() angleD.Text = Int(180 - Val(angleP.Text) - Val(angleA.Text)) End Sub