Discussion :

[zoumzoum59]

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

[mercatog]

Mets avant la ligne 9 ceci

Code :

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

msgbox Left(Right(zone1.Code_chant_AV.Text, 2), 1)

[zoumzoum59]

Merci mercatog de te pencher sur mon cas,

J'ai fait ce que tu m'as demandé et j'ai bien un résultat qui est soit 0, 1 ou 2 suivant les cas mais quand je fait mon test IF THEN ELSE les variable reste à 0

J'ai du louper quelque chose parce que mon problème est toujours là ou alors j'ai pas tous compris a ton message mercatog.

je ne sais pas si c'est au niveau du type de variable ou ailleurs

Dans la fenêtre variable locale j'ai une variable Var_AV valeur 1 integer et une variable Var_AV Variant/Empty comment et ou savoir ou se trouve ces deux variables.
je ne comprend pas pourquoi j'ai une variable avec le meme nom en integer et en variant

[zoumzoum59]

C'est bon j'ai trouvé mon erreur il y avait un espace de trop dans le code:

Code :

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

Var_AV  = CInt(Left(Right(zone1.Code_chant_AV.Text, 2), 1))

juste après le Var_AV(espace)

Désolé faute de frappe que je n'avais pas vu.

[eriiic]

Bonjour,

ah, trop tard...
eric

[78chris]

Bonjour

D'où l’intérêt de Option Explicit

[zoumzoum59]

Merci a vous tous et je viens de rajouter Option Explicit et corriger quelques déclarations de variables