Bonsoir tous,
J'ai saisi la macro suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
ThisWorkbook.ActiveSheet.Name = Range("B2")
End If
End Sub
Elle fonctionne bien mais si après avoir entré une valeur dans la cellule je la supprime, la macro se "coince" je dois l'arrêter et le nom précédemment saisi dans la cellule reste comme nom de feuille.
Une idée ? un correctif est il possible ?
Merci
J'ai saisi la macro suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
ThisWorkbook.ActiveSheet.Name = Range("B2")
End If
End Sub
Elle fonctionne bien mais si après avoir entré une valeur dans la cellule je la supprime, la macro se "coince" je dois l'arrêter et le nom précédemment saisi dans la cellule reste comme nom de feuille.
Une idée ? un correctif est il possible ?
Merci