probleme de code dans userform case à cocher

[fred82700]

bonjour à tous,

j'ai récuperer un code pour alimenter mon userform, probleme pour les valeurs numériques (telephone et fax)

je n arrive pas a corriger l erreur et en plus j arrive pas a fermer le userform apres validation


si quelqu un pouvait m aider

je joins le fichier

 

[Dull]

Re : probleme de code dans userform case à cocher

Salut fred82700, le Forum

peut-être comme cela

Private Sub CheckBox5_Click()
TextBox5 = Format(TextBox5, "0# ## ## ## ##")
End Sub

et fait de même pour CheckBox6
enfin pour fermer et vider ton USF

ajoute Unload me avant ton End Sub

Private Sub CommandButton1_Click()
' Valider
Dim Ligne As Long
Dim I As Integer

If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
For I = 1 To 10
If Me.Controls("TextBox" & I).Visible = True Then
Ws.Cells(Ligne, I + 1) = Me.Controls("TextBox" & I)
End If
Next I
Unload Me
End Sub

Bonne Journée