Erreur Excel change point par virgule

Bonjour,

Pour finaliser mon projet j'ai un petit problème entre les points et les virgules.

Mon fichier est trop important, je vais essayer d'être clair pour que vous puissiez comprendre mes attentes.

J'ai un tableur excel avec des renseignement numérique à deux décimales séparé par un point.

Mon userform me permet de récupéré les informations d'une ligne et les inscrit dans de nombreux textbox.

Seulement dans des cellule j'ai des valeur sous cette forme : 15.30 et c'est ce que je devrais retrouver. Seulement quand il m'extrait les informations j'ai des valeurs sous cette fomr 15,3.

Je ne sais pas comment faire pour qu'il puisse extraire les valeur indiqué tel quelle.

Voici mon code d'extraction :

Private Sub Combobox1_Click()
Dim quoi As Variant
Dim trouve As Range
quoi = ComboBox1
With Sheets("feuil1").Range("c15:c65536")
Set trouve = .Find(quoi, lookat:=xlWhole)
If Not trouve Is Nothing Then
On Error Resume Next
TextBox39 = trouve.Hyperlinks(1).Address
On Error GoTo 0
TextBox1 = trouve.Offset(0, -2)
TextBox2 = trouve.Offset(0, -1)
TextBox3 = trouve.Offset(0, 1)
TextBox4 = trouve.Offset(0, 3)
TextBox5 = trouve.Offset(0, 4)
TextBox6 = trouve.Offset(0, 5)
TextBox7 = trouve.Offset(0, 6)
TextBox8 = trouve.Offset(0, 7)
TextBox9 = trouve.Offset(0, 8)
TextBox10 = trouve.Offset(0, 9)
TextBox11 = trouve.Offset(0, 10)
TextBox12 = trouve.Offset(0, 11)
TextBox13 = trouve.Offset(0, 12)
TextBox14 = trouve.Offset(0, 13)
TextBox15 = trouve.Offset(0, 14)
TextBox16 = trouve.Offset(0, 15)
TextBox17 = trouve.Offset(0, 16)
TextBox18 = trouve.Offset(0, 17)
TextBox19 = trouve.Offset(0, 18)
TextBox20 = trouve.Offset(0, 19)
TextBox21 = trouve.Offset(0, 20)
TextBox22 = trouve.Offset(0, 21)
TextBox23 = trouve.Offset(0, 22)
TextBox24 = trouve.Offset(0, 23)
TextBox25 = trouve.Offset(0, 24)
TextBox26 = trouve.Offset(0, 25)
TextBox27 = trouve.Offset(0, 26)
TextBox28 = trouve.Offset(0, 27)
TextBox29 = trouve.Offset(0, 28)
TextBox30 = trouve.Offset(0, 29)
TextBox31 = trouve.Offset(0, 30)
TextBox32 = trouve.Offset(0, 31)
TextBox33 = trouve.Offset(0, 32)
TextBox34 = trouve.Offset(0, 33)
TextBox35 = trouve.Offset(0, 34)
TextBox36 = trouve.Offset(0, 35)
TextBox37 = trouve.Offset(0, 36)

If trouve.Offset(0, 2) = OptionButton1.Caption Then
                OptionButton1.Value = 1
ElseIf trouve.Offset(0, 2) = OptionButton2.Caption Then
                OptionButton2.Value = 1
ElseIf trouve.Offset(0, 2) = OptionButton3.Caption Then
                OptionButton3.Value = 1
ElseIf trouve.Offset(0, 2) = OptionButton4.Caption Then
                OptionButton4.Value = 1
ElseIf trouve.Offset(0, 2) = OptionButton5.Caption Then
                OptionButton5.Value = 1
ElseIf trouve.Offset(0, 2) = OptionButton6.Caption Then
                OptionButton6.Value = 1

End If
End If
End With
End Sub

Pouvez vous m'aider ?

Merci

Bonjour

Il faut aussi répondre à ceux qui essaient de t'aider

https://forum.excel-pratique.com/excel/probleme-compilation-macro-t62954.html

Cordialement

Bonjour,

Oui excuse moi je n'avais pas fait attention à l'autre post ! merci bien

Du coup, sais tu comment mon problème peux être solutionné ?

Cdlt