Renommer onglets sélectionnés

[MJ13]

Bonjour à tous

Je cheche un code VBA pour ajouter à la fin des noms des onglets sélectionnés un texte.

Merci d'avance 🙂.

J'ai bien le début pour toutes les feuilles, mais je voudrais pour les feuilles sélectionnées:

Sub Renomme()
NarFin = " 2012"
Dim ws As Worksheet
For Each ws In Worksheets
'MsgBox ws.Name
ws.Name = ws.Name & NarFin
Next
End Sub

 

[Pierrot93]

Re : Renommer onglets sélectionnés

Bonjour Michel🙂

regarde peut être ceci :

Dim s As Object
For Each s In ActiveWindow.SelectedSheets
    s.Name = s.Name & "montexte"
Next s

bonne journée
@+

 

[MJ13]

Re : Renommer onglets sélectionnés

Bonjour Pierrot

Merci beaucoup 🙂, c'est le code que je recherchais.

Bonne fin de journée 🙂.