VBA TextBox1 vers TextBox2, majuscule et espaces sur copie.Résolu

Question

Bonjour,

Je cherche à copier le contenue de TextBox1 dans TextBox2, la copie doit être en majuscule et doit avoir un espace entre les chiffres et les lettre.

Le contenue du TextBox1 peut-être le suivant:

aZetHd52B4005
158erT544P
123001
Btcht025890000001
TXXXXXX45
00547999BTb4563

Dans Module1 j'ai:

Public Function spacer(s As String) As String
    Dim i As Long, buf As String, L As Long
    L = Len(s)
    If L < 2 Then
        spacer = s
        Exit Function
    End If
    
    buf = Left(s, 1)
    For i = 2 To L
        v1 = Right(buf, 1)
        v2 = Mid(s, i, 1)
        If (v1 Like "[a-zA-Z]" And v2 Like "[0-9]") Or (v2 Like "[a-zA-Z]" And v1 Like "[0-9]") Then
            buf = buf & " "
        End If
        buf = buf & v2
    Next i
    
    spacer = buf
End Function

Dans UserForm1 j'ai:

TextBox1:

Private Sub TextBox1_Change()

Me.TextBox1 = Me.TextBox2

End Sub

TextBox2:

Private Sub TextBox2_Change()

Dim A As Variant
A = Me.TextBox2
A = UCase(A)
Me.TxetBox2 = A

spacer (TextBox2.Value)

End Sub

Je ne vois pas ce qui ne vas pas?

Pouvez-vous m'aider?

Bien cordialement

NeriXs · Answer

Ou avais-je la tête !!!

Private Sub TextBox1_Change()
    TextBox2 = spacer(TextBox1.Value)
    TextBox2 = UCase(TextBox2.Value)
End Sub

Whismeril · Answer

Tu peux directement écrire

TextBox2.Value = UCase(spacer(TextBox1.Value))

Et j'insiste sur la mauvaise pratique de passer par la conversion implicite

NeriXs · Answer

Dans ce cas-là je pourrais l'écrire:

TextBox2.Text = UCase(spacer(TextBox1.Text))

Concernant "Option Strict" ça reste assez obscure.
Avec "Option Strict" avec le code ci-dessus je ne parviens pas à tout déclarer correctement pour que ça passe.

VBA TextBox1 vers TextBox2, majuscule et espaces sur copie.

3 réponses

Votre réponse

Discussions similaires