Salut le forum
Sans avoir la mise en page de ta feuille « Noms et équipes »
un exemple avec la feuille « Moyennes des joueurs »
Dans le module de la feuille « Moyennes des joueurs » (Feuil34) tu colles le code suivant
Public ShName As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4:B18, G4:G16")) Is Nothing Then
Sheets(ShName).Name = Target.Value
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4:B18, G4:G16")) Is Nothing Then
ShName = Target.Value
End If
End Sub
Si tu changes le nom d'un joueur, la feuille du joueur change de nom ainsi que les formules.
Je n'ai par contre pas géré le lien hypertexte (A suivre)
Mytå