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.
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.