Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nommer automatiquement des feuilles

Nommer automatiquement des feuilles

14 réponses
Avatar
Cassivellaunos
Bonjour,
Je voudrais à partir d'une liste (dans le même ou dans un autre classeur ++)
nommer automatiquement toutes les feuilles d'un classeur.
Exemple : j'ai la liste de 50 salariés dans le classeur A Feuil1 et je
voudrais qu'Excel renomme (ou créer/insère ce qui serait ++) autant de
feuilles - 50 qu'il y a d'occurences dans la liste - celle-ci pouvant
changer d'un mois sur l'autre.
Grand merci.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
jps
heu...j'ai oublié : les données dans le classeur source (classeur3 si j'ai
bien compris) ne disparaissent pas chez moi, restant entendu que j'ai
installé la macro dans un module du classeur source
jps

"Cassivellaunos" a écrit dans le message de news:

Bonjour,

Après de nombreux essais (? on se demande pourquoi vu que cela devrait
marcher !) la macro ne réalise pas ce qu'elle est sensée faire.

Les données dans le classeurX (Classeur3 en l'occurence "disparaissent" et
j'ai un message : Erreur d'exécution '1004' Erreur définie par
l'application
ou par l'objet. Ce qui correspond à la ligne 7 de la macro :
wbk.Worksheets(i).........

Pour éviter toute mauvaise interprétation de ma part :

Dim LeNombre&
LeNombre = Range("A65536").End(xlUp).Row - 1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name = ThisWorkbook.Worksheets("Feuil1").Cells(i + 1,
1)
Next i
End Sub

Pour info ma feuille s'appelle bien Feuil1.

Je ne comprends pas pourquoi !
Merci de votre aide.
Charly
.
"Ardus Petus" a écrit dans le message de news:

La variable LeNombre est calculée automatiquement. La formule
Range("A65536").End(xlUp).Row - 1 compte les cellules non vides de la
colonne A.

Vérifie que ta feuille s'appelle bien Feuil1.
C'est probablement de là que vient l'erreur

Cordialement,
--
AP

"Cassivellaunos" a écrit dans le message de
news:
Bonjour, et merci de t'intéresser à ma demande
Où dois-je indiquer LeNombre de cellules ? Il le trouve tout seul ?
Cela
m'étonnerait. Il faut bien le "borner" !
A quoi correspond cette variable.
Comment ce fait il que çà marche chez toi ?
Il bloque à la ligne : bk.Worksheets(i).Name >> > ThisWorkbook.Worksheets("Feuil1").Cells(i + 1, 1)
Il crée un nouveau classeur avec 12 feuilles, il supprime les valeurs
des


cellules du classeur d'origine et il bloque.

Cordialement
CH

"Ardus Petus" a écrit dans le message de
news:

Chez moi, ça marche avec le code de Papou et tes indications.

Quelle est la ligne surlignée en jaune dans le débogueur?

Cordialement,
--
AP

"Cassivellaunos" a écrit dans le message de
news:OXR0S$
Oui mais,
Je n'ai pas bien compris ce que devais adapter et où indiquer Le
nombre.



Pour le test, j'ai créé une feuille = Feuil1, et en A1 j'ai indiqué
comme


en-tête Mois puis de A2 à A13 les 12 mois de l'année.
A l'exécution j'ai une erreur d'exécution(9) = L'indice
n'appartient
pas



à
la sélection.


"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
#py6#$
Bonjour
Exemple à adapter, ici le nombre de feuilles à créer est fonction
du





nombre
d'entrées dans la feuille "Feuil1" du classeur contenant la macro
moins



1
(pour l'en-tête de colonne) :
Sub AjoutFeuilles()
Dim LeNombre&
LeNombre = Range("A65536").End(xlUp).Row - 1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name =
ThisWorkbook.Worksheets("Feuil1").Cells(i
+





1,
1)
Next i
End Sub

Cordialement
Pascal

"Cassivellaunos" a écrit dans le message
de
news:



%
Bonjour,
Je voudrais à partir d'une liste (dans le même ou dans un autre
classeur



++)
nommer automatiquement toutes les feuilles d'un classeur.
Exemple : j'ai la liste de 50 salariés dans le classeur A
Feuil1
et





je
voudrais qu'Excel renomme (ou créer/insère ce qui serait ++)
autant





de
feuilles - 50 qu'il y a d'occurences dans la liste - celle-ci
pouvant




changer d'un mois sur l'autre.
Grand merci.




























Avatar
Cassivellaunos
Un GRAND MERCI !
Cà marche super il crée toutes les feuilles voulues.
Si si c'est bon, ça aussi.
Merci Papou

"papou" <cestpasbon@çanonplus> a écrit dans le message de news:

Bonjour
Modifie comme ceci (attention aux éventuels sauts de ligne : le code
comporte 9 lignes):
Dim LeNombre&,i&
LeNombre ThisWorkbook.Worksheets("Feuil1").Range("A65536").End(xlUp).Row -
1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name = ThisWorkbook.Worksheets("Feuil1").Cells(i + 1,1)
Next i
End Sub

Cordialement
Pascal

"Cassivellaunos" a écrit dans le message de news:

Bonjour,

Après de nombreux essais (? on se demande pourquoi vu que cela devrait
marcher !) la macro ne réalise pas ce qu'elle est sensée faire.

Les données dans le classeurX (Classeur3 en l'occurence "disparaissent"
et


j'ai un message : Erreur d'exécution '1004' Erreur définie par
l'application
ou par l'objet. Ce qui correspond à la ligne 7 de la macro :
wbk.Worksheets(i).........

Pour éviter toute mauvaise interprétation de ma part :

Dim LeNombre&
LeNombre = Range("A65536").End(xlUp).Row - 1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name = ThisWorkbook.Worksheets("Feuil1").Cells(i +
1,


1)
Next i
End Sub

Pour info ma feuille s'appelle bien Feuil1.

Je ne comprends pas pourquoi !
Merci de votre aide.
Charly
.
"Ardus Petus" a écrit dans le message de news:

La variable LeNombre est calculée automatiquement. La formule
Range("A65536").End(xlUp).Row - 1 compte les cellules non vides de la
colonne A.

Vérifie que ta feuille s'appelle bien Feuil1.
C'est probablement de là que vient l'erreur

Cordialement,
--
AP

"Cassivellaunos" a écrit dans le message de
news:
Bonjour, et merci de t'intéresser à ma demande
Où dois-je indiquer LeNombre de cellules ? Il le trouve tout seul ?
Cela
m'étonnerait. Il faut bien le "borner" !
A quoi correspond cette variable.
Comment ce fait il que çà marche chez toi ?
Il bloque à la ligne : bk.Worksheets(i).Name > >> > ThisWorkbook.Worksheets("Feuil1").Cells(i + 1, 1)
Il crée un nouveau classeur avec 12 feuilles, il supprime les valeurs
des


cellules du classeur d'origine et il bloque.

Cordialement
CH

"Ardus Petus" a écrit dans le message de
news:

Chez moi, ça marche avec le code de Papou et tes indications.

Quelle est la ligne surlignée en jaune dans le débogueur?

Cordialement,
--
AP

"Cassivellaunos" a écrit dans le message de
news:OXR0S$
Oui mais,
Je n'ai pas bien compris ce que devais adapter et où indiquer Le
nombre.



Pour le test, j'ai créé une feuille = Feuil1, et en A1 j'ai
indiqué






comme
en-tête Mois puis de A2 à A13 les 12 mois de l'année.
A l'exécution j'ai une erreur d'exécution(9) = L'indice
n'appartient
pas



à
la sélection.


"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
#py6#$
Bonjour
Exemple à adapter, ici le nombre de feuilles à créer est
fonction







du
nombre
d'entrées dans la feuille "Feuil1" du classeur contenant la
macro







moins
1
(pour l'en-tête de colonne) :
Sub AjoutFeuilles()
Dim LeNombre&
LeNombre = Range("A65536").End(xlUp).Row - 1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name > >> > > > > ThisWorkbook.Worksheets("Feuil1").Cells(i
+





1,
1)
Next i
End Sub

Cordialement
Pascal

"Cassivellaunos" a écrit dans le message
de
news:



%
Bonjour,
Je voudrais à partir d'une liste (dans le même ou dans un
autre








classeur
++)
nommer automatiquement toutes les feuilles d'un classeur.
Exemple : j'ai la liste de 50 salariés dans le classeur A
Feuil1
et





je
voudrais qu'Excel renomme (ou créer/insère ce qui serait ++)
autant





de
feuilles - 50 qu'il y a d'occurences dans la liste - celle-ci
pouvant




changer d'un mois sur l'autre.
Grand merci.
































Avatar
Cassivellaunos
...ce que je n'avais pas fais mettant la macro dans le classeur Perso !
Je l'ai mis dans le classeur source et çà roule. Evidemment pas de
disparition ! Ma liste d'origine est Ok.
Reste à savoir ce que j'ai fais comme connerie et pourquoi la macro ne
marche pas dans Perso.
C'est une autre histoire.
En tout cas, merci à Papou qui devrait donner des cours à des néophytes
comme moi.
CHN


"jps" a écrit dans le message de news:

heu...j'ai oublié : les données dans le classeur source (classeur3 si j'ai
bien compris) ne disparaissent pas chez moi, restant entendu que j'ai
installé la macro dans un module du classeur source
jps

"Cassivellaunos" a écrit dans le message de news:

Bonjour,

Après de nombreux essais (? on se demande pourquoi vu que cela devrait
marcher !) la macro ne réalise pas ce qu'elle est sensée faire.

Les données dans le classeurX (Classeur3 en l'occurence "disparaissent"
et


j'ai un message : Erreur d'exécution '1004' Erreur définie par
l'application
ou par l'objet. Ce qui correspond à la ligne 7 de la macro :
wbk.Worksheets(i).........

Pour éviter toute mauvaise interprétation de ma part :

Dim LeNombre&
LeNombre = Range("A65536").End(xlUp).Row - 1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name = ThisWorkbook.Worksheets("Feuil1").Cells(i +
1,


1)
Next i
End Sub

Pour info ma feuille s'appelle bien Feuil1.

Je ne comprends pas pourquoi !
Merci de votre aide.
Charly
.
"Ardus Petus" a écrit dans le message de news:

La variable LeNombre est calculée automatiquement. La formule
Range("A65536").End(xlUp).Row - 1 compte les cellules non vides de la
colonne A.

Vérifie que ta feuille s'appelle bien Feuil1.
C'est probablement de là que vient l'erreur

Cordialement,
--
AP

"Cassivellaunos" a écrit dans le message de
news:
Bonjour, et merci de t'intéresser à ma demande
Où dois-je indiquer LeNombre de cellules ? Il le trouve tout seul ?
Cela
m'étonnerait. Il faut bien le "borner" !
A quoi correspond cette variable.
Comment ce fait il que çà marche chez toi ?
Il bloque à la ligne : bk.Worksheets(i).Name > >> > ThisWorkbook.Worksheets("Feuil1").Cells(i + 1, 1)
Il crée un nouveau classeur avec 12 feuilles, il supprime les valeurs
des


cellules du classeur d'origine et il bloque.

Cordialement
CH

"Ardus Petus" a écrit dans le message de
news:

Chez moi, ça marche avec le code de Papou et tes indications.

Quelle est la ligne surlignée en jaune dans le débogueur?

Cordialement,
--
AP

"Cassivellaunos" a écrit dans le message de
news:OXR0S$
Oui mais,
Je n'ai pas bien compris ce que devais adapter et où indiquer Le
nombre.



Pour le test, j'ai créé une feuille = Feuil1, et en A1 j'ai
indiqué






comme
en-tête Mois puis de A2 à A13 les 12 mois de l'année.
A l'exécution j'ai une erreur d'exécution(9) = L'indice
n'appartient
pas



à
la sélection.


"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
#py6#$
Bonjour
Exemple à adapter, ici le nombre de feuilles à créer est
fonction







du
nombre
d'entrées dans la feuille "Feuil1" du classeur contenant la
macro







moins
1
(pour l'en-tête de colonne) :
Sub AjoutFeuilles()
Dim LeNombre&
LeNombre = Range("A65536").End(xlUp).Row - 1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name > >> > > > > ThisWorkbook.Worksheets("Feuil1").Cells(i
+





1,
1)
Next i
End Sub

Cordialement
Pascal

"Cassivellaunos" a écrit dans le message
de
news:



%
Bonjour,
Je voudrais à partir d'une liste (dans le même ou dans un
autre








classeur
++)
nommer automatiquement toutes les feuilles d'un classeur.
Exemple : j'ai la liste de 50 salariés dans le classeur A
Feuil1
et





je
voudrais qu'Excel renomme (ou créer/insère ce qui serait ++)
autant





de
feuilles - 50 qu'il y a d'occurences dans la liste - celle-ci
pouvant




changer d'un mois sur l'autre.
Grand merci.































Avatar
jps
...ce que, sans être papou, j'avais subodoré
jps

"Cassivellaunos" a écrit dans le message de news:
%
...ce que je n'avais pas fais mettant la macro dans le classeur Perso !
En tout cas, merci à Papou qui devrait donner des cours à des néophytes
comme moi.
CHN


"jps" a écrit dans le message de news:

heu...j'ai oublié : les données dans le classeur source (classeur3 si
j'ai
bien compris) ne disparaissent pas chez moi, restant entendu que j'ai
installé la macro dans un module du classeur source
jps

"Cassivellaunos" a écrit dans le message de news:

Bonjour,

Après de nombreux essais (? on se demande pourquoi vu que cela devrait
marcher !) la macro ne réalise pas ce qu'elle est sensée faire.

Les données dans le classeurX (Classeur3 en l'occurence "disparaissent"
et


j'ai un message : Erreur d'exécution '1004' Erreur définie par
l'application
ou par l'objet. Ce qui correspond à la ligne 7 de la macro :
wbk.Worksheets(i).........

Pour éviter toute mauvaise interprétation de ma part :

Dim LeNombre&
LeNombre = Range("A65536").End(xlUp).Row - 1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name = ThisWorkbook.Worksheets("Feuil1").Cells(i +
1,


1)
Next i
End Sub

Pour info ma feuille s'appelle bien Feuil1.

Je ne comprends pas pourquoi !
Merci de votre aide.
Charly
.
"Ardus Petus" a écrit dans le message de
news:

La variable LeNombre est calculée automatiquement. La formule
Range("A65536").End(xlUp).Row - 1 compte les cellules non vides de la
colonne A.

Vérifie que ta feuille s'appelle bien Feuil1.
C'est probablement de là que vient l'erreur

Cordialement,
--
AP

"Cassivellaunos" a écrit dans le message de
news:
Bonjour, et merci de t'intéresser à ma demande
Où dois-je indiquer LeNombre de cellules ? Il le trouve tout seul ?
Cela
m'étonnerait. Il faut bien le "borner" !
A quoi correspond cette variable.
Comment ce fait il que çà marche chez toi ?
Il bloque à la ligne : bk.Worksheets(i).Name >> >> > ThisWorkbook.Worksheets("Feuil1").Cells(i + 1, 1)
Il crée un nouveau classeur avec 12 feuilles, il supprime les
valeurs
des


cellules du classeur d'origine et il bloque.

Cordialement
CH

"Ardus Petus" a écrit dans le message de
news:

Chez moi, ça marche avec le code de Papou et tes indications.

Quelle est la ligne surlignée en jaune dans le débogueur?

Cordialement,
--
AP

"Cassivellaunos" a écrit dans le message de
news:OXR0S$
Oui mais,
Je n'ai pas bien compris ce que devais adapter et où indiquer Le
nombre.



Pour le test, j'ai créé une feuille = Feuil1, et en A1 j'ai
indiqué






comme
en-tête Mois puis de A2 à A13 les 12 mois de l'année.
A l'exécution j'ai une erreur d'exécution(9) = L'indice
n'appartient
pas



à
la sélection.


"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
#py6#$
Bonjour
Exemple à adapter, ici le nombre de feuilles à créer est
fonction







du
nombre
d'entrées dans la feuille "Feuil1" du classeur contenant la
macro







moins
1
(pour l'en-tête de colonne) :
Sub AjoutFeuilles()
Dim LeNombre&
LeNombre = Range("A65536").End(xlUp).Row - 1 '-1 = si en-tête
Application.SheetsInNewWorkbook = LeNombre
Dim wbk As Workbook
Set wbk = Workbooks.Add
For i = 1 To LeNombre
wbk.Worksheets(i).Name >> >> > > > > ThisWorkbook.Worksheets("Feuil1").Cells(i
+





1,
1)
Next i
End Sub

Cordialement
Pascal

"Cassivellaunos" a écrit dans le
message
de
news:



%
Bonjour,
Je voudrais à partir d'une liste (dans le même ou dans un
autre








classeur
++)
nommer automatiquement toutes les feuilles d'un classeur.
Exemple : j'ai la liste de 50 salariés dans le classeur A
Feuil1
et





je
voudrais qu'Excel renomme (ou créer/insère ce qui serait ++)
autant





de
feuilles - 50 qu'il y a d'occurences dans la liste -
celle-ci
pouvant




changer d'un mois sur l'autre.
Grand merci.



































1 2