Bonjour le formum.
Je souhaiterai apporter une modification sur un code VBA.
Dans un UserForm, je saisis un certain nombre de données dans des textbox. J'ai bloqué la saisie de valeurs non numériques.
Cependant, je souhaiterai pouvoir saisir des valeurs avec virgules.
Dim OK As Boolean, TB As Variant, LR&
OK = True 'initialise la valiable "OK"
For Each TB In Me.Controls
If TB.Name <> "TextObservations" Then
If TypeOf TB Is MSForms.TextBox And Not IsNumeric(TB) Then
OK = False
TB.Value = ""
End If
End If
Next TB
If OK = False Then
MsgBox "Merci de renseigner des valeurs numériques dans les champs vides !", vbCritical
Else
With Worksheets("XXXX")
LR = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
.Cells(LR, 3) = Now
.Cells(LR, 4) = XXX * 1
.Cells(LR, 5) = XXX * 1
....
....
Ce code ouvre un msgbox lorsque qu'une valeur non numérique est saisie.
Je voudrais qu'il n'empêche pas la saisie de valeurs à virgules.
Merci par avance de toute pistes,
Cdlt,