Détection de format dans un textbox

missLaura

XLDnaute Junior
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

Nous a quittés en 2020
Repose en paix
Re : Détection de format dans un textbox

Bonjous Miss Laura,

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

à+
Philippe
 

Pièces jointes

  • 111.xls
    34.5 KB · Affichages: 49
  • 111.xls
    34.5 KB · Affichages: 55
  • 111.xls
    34.5 KB · Affichages: 57
Dernière édition:

Hulk

XLDnaute Barbatruc
Re : Détection de format dans un textbox

Hello miss,

Tu peux essayer ce code...
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 ;)
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re : Détection de format dans un textbox

Bonsoir à tous

Je mets Hulk au régime ;)

Code:
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

XLDnaute Junior
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

XLDnaute Barbatruc
Re : Détection de format dans un textbox

Re


Code:
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
Code:
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
Code:
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
 
Dernière édition:

Discussions similaires

Réponses
13
Affichages
320
  • Question
Microsoft 365 Excel365
Réponses
2
Affichages
258

Statistiques des forums

Discussions
312 896
Messages
2 093 387
Membres
105 716
dernier inscrit
jrmdprt