probleme de textbox

[Hervé]

bonjour tout le monde,

Je me suis enfin mis au vba pour excel, grace a tous les fils de ce forum, je devrais pouvoir progresser. Mais dans mon programme une erreur (ci-joint) survient lorsque je doit effacer la boite age. Aussi j'ai pensé qu'une ame charitable viendrait à mon secours.

de plus je recherche le code me permettant d'interdir la saisie d'une donnée non numérique dans une textbox.

A tous je vous remercie par avance de votre aide.

salut.

PS : ceci est mon premier programme.

 

[@+Thierry]

Bonjour Hervé, le Forum

Désolé mais pour Sécurité du bureau pas le droit de télécharger quoique ce soit, donc je ne peux voir ton premier programme. Je pense que tu auras bientôt une réponse pour ce bug.

Mais par contre :

Sinon pour ta seconde question voici ce qu'il te faut comme code permettant d'interdir la saisie d'une donnée non numérique dans une TextBox :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(TextBox1) Then
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(TextBox1.Text)
End With
End If
End Sub

Bon App
@+Thierry

 

[michel]

bonjour Hervé

tu peux tester les deux macros ci dessous pour controler la saisie de valeurs numeriques dans un textbox

'avec la virgule non valide(entier)
Private Sub textBox1_Change()
On Error Resume Next
If Not isNumeric(Right(textBox1, 1)) Then
msgBox "Le caractere saisi n'est pas valide"
textBox1 = Left(textBox1, Len(textBox1) - 1)
End If
End Sub

ou

'avec la virgule valide(décimal)
Private Sub textBox1_Change()
On Error Resume Next
If Not isNumeric(Right(textBox1, 1)) And Right(textBox1, 1) <> "," Then
msgBox "Le caractere saisi n'est pas valide"
textBox1 = Left(textBox1, Len(textBox1) - 1)
End If
End Sub


bon apres midi
michel

 

[michel]

oouuppss

bonjour @+Thierry

excuses moi nos messages se sont croisés ...

bonne journée à toi
michel

 

[michel]

rebonjour Hervé et @Thierry

pour la premiere partie de ta question tu peux essayer :

Private Sub age_Change()
If Not age = "" Then Label3.Caption = 2004 - age
End Sub


bon apres midi
michel

 

[hervé]

Merci à michel et à thierry pour votre réponse précise et rapide.

Mon problème est résolu et j'ai découvert les msgbox.

encore merci à vous

salut

ps : mon programme (enfin !!!! debut de programme plutôt) est surement critiquable alors n'hésiter pas. Toute suggestion est la bien venue.

 

[Hervé]

Merci à Thierry et à michel pour vos réponses rapides et précises

Mon problème est résolu.

mais je reste ouvert à toutes propositions pour améliorer mes débuts.

salut tout le monde.