XL 2016 If TextBox contient uniquement du texte

[Victor42]

Bonjour,
Sa peut paraître simple mais je ne trouve pas la solution à mon problème.
Je dois vérifier que ma textbox ne contient QUE des lettres, n'est pas vide et fait bien 3 caractères.
Voici mon code :

'Trigramme
If Trigramme = "" Then
    MsgBox "Veuillez renseigner le trigramme de l'opérateur dans l'onglet Mouvements de stock"
ElseIf Len(Trigramme) <> 3 Then
        MsgBox "Le trigramme que vous avez rentré fait " & Len(Trigramme) & " caractères." & Chr(13) & _
            "Il en faut 3 !" & vbCrLf & "Exemple : VDL" & Chr(13) & "Recommencer...", 16
        Exit Sub
ElseIf IsText(Trigramme) Then
    Else
    MsgBox Trigramme.Text & "Veuillez saisir uniquement des lettres"
End If

Quand je test sa me dit que IsText Sub ou fonction non défini...
Merci de votre aide,

 

[vgendron]

hello
j'ai regardé ton fichier que tu avais posté dans l'autre sujet..
c'est quoi Trigramme ??
il n'y a aucun controle sur le userform portant ce nom..

 

[Victor42]

Trigramme est un textbox ou il doit y être inscrit 3 lettres désignant une personne et je n'arrive pas à faire un contrôle pour avoir uniquement des lettres.
J'ai rajouté les contrôles hier, c'est normal qu'ils n'y sont pas

 

[thebenoit59]

Bonjour Victor.

En bouclant les différents caractères de ta valeur.

'Trigramme
If Trigramme = "" Then
    MsgBox "Veuillez renseigner le trigramme de l'opérateur dans l'onglet Mouvements de stock"
ElseIf Len(Trigramme) <> 3 Then
        MsgBox "Le trigramme que vous avez rentré fait " & Len(Trigramme) & " caractères." & Chr(13) & _
           "Il en faut 3 !" & vbCrLf & "Exemple : VDL" & Chr(13) & "Recommencer...", 16
       Exit Sub
Else
   For i = 1 to 3
     If IsNumeric(Mid(Trigramme, i, 1)) then
       MsgBox Trigramme.Text & "Veuillez saisir uniquement des lettres"
       Exit Sub
     End If
   Next i
End If

 

[youky(BJ)]

Bonjour à tous,
Pour savoir si il y a du numeric dans Trigramme
Voici une solution simple
If Val(Trigramme) > 0 Then MsgBox "Pas de chiffres": Exit Sub

Bruno

Désolé......... ce code fonctionne que si les chiffres sont en premier

 

[thebenoit59]

Bonjour Bruno.
Si nous avons Trigramme = "TE0" Val nous donnera bien 0 non ?

 

[G.David]

for t=1 to len(trigramme)
if chr$(mid(trigramme,t,1)<65 or chr$(mid(trigramme,t,1)>90 then
msgbox "trois lettres majuscule...S.V.P."
endif

 

[G.David]

Bonjour Bruno.
Si nous avons Trigramme = "TE0" Val nous donnera bien 0 non ?

normalement les textbox sont tous en valeur texte même 999 en TextBox devrait donné une valeur numérique de 0
il faut preciser ce que doit retourner le TB Cbyte, Clng, Cdbl, Cdate,Cstr étant la valeur par défaut

 

[thebenoit59]

normalement les textbox sont tous en valeur texte même 999 en TextBox devrait donné une valeur numérique de 0

Merci pour l'information, je ne savais pas

 

[G.David]

Merci pour l'information, je ne savais pas

c'est en se demandant pourquoi que ça ne marche pas qu'on se retrouve à se poser des question

 

[job75]

Bonsoir à tous,

Quelle que soit la manière dont la TextBox Trigramme est alimentée, manuellement, par copier-coller ou par macro, ce code élimine les chiffres et conserve au maximum 3 lettres :

Dim t$, i As Byte
t = Trigramme
For i = 0 To 9
t = Replace(t, i, "")
Next
Trigramme = Left(t, 3)

On peut par exemple le mettre dans la macro Private Sub Trigramme_Change.

A+

 

[youky(BJ)]

Bonsoir tous,
Encore une autre façon de faire...
Ce déclenche dès l'appuis sur une touche en Trigramme
Seul les lettres de a-z ou A -Z peuvent être mis

Private Sub Trigramme_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(Trigramme) > 2 Then KeyAscii = 0: Exit Sub
If KeyAscii > 90 And KeyAscii < 97 Then KeyAscii = 0
If KeyAscii > 64 And KeyAscii < 123 Then
Exit Sub
End If
KeyAscii = 0
End Sub

Bruno

 

[Victor42]

Merci à tous pour votre participation,
Je retiens la dernière solution de Bruno qui me convient le mieux.
Merci encore

 

[job75]

Bonjour le fil, forum,

L'évènement KeyPress ne va pas si l'on alimente Trigramme par copier-coller.

Cette macro ne retient que les lettres de l'alphabet et les met en majuscules :

Private Sub Trigramme_Change()
Dim t$, i%, j%, x$, n As Byte
t = Trigramme
For i = 1 To Len(t)
  j = Asc(Mid(t, i, 1))
  If j > 64 And j < 91 Or j > 96 And j < 123 Then
    x = x & Chr(j)
    n = n + 1
    If n = 3 Then Exit For
  End If
Next
Trigramme = UCase(x) '3 lettres en majuscules
End Sub

Bonne journée.

 

[Victor42]

Effectivement merci job75 ton code marche à la perfection