Valeur numérique dans un textbox

Bonjour,
J'ai un soucis lorsque je rentre des valeurs numériques dans mes TextBox, l'affiche dans les cellules ne se fait pas correctement, voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub VALIDER()   Dim DerniereLigne   Application.ScreenUpdating = False   Sheets("TEST").Activate DerniereLigne = Range("A65536").End(xlUp).Row + 1   Cells(DerniereLigne, 2).Select ActiveCell.Value = TextBox3.Value Cells(DerniereLigne, 3).Select ActiveCell.Value = TextBox4.Value   End Sub     Private Sub Textbox3_Change()   TextBox3 = Replace(TextBox3.Value, ".", ",")   End Sub     Private Sub Textbox4_Change()   TextBox4 = Replace(TextBox4.Value, ".", ",")   End Sub

---

Par exemple si je rentre 20,000 dans mon TextBox, dans la cellule concernée j'ai : 20000,000. Vous l'aurez compris, je veux le même chiffre dans ma cellule que celui contenu dans le TextBox.
Merci d'avance pour vos réponses

regarde le formatage de ta cellule click droit dessus puis "format de cellules"

apres pour plus de confort et ne pas t'ennuyer avec ca tu peux faire avaec une variable de type double
exemple dans l'evenement change du TBX

Code:

---

1 2 3 4 5

Private Sub TextBox1_Change() Dim x As Double x = Replace(TextBox1, ".", ",") Cells(1, 1) = x End Sub

---

Bonjour et merci pour ta réponse si rapide.
Cela ne change pas mon problème, il y a toujours un problème au niveau de l'affichage dans la cellule :(
En plus, à cause de mes textbox, je n'arrive pas à exécuté ce code correctement à la suite car il détecte pas correctement la valeur du textbox (après avoir testé en pas à pas) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sheets("TEST").Activate Val1 = Cells(9, 2).Value Val2 = Cells(9, 4).Value Val3 = Cells(9, 6).Value Val4 = Cells(9, 8).Value   If Val1 <= TextBox3.Value <= Val2 Then If Val3 <= TextBox4.Value <= Val4 Then Cells(Derniereligne, 9) = "CONFORME" Else Cells(Derniereligne, 9) = "NON CONFORME" End If Else Cells(Derniereligne, 9) = "NON CONFORME" End If

---

Bonjour à toi, Bonjour Patrick,

Personnellement, j'aurais directement informé la cellule

Code:

---

Worksheets("mawks").Cells(3, 5).Value = Replace(Txt_lavaleur.Value, ",", ".")

---

Ton 2ème code.
Emploie des noms de contrôle explicites, préfixés par des symboles en indiquant la nature
Ex : Txt_lemontant
L'activation de la feuille de travail ne sert à rien
Utiliser le bloc "With" afin de bien rattacher les objets Range
Dans tes conditions, plutôt que "If", utilise "Select Case".
Oblige toi à déclarer tes variables (Voir Menu Options du VBE). Tes modules débuteront toujours par "Option Explicit"

Ces précautions te feront écrire un code beaucoup plus clair donc compréhensible