Ajout et recupération de valeurs dans combobox

[Boby94]

Bonjour à tous,

Je n'arrive pas comprendre ce qui bloque avec ma combobox.

Voici l'exemple du code

______________________________________________

Private Sub UserForm_Initialize()

ComboBox1.AddItem 204.8
ComboBox1.AddItem 512
ComboBox1.AddItem 1024

'Affiche la valeur par défaut
ComboBox1.Value = FrequenceNumerisation

End Sub

Private Sub valider_Click()

'Remplace la valeur par défaut
If ComboBox1 = "" Then
MsgBox "Veuillez séléctionnez une fréquence"
Exit Sub
Else
FrequenceNumerisation = ComboBox1.Value
Unload Me
End If

End Sub

_________________________________________________

Mon problème porte surtout sur le 204.8, lorsque j'ajoute la valeur dans la combobox, il me met 204,8 et ca me bloque lorsque je récupère cette valeur car mon fichier n'accepte que les "." en décimales.
J'ai essayer avec la fonction remplace( combobox, "," , "." ) mais j'ai une incompatibilité de type sur la ligne rouge.

FrequenceNumerisation étant une variable public single de mon fichier.

J'espère que quelqu'un pourrai m'aider sur ce problème.

Je vous remercie d'avance.

 

[porcinet82]

Re : Ajout et recupération de valeurs dans combobox

Salut,

Peut etre ca :

FrequenceNumerisation = Replace(ComboBox1.Value, ",", ".")

@+

 

[alex67800]

Re : Ajout et recupération de valeurs dans combobox

Bonsoir Boby94, Porcinet82,
ou peut-être ceci:

FrequenceNumerisation = ComboBox1.Text