Bonjour,
Pas sûr d'avoir bien compris !
De ce que j'en ai compris, tu veux seulement les lettres en majuscule et les caractères (chiffres et lettres) uniques, c'est ça ?
Donc "ABC123" ---> OK mais "AA22" ---> pas OK !
A tester :
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
'majuscules
Case 65 To 90 'ne rien faire !
'minuscules
Case 97 To 122: KeyAscii = KeyAscii - 32 'en majuscule
'chiffres
Case 48 To 57 'ne rien faire !
'tout autre caractère interdit
Case Else: KeyAscii = 0
End Select
'empêche une seconde saisie de la même lettre ou chiffre
If InStr(TextBox1.Text, Chr(KeyAscii)) <> 0 Then KeyAscii = 0
End Sub