Microsoft 365 problème dans une textbox dans userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dubarre

XLDnaute Occasionnel
Bonjour à tous,

Je viens vers vous car j'ai un problème de code VBA dans textbox1.

Dans le userform3 quand je clique sur "optionbutton1" << numéro>> dans la textbox1, si je rentre un numéro qui n'est pas dans la base de données, il me met un message, ce que je souhaite.

Sur "optionbutton2" <<nom>> dans la textbox1, si je mets plus de 3 lettres, il me met le même message, ce qui n'est pas correct.

Est-il possible, dans le code suivant, de lui notifier que si ce sont des lettres, il ne doit pas réagir ?

VB:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Dim t$, Lig&
    With TextBox1
        If Len(.Value) = 4 Then KeyAscii = 0: Exit Sub
        t = Mid(.Value & Chr(KeyAscii), 1, 5)
        If Len(t) = 4 Then
            With Application: Lig = .IfError(.Match(Val(t), Feuil2.[B:B], 0), 0): End With
            If Lig = 0 Then
                MsgBox "CE NUMERO N'EXISTE PAS", vbExclamation, "A CHANGER": t = ""
            End If
        End If
        .Value = t
        KeyAscii = 0
    End With
End Sub
 

Pièces jointes

Bonjour
tout simplement
VB:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Dim t$, Lig&
    With TextBox1
       if not optionbutton2 then
If Len(.Value) = 4 Then KeyAscii = 0: Exit Sub
        t = Mid(.Value & Chr(KeyAscii), 1, 5)
        If Len(t) = 4 Then
            With Application: Lig = .IfError(.Match(Val(t), Feuil2.[B:B], 0), 0): End With
            If Lig = 0 Then
                MsgBox "CE NUMERO N'EXISTE PAS", vbExclamation, "A CHANGER": t = ""
            End If
        End If
        .Value = t
        KeyAscii = 0
    end if
End With
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
236
Réponses
9
Affichages
201
Réponses
4
Affichages
177
Réponses
10
Affichages
281
Réponses
4
Affichages
461
Réponses
5
Affichages
232
Retour