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

10 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
papou
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
Merci pour ta réponse efficiente !
je teste çà illico.
Cordialement
Charles-henry


"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
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
Ardus Petus
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
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
Ardus Petus
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
je mimimisce, cassi....
ce n"est pas :
bk.Worksheets(i).Name mais :
wbk.Worksheets(i).Name jps


"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
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
papou
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
jps
bonjour cassi...
cette proc marche très bien chez moi...dès l'instant où la ligne
wbk.Worksheets....ne prend qu'une ligne
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