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 : Sélectionner tout - Visualiser dans une fenêtre à part
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