bonjour a tous,

J'ai ce code la:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Var_AV As Integer, Var_AR As Integer, Var_G As Integer, Var_D As Integer
Dim Var_AV1 As Integer, Var_AR1 As Integer, Var_G1 As Integer, Var_D1 As Integer
Dim av As String, ar As String, d As String, g As String
'Var_AV = 1
'Var_AR = 1
'Var_G = 2
'Var_D = 2
 
Var_AV  = CInt(Left(Right(zone1.Code_chant_AV.Text, 2), 1))
If Var_AV = 2 Then
Var_AV1 = Var_AV * 10
Else
Var_AV1 = Var_AV
End If
et dans mon if then else mes variables Var_AV et VarAV1 reste a 0 et je ne comprend pas pourquoi, alors que le Var_AV qui récupère le chiffre 0,1 ou 2 d'une chaine de caractères fonctionne , j'ai rajouté un Cint pour être sur de convertir mon texte en integer mais rien ni fait.

Si je met directement Var_AV = 1 ça fonctionne.

Quelqu'un pourrait il me dire ce qui ne fonctionne pas.
Merci d'avance