Bonjour à tous,
je cherche à créer en Vba quelques lignes qui me permettront d'obliger les utilisateurs à respecter un certain format. Ce format est du type :
premier caractère une lettre comprise entre A et G et en Majuscule
deuxième caractère un nombre compris entre 1 et 10 inclus
donc je veux obtenir par exemple B8 et interdire par exemple L15
le bout de code, ci - dessous, me permet de répondre à mon premier désir. mais comment puis-je poursuivre pour répondre à la suite ? En effet la difficulté, tout au moins pour moi, est due au fait que je passe d'une lettre à un chiffre.
Private Sub Tbox_situation_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim caractere As String
' on interdit toutes lettres autres que a, b, c, d, e, f ou g
If (KeyCode < 65 Or KeyCode > 71) Then
If Tbox_situation <> "" Then Tbox_situation = Left(Tbox_situation, Len(Tbox_situation) - 1)
End If
' on force l'écriture en majuscule du caractère accepté
caractere = KeyCode.Value
KeyAscii = Asc(UCase(caractere)
Tbox_situation.Text = UCase(Tbox_situation.Text)
End Sub
Merci et bonne soirée
Jacky