Numérotation automatique

Bonjour, j’aimerai a l’aide de mon "UserForm1", copier la page "Model ", et qu’à chaque fois que je click sur "Valider" un numéro vas être créer sur la page "Base"

Plus de details dans le fichier ci joint

Merci

Salut,

si je comprend ta demande :

Rajoute le code suivant dans ton userform

Private Sub UserForm_Initialize()
Me.TextBox1.Value = ActiveWorkbook.Worksheets("BASE").Range("A65536").End(xlUp).Value + 1
End Sub

Damien

Merci Bigdams

c'es ça, mas il faudrai juste un genre de "reset" quand on click sur "valider"

Re,

Soit plus explicite, je ne comprend pas

C'est quoi un 'genre de reset' ? Donnes moi un exemple ?

Damien

Re Bigdams

que quand je click sur "valider" le n° devrai changer/passer au suivant

merci

Re,

Essaye ce code

Private Sub CommandButton1_Click()

'Verif que le nom de l'onglet n'existe pas deja
Dim myws As Worksheet
For Each myws In ActiveWorkbook.Worksheets

If UCase(myws.Name) = UCase(Me.TextBox1.Value) Then
    MsgBox "L'onglet avec le nom: " & myws.Name & " existe deja, la création est annulée."
Exit Sub
End If

Next

Sheets("Model").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Range("E1").Value = Me.TextBox1.Value

ActiveSheet.Name = ActiveSheet.Range("E1").Value

Dim NewLig As Long

With Sheets("Base")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    '.Range("A" & NewLig).Value = Val(.Range("A" & NewLig - 1).Value) + 1 'ou 'je commente : si tu veux pouvoir prendre en compte une modif provenant d'une saisie dans le textbox
    .Range("A" & NewLig).Value = Val(Me.TextBox1.Text) 'je remplace par
Set WS = ThisWorkbook.Sheets("Base")
End With
Me.TextBox1.Value = ActiveWorkbook.Worksheets("BASE").Range("A65536").End(xlUp).Value + 1
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1.Value = ActiveWorkbook.Worksheets("BASE").Range("A65536").End(xlUp).Value + 1
End Sub

Merci Bigdams