Création 2 onglets avec 2 modèles différents

Bonjour à tous,

Grâce au forum, j'ai pu créer une macro qui me permet de créer et de nommer des onglets sur la base d'un modèle... et cela fonctionne super bien

Voici le fichier en exemple

Ça marche tellement bien, que je suis un peu devenue accro au concept !

Aussi, je voudrai savoir s'il est possible de créer un autre onglet (par exemple modèle bis) qui s'afficherait en même temps (juste après) que le premier onglet.

Pour être plus claire, si je prends mon fichier, en cliquant sur le bouton "créer onglet", il y aurait non pas un mais :

• 2 onglets qui s'afficheraient à la suite pour a
• 2 onglets qui s'afficheraient à la suite pour b

Ci-joint le fichier avec les 2 modèles :

Merci par avance pour votre aide

Petitejiji

Bonjour,

Un essai ... simplement en doublant le code ...

ric

Bonjour Petitejiji, ric, le forum,

@ric : petite correction dans la macro AjoutOngletbis....

If FeuilleExiste(nameOng) = True Then
    'msg = msg & "L'onglet " & nameOng & " éxiste déjà" & Chr(10)
    MsgBox "L'onglet " & nameOng & " éxiste déjà"
    Application.DisplayAlerts = False
    Sheets("Modèle bis (2)").Delete
    Sheets("Feuil1").Select

, tu as oublié le "bis", la macro plante si l'onglet existe déjà,

Cordialement,

Salut Ric,

merci beaucoup pour ton aide. En fait, j'ai eu le même réflexe et j'ai doublé également le code.

Mais j'ai deux problèmes :

=> dans mon onglet "synthèse", (tableau en rouge), il y a également le mot synthèse qui apparait comme "Nom élève" alors qu'il faudrait uniquement a et b

=> je souhaite avoir les 2 onglets à la suite. Si je prends l'exemple de ton fichier, il faudrait que les onglets soient présentés dans l'ordre suivant :

• onglet "a" puis onglet "a Bis"
• onglet "b" puis onglet "b Bis"

Merci encore

Petitejiji

Re,

Correctif....

Dans la macro listeonglet/ vu qu'on a rajouté Modèle bis....

 For i = 5 To Sheets.Count

Bonne soirée,

Bonjour à tous,

Une version avec alternance des noms et des noms bis...

Un essai ...

ric

Re,

Une version avec alternance des noms et des noms bis..

Bien joué ric

Cordialement,

Salut à tous les 2,

C'est génial.... c'est exactement ce qu'il me faut

Merci beaucoup pour votre aide

Bonne journée à tous

Petitejiji