Renommer feuille automatiquement

[nathaliebrune]

Bonjour à tous,

J'ai cherché mais n'ai pas trouvé.... comment faire exécuter automatiquement cette macro ? Elle ne s'exécute qu'en allant dans macro et F5....

Sub RenommeOngletsNomCelluleA10()
ActiveSheet.Name = Range("A10").Value

MERCI A TOUS

 

[Pierrot93]

Re : Renommer feuille automatiquement

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée => click droit sur l'onglet => visualiser le code et tu colles, la procédure se déclenchera lors de la modification de la cellule A10 :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$10" Then Exit Sub
On Error Resume Next
Me.Name = Range("A10").Value
End Sub

bonne journée
@+

 

[Efgé]

Re : Renommer feuille automatiquement

Bonjour nathaliebrune,
Tout dépend de l'utilisation mais de toutes façons ce sera une macro evennementielle.
Dans le code de la feuille (click droit sur l'onglet et visualiser le code) on peux mettre par exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A10")) Is Nothing Then
    On Error Resume Next 'Si la feuille existe déja
    ActiveSheet.Name = Range("A10").Value
    On Error GoTo 0
End If
End Sub

Ce qui changera le nom de la feuille à chaque changement manuel de la cellule A10.
Cordialement

EDIT Trop lent le Efgé 😉, re bonjour Pierrot

 

[nathaliebrune]

Re : Renommer feuille automatiquement

Bonjour Efgé, bonjour Pierrot 93,

merci mais...ça ne fonctionne pas ; la cellule A10 n'est pas renseigné manuellement ;elle contient une fonction
=CONCATENER(L6;"-";M5)
Ceci explique t-il cela ?

 

[Pierrot93]

Re : Renommer feuille automatiquement

re,

modifie comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$L$6" And Target.Address <> "$M$5" Then Exit Sub
On Error Resume Next
Me.Name = Range("A10").Value
End Sub

bon après midi
@+

 

[nathaliebrune]

Re : Renommer feuille automatiquement

Merci Pierrot93 ! Ta plume m'enlève une épine !
Pourrais-je te solliciter pour d'autres macro que je ne sais pas faire ?

Bonne journée sous le soleil !

 

[Pierrot93]

Re : Renommer feuille automatiquement

re

Pourrais-je te solliciter pour d'autres macro que je ne sais pas faire ?

Si c'est sur un autre sujet, le mieux est de créer un nouveau fil, mais t'inquiète pas géréralement si la question est bien posée il y aura vraisemblablement quelqu'un pour t'apporter une aide...

bon après midi
@+