Module de classe sur textbox

Bonjour,

Dans le projet que je développe, j'ai un bon nombre d'userform où j'ai des textbox pour des saisies de numéros de téléphones.

Je me suis dit qu'il était l'heure de me lancer dans les modules de classe...

Après avoir parcouru pas mal d'exemples traitant des modules de classe sur différents forums je suis déboussolé.

Au moment de la saisie d'un numéro de téléphone, pour plus de clarté, j'ai ce code dans les textbox_change

Private Sub TextBox6_Change()
Dim I As Byte
I = 6
Dim Text As String
Text = Replace(TextBox6, " ", "")
Select Case Len(Text)
Case 3
Text = Format(Text, "00 0")
Case 4
Text = Format(Text, "00 00")
Case 5
Text = Format(Text, "00 00 0")
Case 6
Text = Format(Text, "00 00 00")
Case 7
Text = Format(Text, "00 00 00 0")
Case 8
Text = Format(Text, "00 00 00 00")
Case 10
Text = Format(Text, "00 00 00 00 00")
End Select
Me.TextBox6 = Text

End Sub

Je voudrais mettre ce code dans un module de classe pour éviter les répétitions et pour simplifier le code (je ne sais pas si simplifier convient )

Les textbox en question ont un tag = NumTel

Est-ce que quelqu'un peut m'aiguiller? Fichier joint, onglet association par exemple pour vous repérer.

Merci

ddetp88

Pas une âme charitable pour me mettre le pied à l'étrier!

Cordialement

Bonsoir

Pour débuter

Bonjour Banzai,

C'est plus que le pied à l'étrier. Ca fonctionne très bien.

Si je peux encore abuser un peu de ton temps, comment lire la ligne de code qui commence par Set ?

  For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then
      If Ctrl.Tag = "NumTel" Then
        ReDim Preserve TextBoxTel(Nb)
        Set TextBoxTel(Nb).TelClasse = Ctrl
        Nb = Nb + 1
      End If
    End If
  Next Ctrl

Si j'ai bien compris, il faut répéter ce même code pour chaque userform? Je viens de voir que tu l'avais fait pour les autres userform aussi . j'ai donc la réponse à cette question.

Je vais essayer de comprendre au travers de ton exemple.

Merci encore

ddept88

Bonsoir

Elle sert à "stocker" dans le tableau TextBoxTel() (voir le Module1) le contrôle

Dans d'autres code tu verras que c'est dans une collection que les contrôles sont "stockées"

Ce sont des codes que j'ai trouvé il y a longtemps et que j'arrange en fonction du besoin

Merci pour tout.