Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic aa As Integer Public bb As Integer Private Sub TextBox1_Change() Dim a As Integer If Not IsNumeric(Right(TextBox1, 1)) Then MsgBox "Le caractere saisi n'est pas valide" TextBox1 = Left(TextBox1, Len(TextBox1) - 1) End If aa = UserForm2.TextBox1.Value End Sub Private Sub TextBox2_Change() If Not IsNumeric(Right(TextBox2, 1)) Then MsgBox "Le caractere saisi n'est pas valide" TextBox1 = Left(TextBox2, Len(TextBox2) - 1) End If 'pour le userform3 bb = UserForm2.TextBox2.Value userform3.TextBox1.Text = bb * 296 j = userform3.TextBox1.Value userform3.TextBox2.Text = (aa * bb) / 100 c = userform3.TextBox2.Value 'If UserForm1.ListBox1.Text = essence Then 'w = 2.3 'Else w = 2.6 'End If userform3.TextBox3.Text = c * w d = userform3.TextBox3.Value userform3.TextBox4.Text = d * 296 f = userform3.TextBox4.Value 'If UserForm1.ListBox1.Text = essence Then 's = 1.45 'Else s = 1.32 'End If userform3.TextBox5.Text = c * s e = userform3.TextBox5.Value userform3.TextBox6.Text = e * 296 p = userform3.TextBox6.Value userform3.TextBox7.Text = j * ((2 / 300) + (5 / 300)) + 200 o = userform3.TextBox7.Value userform3.TextBox8.Text = o + p y = userform3.TextBox8.Value 'pour le userform4 j = userform3.TextBox1.Value UserForm4.TextBox1.Text = j c = userform3.TextBox2.Value UserForm4.TextBox2.Text = c / 2 r = UserForm4.TextBox2.Text d = userform3.TextBox3.Value UserForm4.TextBox3.Text = d / 2 h = UserForm4.TextBox3.Text h = UserForm4.TextBox3.Text UserForm4.TextBox4.Text = h * 296 z = UserForm4.TextBox4.Text e = userform3.TextBox5.Value UserForm4.TextBox5.Text = e / 2 g = UserForm4.TextBox5.Text g = UserForm4.TextBox5.Text UserForm4.TextBox6.Text = g * 296 x = UserForm4.TextBox6.Text o = userform3.TextBox7.Value UserForm4.TextBox7.Text = o / 2 n = UserForm4.TextBox7.Text x = UserForm4.TextBox6.Text n = UserForm4.TextBox7.Text UserForm4.TextBox8.Text = n + x gg = UserForm4.TextBox8.Text gg = UserForm4.TextBox8.Text UserForm4.TextBox9.Text = gg z = UserForm4.TextBox4.Text UserForm4.TextBox10.Text = z End Sub Private Sub CommandButton1_Click() userform3.Show End Sub
Public aa As String Public bb, j, c, w, d, e, f, s As String Public p, o, y As String Private Sub TextBox1_Change() bb = UserForm2.TextBox2.Value userform3.TextBox1.Text = bb * 296 j = userform3.TextBox1.Value End Sub Private Sub TextBox2_Change() aa = UserForm2.TextBox1.Value userform3.TextBox2.Text = (aa * bb) / 100 c = userform3.TextBox2.Value End Sub Private Sub TextBox3_Change() 'If UserForm1.ListBox1.Text = essence Then 'w = 2.3 'Else w = 2.6 'End If userform3.TextBox3.Text = c * w d = userform3.TextBox3.Value End Sub Private Sub TextBox4_Change() userform3.TextBox4.Text = d * 296 f = userform3.TextBox4.Value End Sub Private Sub TextBox5_Change() 'If UserForm1.ListBox1.Text = essence Then 's = 1.45 'Else s = 1.32 'End If userform3.TextBox5.Text = c * s e = userform3.TextBox5.Value End Sub Private Sub TextBox6_Change() userform3.TextBox6.Text = e * 296 p = userform3.TextBox6.Value End Sub Private Sub TextBox7_Change() userform3.TextBox7.Text = j * ((2 / 300) + (5 / 300)) + 200 o = userform3.TextBox7.Value End Sub Private Sub TextBox8_Change() userform3.TextBox8.Text = (Val(o) + Val(p)) y = userform3.TextBox8.Value End Sub
Public aa As Long Public bb, j, c, w, d, e, f, s, p, o, y As String Private Sub CommandButton1_Click() End End Sub Private Sub TextBox1_Change() Dim u As String j = userform3.TextBox1.Value UserForm4.TextBox1.Text = j End Sub Private Sub TextBox2_Change() Dim r As String c = userform3.TextBox2.Value UserForm4.TextBox2.Text = c / 2 r = UserForm4.TextBox2.Text End Sub Private Sub TextBox3_Change() Dim h As String d = userform3.TextBox3.Value UserForm4.TextBox3.Text = d / 2 h = UserForm4.TextBox3.Text End Sub Private Sub TextBox4_Change() h = UserForm4.TextBox3.Text UserForm4.TextBox4.Text = h * 296 z = UserForm4.TextBox4.Text End Sub Private Sub TextBox5_Change() Dim g As String e = userform3.TextBox5.Value UserForm4.TextBox5.Text = e / 2 g = UserForm4.TextBox5.Text End Sub Private Sub TextBox6_Change() g = UserForm4.TextBox5.Text UserForm4.TextBox6.Text = g * 296 x = UserForm4.TextBox6.Text End Sub Private Sub TextBox7_Change() o = userform3.TextBox7.Value UserForm4.TextBox7.Text = o / 2 n = UserForm4.TextBox7.Text End Sub Private Sub TextBox8_Change() x = UserForm4.TextBox6.Text n = UserForm4.TextBox7.Text UserForm4.TextBox8.Text = (Val(n) + Val(x)) gg = UserForm4.TextBox8.Text End Sub Private Sub TextBox9_Change() Dim oo As String gg = UserForm4.TextBox8.Text UserForm4.TextBox9.Text = gg End Sub Private Sub TextBox10_Change() z = UserForm4.TextBox4.Text UserForm4.TextBox10.Text = z End Sub
Public aa As String Public bb, j, c, w, d, e, f, s As String Public p, o, y As String Private Sub TextBox1_Change() bb = UserForm2.TextBox2.Value userform3.TextBox1.Text = bb * 296 j = userform3.TextBox1.Value End Sub Private Sub TextBox2_Change() aa = UserForm2.TextBox1.Value userform3.TextBox2.Text = (aa * bb) / 100 c = userform3.TextBox2.Value End Sub