Bonjour tout le monde,
Je suis entrain de créer un petit interface me remplissant un tableau excel. J'ai des zones de texte dans lesquelles je dois entrer des valeurs numériques comprises entre certaines valeurs. Voila le bout de code que j'ai utilisé mais ça ne fonctionne pas. Je pense que cela est dut au fait que mon " UserForm1.TextBox1.Text " n'est pas du bon type.
Private Sub TextBox1_Change()
Dim Valeur_A As Single
Valeur_A = UserForm1.TextBox1.Text
If Valeur_A > 1.8 Or Valeur_A < 1.35 Then
MsgBox "La valeur saisie est hors tolérance standard;" & Chr(10) & "Veuillez entrer une valeur comprise entre 1,35 et 1,8 mm "
Exit Sub
Else
Range("A2").Select
ActiveCell.Value = UserForm1.TextBox1.Text
End If
End Sub
Je vous remercie d'avance du temps que vous prendrez à lire ma question. En espérant une réponse.
Amicalement,