Bonjour à tous,
J'ai ce petit bout de code que je mets dans certaines pages et qui me servent à renommer la page directement depuis une cellule.
Malheureusement, s'il m'arrive de mettre le même nom qu'une autre page dans la cellule, cela m'ouvre un message d'erreur qui me fait ouvrir un message d'erreur à chaque fois que je démarre mon fichier.
Est-il possible de faire en sorte qu'il ne change pas le nom de la page si le nom existe déjà ou alors qu'il renomme la cellule en Already exists, par exemple ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D2")) Is Nothing Then
ActiveSheet.Name = Range("A1")
End If
End Sub