OVH Cloud OVH Cloud

Nommer les onglets par macro

4 réponses
Avatar
michir
Bonsoir,
Je souhaiterais nommer les onglets d'un classeur à partir d'une liste par
exemple des 22 régions françaises, afin d'éviter les dues aux erreurs de
fautes d'orthographe.
Merci,
Michel,

4 réponses

Avatar
michdenis
Bonjour michir,

Admettons que ta liste est dans la feuille "toto" dans la plage de cellule A1:A10

dim Rg as range
set rg = worksheets("toto").range("A1:A10")

for a = 1 to sheets.count
sheets(a).name = rg(a,1)
next

set rg=Nothing


Salutations!


"michir" a écrit dans le message de news:416bd00d$0$7182$
Bonsoir,
Je souhaiterais nommer les onglets d'un classeur à partir d'une liste par
exemple des 22 régions françaises, afin d'éviter les dues aux erreurs de
fautes d'orthographe.
Merci,
Michel,
Avatar
michir
Re-Bonjour Denis
Toujours clean comme dhab ta macro.
Mais je complique un peu je voudrais qu'elle ne m'écrase pas ma feuille qui
contient ma liste des régions précisément nommée "Liste"
Peux-tu m'arranger cela ?
Merci encore,
Michel,




"michir" a écrit dans le message de news:
416bd00d$0$7182$
Bonsoir,
Je souhaiterais nommer les onglets d'un classeur à partir d'une liste par
exemple des 22 régions françaises, afin d'éviter les dues aux erreurs de
fautes d'orthographe.
Merci,
Michel,




Avatar
michdenis
ré -

Attention : Assure toi que le nom de ta feuille où est située ta liste ne fait pas partie de ta "liste"

dim Rg as range
set rg = worksheets("toto").range("Liste")

for a = 1 to sheets.count
if sheets(a).name <> "toto" then
sheets(a).name = rg(a,1)
end if
next

set rg=Nothing



Salutations!


"michir" a écrit dans le message de news:416bdb45$0$28804$
Re-Bonjour Denis
Toujours clean comme dhab ta macro.
Mais je complique un peu je voudrais qu'elle ne m'écrase pas ma feuille qui
contient ma liste des régions précisément nommée "Liste"
Peux-tu m'arranger cela ?
Merci encore,
Michel,




"michir" a écrit dans le message de news:
416bd00d$0$7182$
Bonsoir,
Je souhaiterais nommer les onglets d'un classeur à partir d'une liste par
exemple des 22 régions françaises, afin d'éviter les dues aux erreurs de
fautes d'orthographe.
Merci,
Michel,




Avatar
michir
OK, mercis Denis
Je n'ai pas répondu plutôt car le serveur Wanadoo semble avoir eu quelques
Pb cet après midi
Michel,

"michdenis" a écrit dans le message de news:
#2nf#
ré -

Attention : Assure toi que le nom de ta feuille où est située ta liste ne
fait pas partie de ta "liste"


dim Rg as range
set rg = worksheets("toto").range("Liste")

for a = 1 to sheets.count
if sheets(a).name <> "toto" then
sheets(a).name = rg(a,1)
end if
next

set rg=Nothing



Salutations!


"michir" a écrit dans le message de
news:416bdb45$0$28804$

Re-Bonjour Denis
Toujours clean comme dhab ta macro.
Mais je complique un peu je voudrais qu'elle ne m'écrase pas ma feuille
qui

contient ma liste des régions précisément nommée "Liste"
Peux-tu m'arranger cela ?
Merci encore,
Michel,




"michir" a écrit dans le message de news:
416bd00d$0$7182$
Bonsoir,
Je souhaiterais nommer les onglets d'un classeur à partir d'une liste
par


exemple des 22 régions françaises, afin d'éviter les dues aux erreurs de
fautes d'orthographe.
Merci,
Michel,