Discussion :

[kouniba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Danyel]

Normal car tu crees tes juste avant de le comparer !!!

[kouniba]

Oui t'as raison...mais j'avance dans ma programmation!

Sinon dis moi stp, c'est possible que lorsque j'aurais fini ma programmation de convertir le fichier .xls en .exe?

[Pelote2012]

Je ne pense pas que se soit possible.

Tu cherches à faire quoi? Un exécutable qui change des valeur dans un fichier excel?
Peut-être pourra-t-on te donner d'autres solutions.