king_moez
Messages postés25Date d'inscriptionsamedi 21 octobre 2006StatutMembreDernière intervention11 avril 2008
-
26 avril 2007 à 22:11
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 2014
-
28 avril 2007 à 15:37
Salut tout le monde
Est ce que quelqu'un peut me donner le code de verification d'un CIN :
dans ce champ text je veux ue lorsque tu tape une lettre ou autre chose qu'un numero , sa ne s'ecrit pas en plus je veux que la limite de ce qhamps ne dépasse pas 8num sa veux dire lorsque je tape le 9eme numero il ne s'ajoute pas .
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 26 avril 2007 à 23:53
Coucou !
Alors voilà :
Private Sub Text1_Change()
' ======tu choisis là ton séparateur, comme tu l'entends, entre la , et le .
' =====il t'accepteras mêle l'espace comme séparateur de milliers (je peux aussi l'empêcher, 'si tu veux force_sep = "," ' <<<<==== ici
Static titi As String
If Not IsNumeric(transform(Text1) & "1") Or (toto > 0 Or Text1.Text Like "*[A-z]*") Then
Text1.Text = titi
Text1.SelStart = Len(Text1.Text)
End If
If force_sep <> "" Then If force_sep "," Then sep "." Else sep = "," If InStr(Text1.Text, sep) > 0 Then Text1.Text titi: Text1.SelStart Len(titi): Exit Sub
End If
titi = Text1.Text
End Sub
Private Function transform(ctrl As TextBox)
titi = ctrl.Text
For i = 1 To Len(titi)
If Mid(titi, i, 1) = "." Then
Mid(titi, i, 1) = ","
End If
Next
transform = titi
DoEvents
End Function
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 27 avril 2007 à 00:03
Bon...
C'est l'heure de mon dodo...
Si tu veux, Mortalino, je t'expliquerai demain par MP comment, maintenant, on peut carrément laisser le chois à l'utilisateur (de son séparateur, comme il l'entend, avec son confort, et sans l'obliger à "renseigner" sur ce choix). L'outil comprendra seul...
L'intérêt ?
Il saisit à sa convenance.
Bien évidemment : on bascule toujours (si l'on doit ensuite sauvegarder) avec le séparateur ., quel que soit celui qu'il aura saisi... et toujours sans la moindre faille...
Bonne nuit à tous.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 27 avril 2007 à 00:15
Arf, j'avais pas vu le dernier message de la page précédante.
Tu te donnes du mal la modif en rouge depuis ton code initial suffit :
Private Sub Text1_Change()
Static titi As String
toto = InStr(Text1.Text, ",") + InStr(Text1.Text, ".")
If Not IsNumeric(Text1.Text & "1") Or (toto < 0 Or Text1.Text Like "*[A-z]*") Then
Text1.Text = titi
Text1.SelStart = Len(Text1.Text)
End If
titi = Text1.Text
End Sub
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 27 avril 2007 à 07:21
Ouais...
J'étais plutôt mal en point, hier soir ...
Voilà ce qui suffit pour des chiffres uniquement, sans séparateur :
Private Sub Text1_Change()
Static titi As String
If Not Text1.Text & "1" Like "*[0-9]#" And Len(Text1.Text) > 0 Then
Text1.Text = titi
Text1.SelStart = Len(Text1.Text)
End If
titi = Text1.Text
End Sub
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 27 avril 2007 à 07:48
Et encore plus simple, donc (je me réveille) :
Private Sub Text1_Change()
Static titi As String
If "1" & Text1.Text & "1" Like "*[0-9]#" Then titi = Text1.Text Text1.Text titi: Text1.SelStart Len(Text1.Text)
End Sub
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 27 avril 2007 à 14:16
Bon...
Je vais faire et déposer une source traitant la saisie :
- des numériques sans séparateur
-des nombres avec séparateur et choix de séparateur
- de caractères alphapétiques uniquement et
- a) en minuscules uniquement
- b) en majuscules uniquement
- de caractères alphabétiques et numériques uniquement
le tout avec l'événement change, acceptant les effacements arrières et contrôlant la cohérence des copier-coller.
Je déposerai plus tard la même chose en ce qui concerne les dates et heures.