Probleme entre deux precedure
mylord666
Messages postés
151
Date d'inscription
Statut
Membre
Dernière intervention
-
PlacageGranby Messages postés 393 Date d'inscription Statut Membre Dernière intervention -
PlacageGranby Messages postés 393 Date d'inscription Statut Membre Dernière intervention -
Private Sub Label2_intensite_Click()
Dim R As Integer, U As Integer, I As Integer
If TextBox1_resistance <> 0 And TextBox2_intensite <> 0 Then
TextBox2_intensite.Visible = True
R = TextBox1_resistance.Value
U = TextBox3_tension.Value
I = U / R
MsgBox "I=" & I
Sheets("Feuil1").Range("c7").Interior.ColorIndex = 27
Sheets("Feuil1").Range("c9") = I
End If
End Sub
Private Sub Label3_tension_Click()
Dim R As Integer, U As Integer, I As Integer
If TextBox1_resistance <> 0 And TextBox2_intensite <> 0 Then
TextBox3_tension.Visible = False
R = TextBox1_resistance.Value
I = TextBox2_intensite.Value
U = R * I
MsgBox "U=" & U
Sheets("Feuil1").Range("c9").Interior.ColorIndex = 28
Sheets("Feuil1").Range("c9") = U
TextBox2_intensite = " "
End If
End Sub
le problème est que lorsque je teste la deuxième procédure j'obtiens une erreur car I est tester des la première fois comment faire
il s'agit de I qui prends la valeur de son trextbox
je ne sais pas comment faire qui peut m'aider
Une grand merci d'avance
Dim R As Integer, U As Integer, I As Integer
If TextBox1_resistance <> 0 And TextBox2_intensite <> 0 Then
TextBox2_intensite.Visible = True
R = TextBox1_resistance.Value
U = TextBox3_tension.Value
I = U / R
MsgBox "I=" & I
Sheets("Feuil1").Range("c7").Interior.ColorIndex = 27
Sheets("Feuil1").Range("c9") = I
End If
End Sub
Private Sub Label3_tension_Click()
Dim R As Integer, U As Integer, I As Integer
If TextBox1_resistance <> 0 And TextBox2_intensite <> 0 Then
TextBox3_tension.Visible = False
R = TextBox1_resistance.Value
I = TextBox2_intensite.Value
U = R * I
MsgBox "U=" & U
Sheets("Feuil1").Range("c9").Interior.ColorIndex = 28
Sheets("Feuil1").Range("c9") = U
TextBox2_intensite = " "
End If
End Sub
le problème est que lorsque je teste la deuxième procédure j'obtiens une erreur car I est tester des la première fois comment faire
il s'agit de I qui prends la valeur de son trextbox
je ne sais pas comment faire qui peut m'aider
Une grand merci d'avance
A voir également:
- Probleme entre deux precedure
- Nombre de jours entre deux dates excel - Guide
- Deux ecran pc - Guide
- Comment faire deux colonnes sur word - Guide
- Itinéraire google map entre deux adresses - Guide
- Deux whatsapp sur un téléphone - Guide
2 réponses
Bonjour,
Integer n'a pas de décimale, je ne suis pas sûr que tu as le bon type de variable.
Aussi, si un textbox est vide. il a la valeur "" et non pas 0
"" n'est pas un nombre donc on ne peut pas le mettre dans un integer
Integer n'a pas de décimale, je ne suis pas sûr que tu as le bon type de variable.
Aussi, si un textbox est vide. il a la valeur "" et non pas 0
"" n'est pas un nombre donc on ne peut pas le mettre dans un integer