Code répétitif pour modification de textbox

[blord]

Bonjour à tous,

Je cherche à appliquer ce code à plusieurs textbox de mon userform :

Private Sub TextBoxEntreeAMDim_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBoxEntreeAMDim.Value <> "" Then
        Select Case TextBoxEntreeAMDim.TextLength
            Case 1
            TextBoxEntreeAMDim.Value = "0:0" & TextBoxEntreeAMDim
            Case 2
            TextBoxEntreeAMDim.Value = "0:" & Mid(TextBoxEntreeAMDim, 1, 2)
            Case 3
            TextBoxEntreeAMDim.Value = Mid(TextBoxEntreeAMDim, 1, 1) & ":" & Mid(TextBoxEntreeAMDim, 2, 2)
            Case 4
            TextBoxEntreeAMDim.Value = Mid(TextBoxEntreeAMDim, 1, 2) & ":" & Mid(TextBoxEntreeAMDim, 3, 2)
        End Select

        If Not IsDate(Format(TextBoxEntreeAMDim, "h:mm")) Then
            MsgBox "Heure invalide"
            TextBoxEntreeAMDim.Value = ""
            Cancel = True
        End If
    End If
End Sub

Il est certain que je pourrais appliquer le code pour chacun des textbox du userform mais cela fait beaucoup de lignes de code.

Serait-il possible de faire cela en utilisant une fonction par exemple afin d'éviter la répétition du code ?

Merci beaucoup pour votre aide et un joyeux temps des fêtes à tous !

Benoit Lord

 

[Paritec]

Re : Code répétitif pour modification de textbox

bonjour Blord, le forum
il faut utiliser un module de classe, mais si tu ne donnes pas le fichier avec l'userform, moi je ne saurai pas faire
a+
Papou 😱