Discussion :

[zoumzoum59]

Bonjour

J'ai un petit soucis sur le code suivant:

Code :

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

1
2
3
4
 
Dim Longu As Currency, Larg As Currency
Longu = longueur.Text
Larg = largeur.Text

Quand je met un chiffre sous le format suivant 636.5 dans mon textbox une "erreur d'incompatibilité de type" survient et je ne comprend pas pourquoi.
Est ce a cause du point à la place d'une virgule ?

Merci c'avance

[ucfoutu]

Bonjour,

Il y a eu (cette semaine encore) plusieurs discussions ouvertes sur ce thème ...

Si tu utilises le point comme séparateur décimal :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  Dim longu As Single
  longu = Val(longueur.Text)
  MsgBox longu
End Sub

[ouskel'n'or]

Pour en rajouter une couche, tu déclares des nombres et tu affectes des Strings aux variables, y'aurait pas une incohérence ?

Edit
Plutôt que

longu = Val(longueur.Text)

je mettrais

Code :

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

longu = ccur(longueur.Text)

[ucfoutu]

Euh.....
Avec le point comme séparateur ?
Je ne crois pas...

[zoumzoum59]

Merci ucfoutu et ouskel'n'or

J'ai essayé les deux proposition, Val fonctionne contrairement a Ccur ou j'ai eu la meme erreur de compatibilité de type.

Encore merci a vous deux