[VBA] Créer des onglets à partir des autres vierges

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion R@chid
  • Date de début Date de début

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
R@chid

R@chid

XLDnaute Barbatruc
Supporter XLD
Bonjour @ tous,
Encore une fois ce R@chid va poser 3 questions en VBA 🙂
Je travaille pour un établissement scolaire qui fait la formation et l'encadrement des candidats CNED, donc je dois faire une application pour suivre la réalisation des devoirs de chacun des élèves.
J'ai créé un fichier avec des onglets vierges, un onglet pour chaque classe ces derniers sont verrouillés par un mot de passe et je vais les masquer..

Ce que je veux faire :

Macro 1:
Créer des onglets à partir des onglets masqués "6EME" "5EME"… le nom de l'onglet doit porter le nom et prénom de l'élève et insérer aussi le nom de l'élève dans la cellule C7.
Noter que les onglets vont être verrouillés par mot de passe, et que je prévoie aussi l'inscription tardive des élèves donc il ne faut pas recréer ceux qui sont déjà créés.

Macro 2:
On va envoyer les relevés aux parents, alors il faut créer des fichiers PDF à partir des onglets, nom de fichier "Classe_JJMMAA_PrenomNom" dans un dossier que je vais spécifier.

Macro 3:
Une autre macro pour l'impression.

Voir PJ

J’espère être clair

Bien @ vous
 

Pièces jointes

Trier par date Trier par votes
Re : [VBA] Créer des onglets à partir des autres vierges

Bonjour les amis,
Une petite question subsidiaire si vous me le permettez, l'onglet "TableauDeBord" était masqué, alors quand je l'ai affiché car normalement il doit rester affiché, j'ai remarqué qu'à chaque exécution d'une macro l'onglet "Base" change de place, il passe une fois avant "TableauDeBord" et une autre fois après..
Capt_01.png


Capt_02.png

Ça ne me pose aucun problème si on ne peut pas le régler facilement, le travail réalisé me va très bien.


Merci
 
Vote positif 0 Vote négatif
Re : [VBA] Créer des onglets à partir des autres vierges

Bonjour R@chid,

Problème facile à régler, il suffit d'ajouter à la fin de la macro CréerOnglets :
Code: 
Sheets("Base").Move Before:=Sheets(1)
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : [VBA] Créer des onglets à partir des autres vierges

Bonjour @ tous,
J'ai voulu protégé mon classeur alors j'ai fait la macro de créations des onglets comme suite :
Code: 
Sub CréerOnglets()
Dim s As Object, t, i&, nom$, vis%, n&
Application.ScreenUpdating = False
On Error Resume Next
'---création des feuilles---
t = Sheets("Base").[A1].CurrentRegion
For i = 2 To UBound(t)
  If IsError(Sheets(t(i, 1))) Then GoTo 1
  nom = CStr(t(i, 2))
  If IsError(Sheets(nom)) Then
    If nom <> "" Then
    ThisWorkbook.Unprotect "MotDePasseClasseur"
      vis = Sheets(t(i, 1)).Visible
      Sheets(t(i, 1)).Visible = True
      Sheets(t(i, 1)).Copy Before:=Sheets(1)
      ActiveSheet.Name = nom
      Sheets(nom).Unprotect "MotDePasseFeuille" 'adapter le mot de passe
      Sheets(nom).[C7] = nom 'nom de l'élève
      Sheets(nom).Protect "MotDePasseFeuille"
      Sheets(t(i, 1)).Visible = vis 'état initial
    End If
  End If
1 Next
'---placement en tête des onglets autres que ceux des élèves---
For Each s In Sheets
  If IsError(Application.Match(s.Name, Application.Index(t, , 2), 0)) _
    Then s.Move Before:=Sheets(1): n = n + 1
Next
'---classement des onglets des élèves dans l'ordre de la feuille---
For i = 2 To UBound(t)
  If CStr(t(i, 2)) <> "" Then _
    Sheets(CStr(t(i, 2))).Move After:=Sheets(n): n = n + 1
Next
Sheets("Base").Move Before:=Sheets(1)
Sheets("Base").Activate
ThisWorkbook.Protect "MotDePasseClasseur"
End Sub

Mais je remarque que après chaque clique même si il n'y a pas de nouveaux élèves elle déprotège le classeur et le laisse déprotéger, et après un autre clique elle le protège 😡.

Aussi pour les 2 autres macros Impression & Création PDF, elles déprotèges le classeur mais si je ne les ai pas modifié ou ajouté quoi que ce soit.

@ + +
 
Vote positif 0 Vote négatif
Re : [VBA] Créer des onglets à partir des autres vierges

