Salut JM le Ch'ti, salut Greg
Heu oui JM, le fichier que tu as joint est peut-être interressant pour Greg, mais je ne vois aucun paramètre de vérification de l'intégrité des données saisies dans les TextBox (?)
Pour Greg, je propose simplement cet exemple tout simple, par contre il n'existe pas de Test "IsInteger" à ma connaissance :
Matériel nécessaire :
1 UserForm Avec :
1 TextBox1
1 CommandButton1
Ce Code dans le Private Module du Userform en Question
Private Sub UserForm_Initialize()
Me.TextBox1 = Sheets("Sheet1").Range("A1")
End Sub
Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1) Then
If (Me.TextBox1) - Int(Me.TextBox1) = 0 Then
Sheets("Sheet1").Range("A1") = CLng(Me.TextBox1)
Else: GoTo Out
End If
Else: GoTo Out
End If
Exit Sub
Out:
MsgBox "Non Numérique entier"
End Sub
Ce code ne devrait pas laisser passer aucune valeur n'étant pas un nombre entier
Bon Aprèm
@+Thierry