Usf, valeur d'1 textbox en fonction d'un checkbox

bonsoir le forum,

je vais essayer d'etre clair

j'ai une feuille avec, en colonne A, des numeros clients

si le client est un particulier, son numero commence par 4111

si le client est un professionnel, son numero commence par 4114

le numero client est toujours compose de 7 chiffres, 4111xxx ou 4114xxx

d'un autre cote j'ai un usf pour inserer les nouveaux clients

- checkbox est coché si le client est un professionnel

- textbox ou je veux voir le n° client s'afficher

j'ai commence a code mais je bloque, comment faire pour que le textbox soit renseigne pour un particulier a l'ouverture (puyisque textbox n'est pas coche) et renseigne pour un pro quand checkbox est coche

je joins un fichier epure au max

Bonsoir

Macro à ajouter

Private Sub UserForm_Initialize()
  Me.TextBox = "4111"
End Sub

Macro à modifier

J'ai placé le reste du code en commentaire, car je ne comprends pas ce que tu veux faire

Private Sub CheckBox_Click()
  If Me.CheckBox = True Then
    Me.TextBox = "4114"
  Else
    Me.TextBox = "4111"
  End If

'With Sheets("fchclt")
'    If CheckBox = True Then TextBox10.Value = Index(Range("a2:a500"), 1) + 1
'    Else: TextBox10.Value = Index(Range("a2:a500"), 1) + 1
'    End If
End Sub

je veux creer un nouvelle ligne dans ma feuille

si le client est un pro son n° sera 4114xxx

1er client pro 4114001

2e .................... 4114002

si le client est pas pro son n° sera 4111xxx

1er 4111001

2e ..4111002

j'aimerai que quand j'ouvre l'usf on voit le N° pour un particulier dans textbox, puisque le checkbox pro n'est pas coche

et que quand on coche/decoche le checkbox, le N° approprie (4114xxx ou 4111xxx) s'affiche dans textbox

Bonsoir,

Un exemple

A+

merci c'est exactement ca

en + y a du rab, super

Bonjour

A tester

Edit : Comme j'avais bossé dessus je le laisse quand même