Re,
Finalement j'ai fait comme suite et ça marche tout fonctionne bien maintenant :
Code: 
Sub CréerOnglets()
Dim s As Object, t, i&, nom$, vis%, n&
Application.ScreenUpdating = False
On Error Resume Next
'---création des feuilles---
t = Sheets("Base").[A1].CurrentRegion
For i = 2 To UBound(t)
  If IsError(Sheets(t(i, 1))) Then GoTo 1
  nom = CStr(t(i, 2))
  If IsError(Sheets(nom)) Then
    If nom <> "" Then
    ThisWorkbook.Unprotect "MotDePasseClasseur"
      vis = Sheets(t(i, 1)).Visible
      Sheets(t(i, 1)).Visible = True
      Sheets(t(i, 1)).Copy Before:=Sheets(1)
      ActiveSheet.Name = nom
      Sheets(nom).Unprotect "MotDePasseFeuille" 'adapter le mot de passe
      Sheets(nom).[C7] = nom 'nom de l'élève
      Sheets(nom).Protect "MotDePasseFeuille"
      Sheets(t(i, 1)).Visible = vis 'état initial
    ThisWorkbook.Protect "MotDePasseClasseur"
    End If
  End If
1 Next
'---placement en tête des onglets autres que ceux des élèves---
For Each s In Sheets
ThisWorkbook.Unprotect "MotDePasseClasseur"
  If IsError(Application.Match(s.Name, Application.Index(t, , 2), 0)) _
    Then s.Move Before:=Sheets(1): n = n + 1
Next
'---classement des onglets des élèves dans l'ordre de la feuille---
For i = 2 To UBound(t)
  If CStr(t(i, 2)) <> "" Then _
    Sheets(CStr(t(i, 2))).Move After:=Sheets(n): n = n + 1
Next
Sheets("Base").Move Before:=Sheets(1)
Sheets("Base").Activate
ThisWorkbook.Protect "MotDePasseClasseur"
End Sub
Merci de me dire si c'est comme ça qu'il faut ou non ??
ça marche, mais j'aime bien avoir vos conseils

@ + +
 
Vote positif 0 Vote négatif
Re : [VBA] Créer des onglets à partir des autres vierges

Bonsoir à Toutes et tous , Rachid,

Bon un truc est sur jouer avec la gestion d'erreur sans la localiser correctement cela peut jouer des tours ,

Voici un code sans débrayer la gestion d'erreur .

Code: 
Sub CréerOnglets()
Dim s As Object, t As Variant, i&, nom$, vis%, n&
Dim Existe As Boolean, Onglet As Worksheet
Application.ScreenUpdating = False
'---création des feuilles---
t = Sheets("Base").[A1].CurrentRegion
For i = 2 To UBound(t)
'Ici

 Existe = False
 For Each Onglet In ThisWorkbook.Worksheets
  If Onglet.Name = t(i, 1) Then Existe = True
 Next

'jusque là
  If Not Existe Then GoTo 1
  
  nom = CStr(t(i, 2))

'idem 
 Existe = False
 For Each Onglet In ThisWorkbook.Worksheets
  If Onglet.Name = nom Then Existe = True
 Next

'voilà 
 If Not Existe Then
    If nom <> "" Then
    ThisWorkbook.Unprotect "MotDePasseClasseur"
      vis = Sheets(t(i, 1)).Visible
      Sheets(t(i, 1)).Visible = True
      Sheets(t(i, 1)).Copy Before:=Sheets(1)
      ActiveSheet.Name = nom
      Sheets(nom).Unprotect "MotDePasseFeuille"  'adapter le mot de passe
      Sheets(nom).[C7] = nom 'nom de l'élève
      Sheets(nom).Protect "MotDePasseFeuille"
      Sheets(t(i, 1)).Visible = vis 'état initial
    End If
  End If
1 Next
'---placement en tête des onglets autres que ceux des élèves---
For Each s In Sheets
  If IsError(Application.Match(s.Name, Application.Index(t, , 2), 0)) _
    Then s.Move Before:=Sheets(1): n = n + 1
Next
'---classement des onglets des élèves dans l'ordre de la feuille---
For i = 2 To UBound(t)
  If CStr(t(i, 2)) <> "" Then _
    Sheets(CStr(t(i, 2))).Move After:=Sheets(n): n = n + 1
Next
Sheets("Base").Move Before:=Sheets(1)
Sheets("Base").Activate
ThisWorkbook.Protect "MotDePasseClasseur"
End Sub
 
Vote positif 0 Vote négatif
Re : [VBA] Créer des onglets à partir des autres vierges

