Bonjour le Forum,
Ci-dessous mon code, j'ai deux feuille pilote la 15 et la 17.
Sur ma Feuil1 je passe par un UserForm "Nouveau BL Client". De celui-ci, si je sélectionne "optionbutton1" ça m'effectue une copie de la 15 sur une nouvelle feuille ou si je sélectionne "optionbutton2" ça me fait une copie de la 17 dans une nouvelle feuille. Jusque là NICKEL !!!
Mon problème j'ai ma Feuil1 avec mes numéros n°1, n°2, n°3 etc
Et là je souhaite à la création de ma nouvelle feuille que sur ma feuil1 à la suite de mes numéros que ça me mette "n°4" par exemple.. Et que Sur ma nouvelle Feuille créé en K3 me mettre ce nouveau N°4..
Private Sub CommandButton1_Click()
Dim ligne As Long
'Nouveau BL F
If OptionButton1.Value = True Then
Sheets(Feuil15.name).Visible = True
Sheets(Feuil15.name).Select
Cells.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
[color=#FF0000] Range("K3").Value = Sheets(Feuil1.name).Cells(ligne, 2).Value + 1
Sheets(Feuil1.name).Select
ligne = Range("B65536").End(xlUp).Row
Cells(ligne, 2).Value = Cells(ligne - 1, 2).Value + 1[/color]
Sheets(Feuil15.name).Visible = False
End If
'Nouveau BL M
If OptionButton2.Value = True Then
Sheets(Feuil17.name).Visible = True
Sheets(Feuil17.name).Select
Cells.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Range("O2").Select
Sheets(Feuil17.name).Visible = False
End If
Unload Me
End Sub