Renommer tous les onglets automatiquement

[Francis]

Bonjour le forum
Je cherche à renommer en capitale tous les onglets automatiquement en fonction de la valeur de la cellule B3
J’ai pondu ces quelques lignes. Mais cela ne marche pas Que faut-il modifier ?

For i = NbFeuil To 1 Step -1
With Sheets(i)
sheet.name = UCase(Range("B3"))
End With
Next i

Merci d’avance
Francis

 

[Spitnolan08]

Re : Renommer tous les onglets automatiquement

Bonjour,

 For i = NbFeuil To 1 Step -1
With Sheets(i)
.name = UCase(.Range("B3"))
End With
Next i

Cordialement

 

[Francis]

Re : Renommer tous les onglets automatiquement

Bonjour Spitnolan08 et le forum
Merci pour ta réponse rapide, ça marche très bien.
Francis