Rachid,
J'ai retesté au moins 3 fois

Voici dans le fichier
 

Pièces jointes

Vote positif 0 Vote négatif
Re : [VBA] Créer des onglets à partir des autres vierges

Re,
Je viens de voir le classeur joint, le problème vient du fait qu'il n y a pas de nouveaux élèves, essayer de cliquer après avoir créé les onglets pour la première fois sans ajouter aucun nouvel élève, par-contre avec le truc que j'ai fait sur le post #36 je n'ai aucun problème.

@ + +
 
Vote positif 0 Vote négatif
Re : [VBA] Créer des onglets à partir des autres vierges

Rachid ,

Voilà , suite à tes explications , j'arrive à reproduire le bug, donc dés que c'est reproductible , c'est corrigible ...

Je cherche un peu et revient vers toi.

ça plante ici
Code: 
For Each s In ThisWorkbook.Worksheets
  If IsError(Application.Match(s.Name, Application.Index(t, , 2), 0)) _
    Then s.Move Before:=Sheets(1): n = n + 1
Next

exactement là
Code: 
 s.Move Before:=Sheets(1)
 
Vote positif 0 Vote négatif
Re : [VBA] Créer des onglets à partir des autres vierges

Rachid , j'ai vu le pourquoi ,

en fait la 2) fois tu ne passe pas par la création d'onglet et donc tu ne déprotéges par le classeur bloquant ainsi la fonction move , ,en mettant à nouveau le unprotect juste devant les boucles de déplacement , ca marche beaucoup mieux

Code: 
 ThisWorkbook.Unprotect "MotDePasseClasseur"

'---placement en tête des onglets autres que ceux des élèves---
For Each s In ThisWorkbook.Worksheets
  If IsError(Application.Match(s.Name, Application.Index(t, , 2), 0)) _
    Then s.Move Before:=Sheets(1): n = n + 1
Next
 
Vote positif 0 Vote négatif
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

WTF
  • Résolu(e)
Microsoft 365 Créer une base de données à partir de 2 onglets
Réponses
3
Affichages
679
WTF
WTF
B
  • Question Question
XL 2016 Récupérer les valeurs de chaque titre à partir de plusieurs onglets
Réponses
4
Affichages
595
bnolwalid
B
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
C
  • Question Question
XL 2021 VBA - créer une boucle de calcul pour remplir un tableau à partir de 2 autres sur une même feuille
Réponses
7
Affichages
959
clineM
C
B
  • Question Question
XL 2016 Macro BVA pour créer une synthèse à partir de plusieurs onglets Excel
Réponses
6
Affichages
1 K
bnolwalid
B
C
  • Résolu(e)
Microsoft 365 Duplication à partir d'une base de données du contenu d'un onglet dans d'autres onglets
Réponses
2
Affichages
765
Céline49
C
surgeon84fr
  • Question Question
XL 2016 Macro VBA pour créer une BdD à partir de plusieurs fichiers
Réponses
2
Affichages
2 K
surgeon84fr
surgeon84fr
F
  • Question Question
Créer feuilles à partir des cellules d'une colonne
Réponses
4
Affichages
2 K
fouggy
F
altinea
  • Question Question
initialisation combobox et affichage des onglets à partir de
2
Réponses
19
Affichages
2 K
altinea
altinea
C
  • Question Question
Copie automatique de cellules quand autre cellule non vide
2 3
Réponses
40
Affichages
4 K
Gardien de phare
Gardien de phare
N
  • Question Question
Créer plusieurs fichiers à partir d'un seul, avec onglets, formules et protection
2
Réponses
15
Affichages
23 K
Nicolas_G
N
D
  • Question Question
Macro pour créer des onglets différents pour chaque ligne d'un onglet source
Réponses
7
Affichages
10 K
dragonfly
D
K
  • Question Question
Créer et renommer des onglets à partir de cellules d'un autre classeur
Réponses
2
Affichages
2 K
kau
K
DIGGERJACK
  • Question Question
Créer des onglets et y reporter des infos
Réponses
5
Affichages
1 K
DIGGERJACK
DIGGERJACK
A
  • Question Question
Problème avec l'actualisation des fontions récursives créer sous VBA.
Réponses
2
Affichages
3 K
aloison
A
nat54
  • Question Question
Créer des onglets à partir d'un filtre automatique
2
Réponses
22
Affichages
12 K
Eve-Line
E
O
  • Question Question
Comment créer des onglets à partir d'une liste dans Excel
Réponses
1
Affichages
3 K
porcinet82
porcinet82
Retour