Discussion :

[schdam]

Bonjour,

J'ai souhaite qu'une macro se lance lorsque la cellule A1 est modifiée afin que le nom de l'onglet sélectionné reprenne le nom de la valeur de la cellule A1.

J'ai crée le module suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Worksheet_Change(ByVal Target As Range)
Call Test
End Sub

Et crée la macro ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
ActiveSheet.Name = Range("A1").Value
End Sub

Malheureusement, la macro ne se lance pas lorsque la cellule A1 est modifiée.

Pouvez-vous m'aider SVP ?

Je vous joint mon fichier Excel.

D'avance merci pour votre aide.

[mercatog]

à mettre dans le module de la feuille (et non dans un module standard)
attention si A1 est vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Target.Value <> "" Then ActiveSheet.Name = Target.Value
End If
End Sub

[schdam]

Super merci.

Maintenant, en supposant que j'ai 20 onglets et que je souhaite appliquer cette même règle pour tous les onglets, comment puis-je faire sans enregistrer le code dans le module de chaque feuille ?

[mercatog]

Regarde dans le module ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Target.Value <> "" Then Sh.Name = Target.Value
End If
End Sub