Une condition banale qui s’exécute mal!
Bonjour
Voilà mon code, normalement c'est vérifié pour la condition tes=0 lorsque les valeurs saisies sont incorrectes et elle est égale à 1 lorsqu'elles sont justes. Le problème c'est que lorsque j'appui sur le bouton il ne réalise que la première condition même si les valeurs sont correctes c'est à dire tes=1...J'ai essayé avec Exit Sub mais rien à signaler...Que faire?
'Calcul
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Private Sub Calcul_Click()
Dim tes As Integer
Sheets("Secondaire").Activate
If tes = 0 Then
Message1.Caption = "Les valeurs saisies sont incorrectes"
Message1.ForeColor = &HFF&
Else
Cells(12, 8).Value = TextBox1.Value
Cells(12, 10).Value = TextBox2.Value
Cells(12, 12).Value = TextBox3.Value
Cells(12, 14).Value = TextBox4.Value
Cells(12, 16).Value = TextBox5.Value
Cells(13, 8).Value = Cells(10, 8).Value / Cells(12, 8).Value
Cells(13, 10).Value = Cells(10, 10).Value / Cells(12, 10).Value
Cells(13, 12).Value = Cells(10, 12).Value / Cells(12, 12).Value
Cells(13, 14).Value = Cells(10, 12).Value / Cells(12, 14).Value
Cells(13, 16).Value = Cells(10, 14).Value / Cells(12, 16).Value
Secondaire.Hide
End If
'Taille
Columns("A:Q").Select
Selection.Columns.AutoFit
End Sub |
:cry:
Au lieu de vérifier "tes" j'ai ajouté un label et je vérivie le LABEL.Caption, si c'est égal à 0 ou à 1!!!!
Merci de m'aider
