Nommer toute les feuilles de A2

[TheProdigy]

Bonjour à tous,

Cette macro ne marche pas pour toutes les feuilles
Merci

Sub NomOnglet()
For i = 1 To Sheets.Count
With Sheets(i)
.Select
.Name = [A2]
End With
Next i
End Sub

 

[papapaul]

Re : Nommer toute les feuilles de A2

Salut, voila pourquoi 🙂
.Name = .Range("a2")
@+

 

[TheProdigy]

Re : Nommer toute les feuilles de A2

Merci infiniment