Discussion :

["Rone"]

Bonjour,

J'ai un probleme qui survient lors d'une comparaison.
voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 If Sheets("ADD Data").combo_model.Value = "" Or Sheets("ADD Data").T_MSN.Value = "" Or Sheets("ADD Data").T_inspection.Value = "" _
       Or ................ Then
           UserForm1.Show
    Else
       Sheets("Data base").Range("a" & k).Value = "Hard landing"
       aux = Sheets("ADD Data").T_V_acceleration.Value
       aux1 = Sheets("ADD Data").T_V_speed.Value
       If (aux >= 2.86) Or (aux1 >= 14) Then
          Sheets("Data base").Range("a" & k).Value = "Severe Hard landing"
       End If
    End If

Le probleme est que quand je rentre dans une textbox le chiffre 2.75 (different de 2,75) alors la valeur que je reçoit est 'Severe hard landing' alors que je veux un 'hard landing'.

Comment puis-je faire pour ne faire aucune difference entre le 2.75 et 2,75. alors que dans le code vba je met 2.86 comme valeur de comparaison...

[ouskel'n'or]

Et si tu remplaces la virgule par un point lors de la frappe dans le textbox ou dans l'exit... ?

["Rone"]

lorsque je met une virgule a la place d'un point dans la text box, tout marche correctement.
mais c'est pour palier a ce defaut que je demande de l'aide.

["Rone"]

J'ai résolu ce souci en faisant une etape intermediaire.

Code :

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

1
2
3
4
Sheets("Data base").Range("t" & k).Value = Sheets("ADD Data").T_V_acceleration.Value
Sheets("Data base").Range("v" & k).Value = Sheets("ADD Data").T_V_speed.Value
aux = Sheets("Data base").Range("t" & k).Value
aux1 = Sheets("Data base").Range("V" & k).Value

car en passant par les cellules excel, le point est transformé par une virgule selon la configuration de excel.

[ouskel'n'or]

J'avais compris le contraire mais c'est la même chose. Tu fais ça au moment de récupérer la valeur,

Code :

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

Valeur = CDbl(Replace(TextBox1.Text, ".", ","))