Bonjour le Forum,
je viens solliciter votre aide pour m'aider à résoudre ce problème de mauvais débutant :
comment faire pour renommer automatiquement les onglets quand la cellule "Cible" (Target) contient une formule et peut donc changer de valeur après avoir été nommée par la macro suivante ?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Application.Intersect(Target, Range("A1")) Is Nothing Then End
ActiveSheet.Name = Target.Value
Application.ScreenUpdating = True
End Sub
Pour, je l'espère, mieux illustrer mon propos un fichier "exemple" commenté est accessible par le lien ci-dessous :
Cijoint.fr - Service gratuit de dépôt de fichiers
Je vous remercie d'avance pour vos conseils et contributions et vous souhaite une bonne fin de journée.
Cordialement.
Nonno 94.
je viens solliciter votre aide pour m'aider à résoudre ce problème de mauvais débutant :
comment faire pour renommer automatiquement les onglets quand la cellule "Cible" (Target) contient une formule et peut donc changer de valeur après avoir été nommée par la macro suivante ?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Application.Intersect(Target, Range("A1")) Is Nothing Then End
ActiveSheet.Name = Target.Value
Application.ScreenUpdating = True
End Sub
Pour, je l'espère, mieux illustrer mon propos un fichier "exemple" commenté est accessible par le lien ci-dessous :
Cijoint.fr - Service gratuit de dépôt de fichiers
Je vous remercie d'avance pour vos conseils et contributions et vous souhaite une bonne fin de journée.
Cordialement.
Nonno 94.