Sub renomme()
ActiveSheet.Name = ActiveSheet.Range("A1").Value
End Sub
Sub renomme()
ActiveSheet.Name = ActiveSheet.Range("A1").Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = ActiveSheet.Range("A1").Value
End Sub
Et pas que....Les solutions proposées par Eric C ne vont pas si l'on entre une date en A1.
ActiveSheet.Name = Sheets("Feuil3").Range("A1").Value
Si la cellule source est nommée "toto" dans le classeur :Question subsidiaire : Dans ta première solution, à la place de "A1", je souhaiterais mettre le nom de la cellule qui, en l'occurrence se trouve sur une autre feuille du dossier.
Comment formulerais-tu la ligne dans ce cas ?
Sub renomme()
ActiveSheet.Name = [toto]
End Sub
Sub Renomme
On Error Resume Next
ActiveSheet.Name = Range("A1").Value
If Err <> 0 Then Err.Clear
End Sub