Nom d'onglet sélectionné sur une cellule

Bonjour à tous,

Je cherche le truc qui me manque pour que ma macro change le nom, seulement des onglets sélectionnés.

La petite boucle suivante fonctionne un onglet à la fois.

Sub testongletII()

Dim S As Worksheet

For Each S In ActiveWindow.SelectedSheets
S.Name = Range("b1")
Next S
End Sub

avec

For Each S In ActiveWorkbook.Worksheets

également.

Il me manque donc la commande pour que la macro ne s'applique qu'aux onglets sélectionnés et pas seulement un onglet à la fois ou à tous les onglets.

Merci .

bonsoir,

essaie ceci

Dim S As Worksheet

For Each S In ActiveWindow.SelectedSheets
S.Name = S.Range("b1")
Next S

Bon matin,

Excellent.

Impeccable,

Efficace.

Un gros merci puisque le fichier que j'avais joint ne contenait que 5 ou 6 onglets mais que les vrais fichiers (5) en contiennent une centaine chacun.

Un gros merci

Bonne journée.

Dans mon coin de pays, c'est la journée la plus longue de l'année

Donc bonne journée la plus longue.