XL 2010 Choix oui ou non dans TextBox

[mic6259]

Bonjour,
Serait-il possible que l'on puisse choisir oui ou non dans les TextBox 2 et 3, ou supprimer les TextBox et remplacer par une autre commande.
Fichier joint pour comprendre le sujet.
Merci beaucoup

 

[patricktoulon]

tiens comme ca vite fait sans masque de saisie

voila c'est simple ca repose sur l'interception du keyascii
et le textbox est toujours bloqué en fait (keyascii = toujours 0) mais pourtant tu tape les lettres
en fait c'est comme si on simulait l'event change dans le keypress qui lui se declenche AVANT L ECRITURE DE LA TOUCHE DANS LE TEXTBOX JE DIS BIEN AVANT

bon celui là est vite fait on perfectionne après



essaie donc voir de taper autres chose que oui ou non dans les textboxs

Function OuiNon(TXTB, KeyAscii)
    If Not "ouin" Like "*" & Chr(KeyAscii) & "*" Then KeyAscii = 0: Exit Function
    With TXTB
        t = .Value
        .SelStart = Len(t)
        Select Case Len(.Value)
        Case 0: If "no" Like "*" & Chr(KeyAscii) & "*" Then t = t & Chr(KeyAscii)
        Case 1: expr = IIf(t = "n", "o", "u"): If expr = Chr(KeyAscii) Then t = t & Chr(KeyAscii)
        Case 2: expr = IIf(t = "no", "n", "i"): If expr = Chr(KeyAscii) Then t = t & Chr(KeyAscii)
        End Select
        KeyAscii = 0
        .Value = Mid(t, 1, 3)
    End With
End Function


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    OuiNon TextBox1, KeyAscii
End Sub


Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    OuiNon TextBox2, KeyAscii
End Sub

et si je te fait un exemple avec un masque de saisie c'est encore plus simple
en tout cas pour moi

 

[Eric C]

Trop fort notre ami Patrick