Bonjour,
Voila je n'arrive pas trouver une facon de tester si la variable encoder dans une combobox est bien numérique.
voila mon petit morceaux de code:
Code:
Private Sub ComboBox1_Change()
Dim a As String
Dim b As Double
a = ComboBox1.Value
If ComboBox1.Value Is Nothing Then
Exit Sub
End If
If ComboBox1.Value Is numerique Then
b = CDbl(Replace(a, ".", ","))
Else
End If
Me.Range("H5") = b
End Sub