1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub TextBox1_Change() '--->> ne recevra que des majuscules non accentuées, espaces et/ou tirets (pour les patronymes composés) et apostrophes (hé oui, commme D'HUMIERES, par exemple)
TextBox1.Text = controle(TextBox1, "*[!A-Z '-]*", "patronyme")
End Sub
Private Sub TextBox2_Change() '--->> ne recevra que des lettres (accentuées ou non) , espaces, virgules et tirets (de qui écrire des prénoms, quoi)
TextBox2.Text = controle(TextBox2, "*[!A-zâàéèîîôù, -]*", "prenom")
End Sub
Private Sub TextBox3_Change() '--->> ne recevra que des lettres (accentuées ou non) et des chiffres
TextBox3.Text = controle(TextBox3, "*[!A-zâàéèîîôù0123456789]*")
End Sub
Private Sub TextBox4_Change() '--->> ne recevra que des chiffres
TextBox4.Text = controle(TextBox4, "*[!0-9]*")
End Sub
Private Function controle(T As MSForms.TextBox, flt As String, Optional style As String) As String
If style = "patronyme" Then T.Text = UCase(T.Text)
If style = "prenom" Then T.Text = StrConv(T.Text, vbProperCase)
If T.Text Like flt Then controle = T.Tag: Exit Function
T.Tag = T.Text: controle = T.Tag
End Function |
Partager