Nommer onglets

Jiheme · 10 Juillet 2007

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 · 10 Juillet 2007

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

Code:

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 · 10 Juillet 2007

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 · 10 Juillet 2007

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

Nommer onglets

Jiheme

XLDnaute Accro

Orodreth

XLDnaute Impliqué

Jiheme

XLDnaute Accro

Orodreth

XLDnaute Impliqué

Discussions similaires

Nommer onglets

Jiheme

XLDnaute Accro

Orodreth

XLDnaute Impliqué

Jiheme

XLDnaute Accro

Orodreth

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency