Nommer onglets

[Jiheme]

Bonjour à Tous

Un classeur comportant 104 feuilles les feuilles 1 à 4 ont des noms différents et ne posent pas de soucis.

Je voudrais nommer les feuilles 5 a 104 "F1 à F100" et cela sans me les faire une par une.

J'ai essayer en recherchant dans les anciens post, mais je n'arrive pas à adapter à mon problème précis.

Je suis encore jeune... du moins en VBA !

Merci

Jiheme

 

[Orodreth]

Re : Nommer onglets

Bonjour Jiheme.

Va dans l'éditeur VBA, sélectionne le "this workbook" dans la liste à gauche.

Colle dedans ce code, et ensuite, appuie sur la touche F5

Private sub FaireNomFeuilles()
Dim i as integer
For i = 5 to 104
    Dim NomFeuille as string
    NomFeuille = "F" & Cstr(( i - 4 ))
    Sheets(i).name = NomFeuille
next i
end sub

Teste pour voir si cela correspond bien à ce que tu souhaites.
/!\ Cela nécessite que tes feuilles soient dans l'ordre croissant (la feuille a gauche est la première, la feuille à droite est la dernière)

Cordialement,
Thomas

 

[Jiheme]

Re : Nommer onglets

Bonjour Orodreth, le Forum

Merci beaucoup cela marche impeccable, j'ai juste effacer "private" devant lsub"nom macro"

Le temps que je viens de gagner me permet de te remercier encore

A bientôt

Jiheme

 

[Orodreth]

Re : Nommer onglets

Re.

De rien, ravi d'avoir pu t'aider 🙂

Le private ne change pas grand chose, sauf que mtn, tu peux accéder à la procédure depuis n'importe quel élément d'un code VBA, quelque soit l'endroit où il se trouve.
A part ça, tu le mets ou tu l'enlèves, à toi de voir.

Cordialement,
Thomas