Bonjour,
Je souhaiterais avoir une aide pour combiner ces deux macro ci joint
Merci d'avance
Sub onglet()
On Error GoTo finerreur
Sheets.Add
ActiveSheet.Select
ActiveSheet.Move After:=Worksheets(Worksheets.Count)
ActiveSheet.Select
Nouveaunom = Application.InputBox("Entrer le nouveau nom", "Renommer un onglet")
ActiveSheet.Name = Nouveaunom
GoTo Fin
finerreur: 'Renvoi ici si l'onglet est inexistant
MsgBox "Nom de feuille déjà existante !" 'Message si la feuille déjà existante
Application.DisplayAlerts = False
ActiveSheet.Delete
Fin:
End Sub
Sub copier()
Sheets("1er tri").Select
Sheets("1er tri").Copy After:=Sheets(7)
Sheets("1er tri (2)").Select
Sheets("1er tri (2)").Name = "jaja" ' ou un autre nom au choix
Range("C81").Select
End Sub
Je souhaiterais avoir une aide pour combiner ces deux macro ci joint
Merci d'avance
Sub onglet()
On Error GoTo finerreur
Sheets.Add
ActiveSheet.Select
ActiveSheet.Move After:=Worksheets(Worksheets.Count)
ActiveSheet.Select
Nouveaunom = Application.InputBox("Entrer le nouveau nom", "Renommer un onglet")
ActiveSheet.Name = Nouveaunom
GoTo Fin
finerreur: 'Renvoi ici si l'onglet est inexistant
MsgBox "Nom de feuille déjà existante !" 'Message si la feuille déjà existante
Application.DisplayAlerts = False
ActiveSheet.Delete
Fin:
End Sub
Sub copier()
Sheets("1er tri").Select
Sheets("1er tri").Copy After:=Sheets(7)
Sheets("1er tri (2)").Select
Sheets("1er tri (2)").Name = "jaja" ' ou un autre nom au choix
Range("C81").Select
End Sub