Discussion :

[rampage92]

Bonjour a tous,

Je voudrais blinder mon programme et pour cela j'aurai besoin que lorsque l'utilisateur ecrive a l interieur, un message d erreur s'affiche. Je sais que cette question doit etre recurrente mais je galere depuis pas mal de temps.

Merci pour votre aide

[unparia]

Bonjour
sujet plus que récurrent. As-tu commencé par une recherche sur ce site (qui est doté d'un moteur de recherche) ?
As-tu seulement lu les liens qui s'affichent au bas-même de la présente page ?
Merci de commencer par cela.

[pijaku]

Bonjour,

En complément de la réponse d'unparia (salutations l'ami) :
> cliquer sur le bouton "TUTORIELS EXCEL"
> Descendre dans la page pour trouver le SOMMAIRE
> Dans la rubrique : Programmation avec Microsoft Excel cliquer sur : UserForms et contrôles
> cliquer sur le lien : Obliger une saisie numérique dans une TextBox
> Lire le tutoriel de Didier Gonard

[Invité]

Bonsoir,
Pour information, les âneries que veut bien saisir l'utilisateur, c'est pas ton problème!

Si tu le laisses valider ses âneries, ça devient ton problème.

Qualifies le données saisies au moment de la validation.

[patricktoulon]

re
oui des exemples il y en a a foison

2 exemples les plus simples
baser sur le keyascii

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'sep = 46 'si on veut que le point
sep = 44 ''si on veut que la virgule
If KeyAscii <> sep Then
If KeyAscii = sep Or (KeyAscii < 47 Or KeyAscii > 57) Then KeyAscii = 0
End If
End Sub

basé sur le caractere par chr(keyascii)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
char = ".0123456789"
char = ",0123456789"
If Not char Like "*" & Chr$(KeyAscii) & "*" Then KeyAscii = 0
End Sub

dans le module userform
ce sont des évènement des control type textboxs