Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Créer onglet en fonction d'une liste

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

erwanhavre

XLDnaute Occasionnel
Bonsoir à tous
je cherche par le moyen par le biais d'une macro à créer un onglet pour chaque personnes de l'onglet liste du fichier en pj

en d'autres termes
  1. Je saisis ma liste dans l'onglet liste
  2. j'appuie sur le bouton pour créer autant d'onglet qu'il y à de personnes dans la liste en utilisant à chaque fois le modèle et en remplissant les champs de la liste
merci à tous
 

Pièces jointes

Trier par date Trier par votes
Salut,

Une idée :
VB: 
Sub mlk()
Application.ScreenUpdating = False
Set wf = WorksheetFunction
nb = wf.CountA(Sheets("liste").Range("a:a")) - 1

Call initialisation

nb_sheet = 2
For i = 1 To nb
Sheets("Modele").Copy After:=Sheets(nb_sheet)
Call remplissage(i)
nb_sheet = nb_sheet + 1
Next i

End Sub

Avec les subroutines :
VB: 
Sub initialisation()
' supprime tous les onglets exceptés "liste" et "Modele"
Application.DisplayAlerts = False
For Each s In Sheets
If InStrRev("liste_Modele", s.Name) = 0 Then s.Delete
Next s
End Sub

Sub remplissage(i)
' remplissage de la nouvelle feuille
nom = Sheets("liste").Range("a6").Offset(i, 0)
prenom = Sheets("liste").Range("b6").Offset(i, 0)
info1 = Sheets("liste").Range("c6").Offset(i, 0)
info2 = Sheets("liste").Range("d6").Offset(i, 0)
info3 = Sheets("liste").Range("e6").Offset(i, 0)
info4 = Sheets("liste").Range("f6").Offset(i, 0)

Sheets("Modele (2)").Name = nom
With Sheets(nom)
    .Range("b2") = nom
    .Range("b3") = prenom
    .Range("b4") = info1
    .Range("d2") = info2
    .Range("d3") = info3
    .Range("d4") = info4
End With
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
bonjour j'ai essayé de l'adapter à mon projet mais je plante après la deuxieme page créé
voici mon code

qu'est ce qui cloche à votre avis

Sub mlk()
'Application.ScreenUpdating = False
Set wf = WorksheetFunction
nb = wf.CountA(Sheets("liste").Range("a:a")) - 1

Call initialisation

nb_sheet = 10
For i = 1 To nb
Sheets("Modèle").Copy After:=Sheets(nb_sheet)
Call remplissage(i)
nb_sheet = nb_sheet + 1
Next i

End Sub

Sub initialisation()
' supprime tous les onglets exceptés "liste" et "Modele"
Application.DisplayAlerts = False
For Each s In Sheets
If InStrRev("PARA_liste_Modèle_HS (pré)_HS_HS (pré) (DEF)_HS (DEF)_Navette_Navette (DEF)_navette def", s.Name) = 0 Then s.Delete
Next s
End Sub

Sub remplissage(i)
' remplissage de la nouvelle feuille
nom = Sheets("liste").Range("a4").Offset(i, 0)
prenom = Sheets("liste").Range("b4").Offset(i, 0)
info1 = Sheets("liste").Range("c4").Offset(i, 0)
info2 = Sheets("liste").Range("d4").Offset(i, 0)
info3 = Sheets("liste").Range("e4").Offset(i, 0)
info4 = Sheets("liste").Range("f4").Offset(i, 0)
info5 = Sheets("liste").Range("g4").Offset(i, 0)
info4 = Sheets("liste").Range("h4").Offset(i, 0)

Sheets("Modèle (2)").Name = nom
With Sheets(nom)
.Range("b3") = nom
.Range("b4") = prenom
.Range("b5") = info1
.Range("g4") = info2
.Range("g5") = info3
.Range("b6") = info4
.Range("a2") = info5
.Range("g6") = info6
End With
End Sub
 
Vote positif 0 Vote négatif
c'est bon j'ai trouvé c'était un pb de nom (2 personne ayant le même nom)
j'ai trouvé une solution de contournement par contre arrivé à la fin de la liste il plante avec le modèle(2) il faut probablement un code pour stopper la boucle une fois la liste générée ?
 
Vote positif 0 Vote négatif
Bonsoir Erwan,

Post #4 : peux-tu ecrire tes codes sous balises ? c'est illisible.

Post #5 : je ne suis pas sûr de comprendre le soucis ?

Peut-être sur cette variable
VB: 
nb = wf.CountA(Sheets("liste").Range("a:a")) - 1

si ta feuille est différente du fichier exemple ?
sous cette ligne, rajoute :
VB: 
nb = wf.CountA(Sheets("liste").Range("a:a")) - 1
MsgBox(nb)

ca te permettra de voir le nb dans un message box.
==> est-ce que cela correspond bien au nombre souhaité ?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
XL 2016 Coup de main pour créer un fichier Excel qui gère le suivi des visites médicales du personnel.
Réponses
4
Affichages
363
dysorthographie
R
  • Résolu(e)
XL pour MAC Créer un sous groupe à partir d'un groupe
2 3 4
Réponses
48
Affichages
2 K
rtlv17
R
N
  • Résolu(e)
XL 2021 liste déroulante en cascade
Réponses
11
Affichages
476
natadom
N
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
354
sylvanu
  • Question Question
XL 2016 cellule en format liste
Réponses
2
Affichages
204
eastwick
E
  • Question Question
Microsoft 365 Renvoi valeur d'une date la plus proche
Réponses
5
Affichages
295
job75
  • Résolu(e)
Microsoft 365 Tri liste - répartition égale
Réponses
12
Affichages
452
La_Mouette
J
  • Question Question
XL 2016 Bon de commande depuis un liste.
Réponses
14
Affichages
463
Dranreb
N
  • Question Question
Microsoft 365 Sélectionner cellule en fonction d'une liste déroulante
Réponses
9
Affichages
284
Dranreb
M
  • Résolu(e)
XL pour MAC Création d'une liste (non déroulante)
Réponses
3
Affichages
203
Blackfwolf
B
A
  • Question Question
Microsoft 365 Vérifier si un texte existe dans une cellule contenant une liste
Réponses
9
Affichages
351
arzac
A
J
  • Résolu(e)
Microsoft 365 ComboBox en cascade
2 3
Réponses
40
Affichages
1 K
AtTheOne
T
  • Résolu(e)
XL 2016 Recherche dans un tableau suivant dates
Réponses
5
Affichages
292
Gégé-45550
  • Question Question
Microsoft 365 Créer liste agents si actif
2
Réponses
29
Affichages
1 K
pompaero
V
  • Question Question
Autres Importer des données avec condition depuis l'onglet source
Réponses
4
Affichages
499
vdudu
V
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
255
job75
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
470
akm
A
B
  • Question Question
XL 2021 [Résolu] Date de départ et calcul des jours ouvrés
Réponses
4
Affichages
200
Bibinaire
B
Y
  • Résolu(e)
XL 2016 Validation de données en fonction d'une table
Réponses
3
Affichages
176
youguybass
Y
  • Question Question
XL 2016 Associer cellule ensemble
Réponses
4
Affichages
136
Erdis
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…