Convertion de chaîne ... Résolu

Question

Bonsoir je suis actuellement sur un projet mais il y a un problème, lorsque je lance le débogage, cette erreur s'affiche : 

La conversion de la chaîne "" en type 'Double' n'est pas valide.

Que faire ? Merci

Patrice33740 · Answer

Bonjour,

Il faut tester la variable, par exemple :
Option Explicit
Sub test()
Dim MaChaine As String
Dim MonNombre As Double

MaChaine = "0,23"
If IsNumeric(MaChaine) Then
  MonNombre = CDbl(MaChaine)
  MsgBox MonNombre
Else
  MsgBox "La variable 'MaChaine' (" & MaChaine & ") ne peut pas être" & _
         " convertie," & vbCr & "car elle ne représente pas un nombre !"
End If

MaChaine = "0.23"
If IsNumeric(MaChaine) Then
  MonNombre = CDbl(MaChaine)
  MsgBox MonNombre
Else
  MsgBox "La variable 'MaChaine' (" & MaChaine & ") ne peut pas être" & _
         " convertie," & vbCr & "car elle ne représente pas un nombre."
End If

End Sub

Convertion de chaîne ...

1 réponse

Discussions similaires

Newsletters