le probleme qui me vient en tete c'est si l'operateur rentre le nom de l'onglet deja present.
Je voudrais mettre une message VBcritical qui saffiche et qui previent l'operateur que le nom de l'onglet et deja present.
bonjour lordfolk,
voilà, j'ai modifié un peu la macro donner par bhbh
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Me.Copy After:=Sheets(Sheets.Count)
bis:
nom = InputBox("Quel nom?", "Nom de la nouvelle recherche", "xxxx")
interdits = Array("[", "]", "/", "\", ":", "*", "?", "'")
For i = 0 To UBound(interdits)
nom = Application.Substitute(nom, interdits(i), "-")
Next i
For Each f In Worksheets
If f.Name = nom Then
MsgBox "Ce nom existe déjà, S.V.P. recommencer!"
GoTo bis
End If
Next
ActiveSheet.Name = nom
ActiveSheet.Shapes("CommandButton1").Delete
Me.Select
End Sub
a+