Détection de format dans un textbox

[missLaura]

Bonjour,
Voila, je cherche à faire un programme qui me permet de détecter le format d'un mots saisi dans un textbox, je voudrais que cela m'affiche une fenêtre d'erreur lorsqu'il y a une majuscule dans le mots saisi, ou un chiffre, ou un espace.

Merci <3 <3 <3

 

[phlaurent55]

Re : Détection de format dans un textbox

Bonjous Miss Laura,

Voir fichier joint pour une première approche
à améliorer

à+
Philippe

 

[Hulk]

Re : Détection de format dans un textbox

Hello miss,

Tu peux essayer ce code...

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    'Empêche les espaces
    If KeyAscii = 32 Then
        KeyAscii = 0
        MsgBox "Espaces interdits !"
    End If
    
    'Empêche les chiffres
    If KeyAscii > 47 And KeyAscii < 58 Then
        KeyAscii = 0
        MsgBox "Chiffres interdits !"
    End If

    'Empêche les majuscules
    If KeyAscii > 64 And KeyAscii < 91 Then
        KeyAscii = 0
        MsgBox "Majuscules interdites !"
    End If

End Sub

Bon Week !

EDIT :

Oups slt Philippe, bon weekend à toi aussi

 

[missLaura]

Re : Détection de format dans un textbox

Merci beaucoup tout les 2. <3 <3 <3

 

[Staple1600]

Re : Détection de format dans un textbox

Bonsoir à tous

Je mets Hulk au régime

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32, 48 To 57, 65 To 90
KeyAscii = 0
MsgBox "Caractères interdits !"
End Select
End Sub

 

[missLaura]

Re : Détection de format dans un textbox

Juste une dernière chose, je voudrais aussi interdire les lettres.
Et aussi, pourriez vous me dire à koi correspondent tout ces chiffres pour le KeyAscii et je voudrais savoir aussi toute la liste des chiffres correspondants à d'autres interdiction si possible (enfin s'il n'y en a pas trop).

Merci <3 <3 <3

 

[Staple1600]

Re : Détection de format dans un textbox

Re

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32, 48 To 57, 65 To 90, 97 To 122
KeyAscii = 0
MsgBox "Caractères interdits !"
End Select
End Sub

Pour comprendre le pourquoi des chiffres, lances cette macro

Sub test_chr()
Dim i&
For i = 32 To 122
Select Case i
Case 32, 48 To 57, 65 To 90, 97 To 122
Cells(i, 1) = Chr(i)
Cells(i, 2) = Asc(Cells(i, 1))
End Select
Next i
Columns("A:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Ou celle-ci

Sub test_chr_formules()
With ActiveSheet
    With .Cells(1, 1).Resize(255, 1)
        .Formula = "=ROW()": .Value = .Value
    End With
    .Cells(1, 2).Resize(255, 1).FormulaR1C1 = "=CHAR(RC[-1])"
    .Cells(1, 3).Resize(255, 1).FormulaR1C1 = "=CODE(RC[-1])"
    .Range("A1:A31,A33:A47,A58:A64,A91:A96,A123:A255").EntireRow.Delete
End With
End Sub

 

[missLaura]

Re : Détection de format dans un textbox

Merci pour toutes ces info, vous êtes formidables !
<3 <3 <3

 

[Hulk]

Re : Détection de format dans un textbox

Hello,

Voilà un lien où tu trouveras la table des caractères Ascii.

Bonne fin de soirée !

 

[Pierrot93]

Re : Détection de format dans un textbox

Bonjour à tous

tu peux également trouver la liste des caractères dans l'aide de l'éditeur vba en tapant "jeux de caractères", tout du moins sous 2003.

bonne journée
@+