Détection caractère dans textbox

[rudymagny]

Re Bonjour le forum,
Voilà j'ai une textbox avec un texte et je voudrais contrôler qu'il y a un caractère dans celle ci.

Exemple :
Dans ma textbox j'ai P.MT1 ou P ou P.MT2 et je voudrais faire un contrôle du type :

If Textbox.value contient P then
.....
end if

merci d'avance

 

[gilbert_RGI]

Re : Détection caractère dans textbox

bonjour

un truc dans le genre

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

 

[Pierrot93]

Re : Détection caractère dans textbox

Re RUdy, bonjour Gilbert

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

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...

@+

 

[rudymagny]

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.

 

[rudymagny]

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?

 

[gilbert_RGI]

Re : Détection caractère dans textbox

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

 

[rudymagny]

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é

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

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

 

[Pierrot93]

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...

 

[gilbert_RGI]

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...

bonjour Pierrot

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

 

[rudymagny]

Re : Détection caractère dans textbox

J'ai testé cela:

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

 

[Pierrot93]

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...

 

[rudymagny]

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.

 

[Pierrot93]

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...

 

[rudymagny]

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

 

[Pierrot93]

Re : Détection caractère dans textbox

Re

ton fichier n'est pas passé...