Détection caractère dans textbox

gilbert_RGI

XLDnaute Barbatruc

• 25 Avril 2010

• #2

Re : Détection caractère dans textbox

bonjour

un truc dans le genre

Code:

Private Sub TextBox1_Change()
On Error Resume Next
    Select Case Asc(Right(TextBox1.Value, 1))
    Case 48 To 57, 65 To 90, 97 To 122 ' mettre ici les n° de caractère à autoriser
        Exit Sub
    Case Else
    MsgBox "erreur de saisie : " & Right(TextBox1.Value, 1)
    lg = Len(TextBox1.Value)
    TextBox1.Value = Left(TextBox1.Value, lg - 1)
    End Select
    
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Avril 2010

• #3

Re : Détection caractère dans textbox

Re RUdy, bonjour Gilbert

une autre solution avec l'événement "exit" et l'opérateur "like" :

Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not TextBox1.Value Like "*P*" Then
    MsgBox "saidie invalide"
    TextBox1.SetFocus
End If
End Sub

le test recherche P dans la totalité du contenu, si tu veux controler uniquement que P est la première lettre saisie, supprime le premier astérisque...

@+

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 25 Avril 2010

• #4

Re : Détection caractère dans textbox

Bonjour gilbert_RGI et merci pour la réponse,
par contre je ne vois pas trop pour le numéro des caractères.

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 25 Avril 2010

• #5

Re : Détection caractère dans textbox

Re Pierrot93, je voudrais plutôt faire un truc comme cela :

Private Sub TextBox1_Change()
If TextBox1.Value Like "*P*" Then
......
End If
End Sub

est ce possible?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 25 Avril 2010

• #6

Re : Détection caractère dans textbox

faire F1 pour avoir l'aide et rechercher "Table des caractères ASCII"

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 25 Avril 2010

• #7

Re : Détection caractère dans textbox

gilbert_RGI, merci pour l'info, je ne connaissais pas.
Cependant je m'oriente plus vers une soluce comme Pierrot93.
Pierrot93 j'ai essayé

Code:

Private Sub TextBox1_Change()
If TextBox1.Value Like "*P*" Then
......
End If
End Sub

mais ça n'a pas l'aire de marcher

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Avril 2010

• #8

Re : Détection caractère dans textbox

Re,

oui c'est possible, mais en l'état tu testes à chaque modification qu'il y a bien un P dans la "textbox"... Si c'est ce que tu veux.... fait un test...

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 25 Avril 2010

• #9

Re : Détection caractère dans textbox

Pierrot93 à dit:

Re,

oui c'est possible, mais en l'état tu testes à chaque modification qu'il y a bien un P dans la "textbox"... Si c'est ce que tu veux.... fait un test...

Cliquez pour agrandir...

bonjour Pierrot

le "TextBox1_Exit" n'existe pas dans toutes les "textbox" !!!!!

 

Dernière édition: 25 Avril 2010

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 25 Avril 2010

• #10

Re : Détection caractère dans textbox

J'ai testé cela:

Code:

Private Sub TextBox3_change()
If TextBox3.Value Like "*P*" Or TextBox3.Value Like "*Q*" Then
    MsgBox ("P/Q")
End If
If TextBox3.Value Like "*U*" Then
    MsgBox ("U")
End If
End Sub

mais ça ne fonctionne pas

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Avril 2010

• #11

Re : Détection caractère dans textbox

Re,

@Gilbert
là je suis parti d'un "textbox" utilisé dans un USF, maintenant si c'est autre chose, à Rudy de le préciser...

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 25 Avril 2010

• #12

Re : Détection caractère dans textbox

La textbox est bien dans un USF et est rempli automatiquement en fonction de la valeur d'une autre textbox ce qui fait que ce n'est pas moi qui saisi le contenu.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Avril 2010

• #13

Re : Détection caractère dans textbox

Re

ce code fonctionne chez moi, si P ou Q saisie le message est bien donné... A noter dans mon premier code, il y avait un "not", fonction de ce que j'avais compris de ta question...

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 25 Avril 2010

• #14

Re : Détection caractère dans textbox

Merci Pierrot93 mais ça confirme ce que je pense:
Je ne saisie pas le contenu de cette textbox, le contenu est rempli automatiquement en fonction du contenu d'une combobox;

Je met mon fichier en exemple

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Avril 2010

• #15

Re : Détection caractère dans textbox

Re

ton fichier n'est pas passé...

 

Vote positif 0 Vote négatif