SalutNagrom à dit:Merci à vous deux!
Edit:
J'aurai encore une question:
Comment fait-on pour que lorsqu'on ouvre le classeur, la feuille A s'affiche par défaut à chaque ouverture?
Merci.
Private Sub Workbook_Open()
Sheets("A").Activate
End Sub
Salutblackjack à dit:bonjour à tous
Et l'inverse est-il possible ?
je nomme la feuille et je retrouve le nom en B4 par exemple
Jack
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;50)
Private Sub Worksheet_Calculate()
Private Sub Worksheet_Calculate() 'Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
ActiveSheet.Name = Range("B2")
End If
End Sub
Private Sub Worksheet_Calculate()
On Error Resume Next 'au cas ou nom de feuille existe déjà ou invalide
Me.Name = Range("B2")
End Sub