Remise à o du Userform sauf un textBox

Bonjour le forum

J'ai un code qui transporte les donnés d'un UserForm vers la feuille et se remis à 0 ,j'aimerai bien SVP si c'est possible qui m'efface pas TextBoxCode mais qui augmente de 1 , par exemple c'est le textBoxCode est CL000001 qui soit CL000002.

Merci

Cordialement

 If TextBoxCode.Value = "" Then
        MsgBox ("Vous devez indiquer un code, SVP")
        TextBoxCode.SetFocus
End If
   If TextBoxNom.Value = "" Then
        MsgBox ("Vous devez indiquer un nom, SVP")
        TextBoxNom.SetFocus
    End If

      REP = TextBoxCode.Value
    'je cherche
    On Error Resume Next
    X = Application.Match(REP, Worksheets("Gestion clients").Columns("B:B"), 0)

    If X = 0 Then

          Worksheets("Gestion clients").Activate
        Rows("3:3").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        Sheets("Gestion clients").Range("B3").Value = TextBoxCode.Value
        Sheets("Gestion clients").Range("C3").Value = TextBoxNom.Value
        Sheets("Gestion clients").Range("D3").Value = TextBoxAdresse.Value
        Sheets("Gestion clients").Range("E3").Value = TextBoxVille.Value
        Sheets("Gestion clients").Range("F3").Value = TextBoxTel.Value
        Sheets("Gestion clients").Range("G3").Value = TextBoxEmail.Value

     Else
         MsgBox "Le code client " & REP & " trouvé dans la ligne: " & X
         Sheets("Gestion clients").Activate
         Range("B" & X).Select
    End If
      'remise à 0 du userform
       TextBoxCode.Value = ""
        TextBoxNom.Value = ""
        TextBoxAdresse.Value = ""
        TextBoxVille.Value = ""
        TextBoxTel.Value = ""
        TextBoxEmail.Value = ""

   'End If

End Sub

bonjour ,

essaye avec ce code (pas eu le temps de la tester désolé)

Dim val As Variant

 If TextBoxCode.Value = "" Then
        MsgBox ("Vous devez indiquer un code, SVP")
        TextBoxCode.SetFocus
End If
   If TextBoxNom.Value = "" Then
        MsgBox ("Vous devez indiquer un nom, SVP")
        TextBoxNom.SetFocus
    End If

      REP = TextBoxCode.Value
    'je cherche
   On Error Resume Next
    X = Application.Match(REP, Worksheets("Gestion clients").Columns("B:B"), 0)

    If X = 0 Then

          Worksheets("Gestion clients").Activate
        Rows("3:3").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        Sheets("Gestion clients").Range("B3").Value = TextBoxCode.Value
        Sheets("Gestion clients").Range("C3").Value = TextBoxNom.Value
        Sheets("Gestion clients").Range("D3").Value = TextBoxAdresse.Value
        Sheets("Gestion clients").Range("E3").Value = TextBoxVille.Value
        Sheets("Gestion clients").Range("F3").Value = TextBoxTel.Value
        Sheets("Gestion clients").Range("G3").Value = TextBoxEmail.Value

     Else
         MsgBox "Le code client " & REP & " trouvé dans la ligne: " & X
         Sheets("Gestion clients").Activate
         Range("B" & X).Select
    End If
      'remise à 0 du userform
        TextBoxNom.Value = ""
        TextBoxAdresse.Value = ""
        TextBoxVille.Value = ""
        TextBoxTel.Value = ""
        TextBoxEmail.Value = ""

val = Right(TextBoxCode.Value, (Len(TextBoxCode.Value) - 2))
val = val + 1
While Len(val) < 6
    val = "0" & val
Wend

val = Left(TextBoxCode.Value, 2) & val

TextBoxCode.Value = val

   'End If

End Sub

cordialement

Merci ramoutch

ça marche par contre quand je redémarre le fichier est retiens pas le numéro et se remis à o

Bonjour ,

SI tu veux "enregistrer" la valeur pour qu'elle reste après fermeture du fichier , tu doit la placer dans une cellule de ton classeur avant et la reprendre depuis cette cellule à l'ouverture du fichier .

Cordialement