modification d'une cellule via une textbox et plus...

[greg]

Bonjour tout le monde (une nouvelle fois)...

Ma demande est claire (ca change), j'aurai voulu modifier la valeur d'une cellule en écrivant cette valeur dans une textbox inscite dans ma userform..et je n'arrive pas à le faire...

De plus, je souhaite indiquer un message d'erreur pour une autre textbox si l'entrée que l'on y fait n'est pas un nombre entier, j'avais deja noté :

If IsInteger (textbox1.value) then

blablabla

else: Msgbox"Indiquer un nombre entier"

end if

ca ne fonctionne pas.....mais...pourquoi...sniff...merci d'avance...Greg

 

[le CH'TI160]

Bonsoir le Forum

Salut GREG

je te joint un fichier récupéré sur ce forum il y a peu je pense que l'auteur ne m'en voudra pas

Jean Marie

A+++

 

[@+Thierry]

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

 

[greg]

Merci encore pour toutes vos réponses en effet thierry ca marche ...c'est parfait je vais pouvoir rentrer serein...bon week-end à tous et à toutes Greg