Microsoft 365 Cdbl et nombres à virgules

[youguybass]

Bonjour à tous
par ce code je cherche à comparer "Txt257" et ".Cells(Lag, C)" afin de me renvoyer une info s'ils sont différents.

La comparaison marche si les chiffres sont entiers, par contre a partir du moment ou ce sont des nombres à virgules ,
si ces nombres sont identiques, cela me renvoi le message comme quoi ils sont différents alors que ça ne devrait pas être le cas.
J'ai essayé avec Val( Txt ... cela n'y fait rien
Est que quelqu'un aurait une solution ?
D'avance merci

With Feuil16
For K = .[a65000].End(3).Row To 6 Step -1

For Col = 26 To 314 Step 12
If .Cells(K, Col) = Txt1 Then
 
        'tx31 = 0
        
           tx31 = tx31 + CDbl(Feuil16.Cells(K, Col + 7))
          
                    TextBox257 = tx31
            
        End If
Next
Next

End With
MsgBox (CDbl(.Cells(Lag, C)))
MsgBox (CDbl(TextBox257))

If CDbl(TextBox257) <> CDbl(.Cells(Lag, C)) Then
MsgBox ("Attention Le calcul des prix d'achat a été modifier depuis le dernière enregistrement" & vbCrLf & "Veuillez enregistrer a nouveau ce dossier")
End If

 

[sylvanu]

Bonjour youguybass,
TextBox257 contient un texte. Peut être que le séparateur décimal utilisé dans TextBox n'est il pas le séparateur décimal utilisé par le VBA ?
( par exemple "," au lieu de "." )

 

[youguybass]

Bonjour youguybass,
TextBox257 contient un texte. Peut être que le séparateur décimal utilisé dans TextBox n'est il pas le séparateur décimal utilisé par le VBA ?
( par exemple "," au lieu de "." )

J'ai dû faire une manip sur le change du tbx 257

Private Sub TextBox257_Change() 'Tolal Achat ---------------------Ok
D = 257
Me.Controls("TextBox" & D).Value = Format(Me.Controls("TextBox" & D), "###0.00€")
Me.Controls("TextBox" & D).Value = Replace(Me.Controls("TextBox" & D).Value, ",", ".", 1, 1)
End Sub

et jouer avec val et cdbl dans la macro !

With Feuil16
For K = .[a65000].End(3).Row To 6 Step -1

For Col = 26 To 314 Step 12
If .Cells(K, Col) = Txt1 Then
 
        'tx31 = 0
           tx31 = tx31 + CDbl(Feuil16.Cells(K, Col + 7))
                    TextBox257 = CDbl(tx31)
         End If
Next
Next
End With

If Val(TextBox257) <> CDbl(.Cells(Lag, C)) Then
MsgBox ("Attention le total des prix d'achat a été modifié depuis le dernière enregistrement" & vbCrLf & "Veuillez enregistrer a nouveau ce dossier")
End If

et cela fonctionne

Merci sylvanu