XL 2010 intégrer plusieurs fois le même onglet (avec nom leg différent) a un classeur par macro bouton

youky(BJ)

XLDnaute Barbatruc

• 9 Décembre 2018

• #31

Dans le code la 1ère ligne est
Dim n,k,tx,...…….ajoute ,nb
La variable nb n'est pas définie
Ou enlève ton Option Explicit
Attention le nb =7 cela indique le nombre d'onglets à copier
Bruno

 

Dernière édition: 9 Décembre 2018

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 9 Décembre 2018

• #32

Bruno
j'ai bien retiré le option explicit
je te conf que j'ai bien 7 onglets a copier. Les 7 onglets a copier sont de couleur gris foncé

ci-dessous copie écran avec erreur surligné en jaune je suppose

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 9 Décembre 2018

• #33

meilleure copie ecran

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 9 Décembre 2018

• #34

Yes j'avais pas testé j'ai ajouté +1 dans For k = deb - nb +1 To deb

VB:

Sub Ajouter()
Dim n, k, tx, onglet, deb, init,nb
init = "FM" ' les 2 premi?re lettre du dernier onglet
nb = 7 'nombre d'onglet ? copier
ActiveWorkbook.Unprotect "AIRBUS"
For k = Sheets.Count To 1 Step -1
If Left(Sheets(k).Name, 2) = init Then
deb = k
n = Val(Replace(Sheets(k).Name, init, ""))
tx = Replace(Sheets(k).Name, n, n + 1)
Exit For
End If
Next
For k = deb - nb +1 To deb
Sheets(k).Copy after:=Sheets(Sheets.Count)
tx = Replace(Sheets(k).Name, n, n + 1)
ActiveSheet.Name = tx
Next
ActiveWorkbook.Protect "AIRBUS"
End Sub

Bruno

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 9 Décembre 2018

• #35

cela me semble parfait
un grand merci à toi Bruno
Seb

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 9 Décembre 2018

• #36

Bonjour Jean Marie
désolé je ne comprends pas ta question
seb

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 9 Décembre 2018

• #37

Bonsoir Bruno
j'essaie d'ajouter une 2e macro du même type dans le même fichier mais j'ai une erreur.
je me demandais s'il était possible d'avoir plusieurs macro dans un même fichier qui ne commence pas pas 'option explicite' ?
merci par avance
seb

ps : voici le message d'erreur (surligné jaune)

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 9 Décembre 2018

• #38

en gros peux tu m'aider à faire le même scrip en commençant la macro par

Option explicit...

merci

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 9 Décembre 2018

• #39

Le bug interviens car il n'y a pas d'onglet qui ont le nom qui commence par "CM" (les 2 première lettres)
Je vois "Mobile CM1" mais là c'est pas les 1ère.
Tu peux remettre Option Explicit, tu as déclaré toutes les variables.
Pour répondre à JM que je salue . . . .
Vu comme c'est parti les liens…. c'est pas gagné si les noms d'onglets changent chaque fois.
Bruno

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 10 Décembre 2018

• #40

Mais oui évidemment !
suis je bête !
merci pour ce rappel
seb

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 10 Décembre 2018

• #41

Dis moi
est ce que le nom de chaque onglet et la longueur de chaque nom d'onglet a une incidence sur le script ?
a part le fait qu'ils se terminent chacun par 1 ?
merci
seb

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 10 Décembre 2018

• #42

Bonjour Seb,
Bonjour Jean Marie,
Ce matin j'ai réalisé ce fichier en partant de mon 1er fichier avec des (1)
Je trouve qu'il répond à tout et cela très facilement.
Une seule macro pour autant d'onglets à copier souhaité qu'importe le nom des onglets.
Il peut y avoir des onglets avant ou après c'est no pb. Seul importe de nommer avec (1) les onglets à copier.
Les formules suivent….et c'est Excel qui incrémente de lui même.
Bruno

 

Pièces jointes

• Class1 (1).xlsm

  22.3 KB · Affichages: 16

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 28 Mai 2019

• #43

Bonsoir à tous

il y a quelques mois avec l'aide de beaucoup d'entre vous (surtout Youki), j'ai fait un code qui me plaisait beaucoup.

Dernièrement je me suis rendu compte qu'il y avait un bug et je galère pour trouver la solution.

Dans l'onglet BL Impr. 1, lorsque l'on clique sur le bouton NEW, le jeu de 6 feuilles est doublé avec le nom qui s'incrémente automatiquement.

Le nbr de jeu d'onglets s'ajoute autant de fois que l'on clique sur le bouton NEW et le nom de chacune des feuilles s'augmente d'une unité

Le problème est que toutes les feuilles ont des liens avec l'onglet BL Impr.1 et les feuilles supplémentaires gardent ce même lien.

exemple : la Cellule D8 de l'onglet Man1 est liée à la cellule C25 de l'onglet BL Impr.1 ; après clic sur l'onglet NEW un nouveau jeu d'onglets s'incrémente et si l'on prend la cellule D8 de l'onglet Man2, la cellule est toujours liée à l'onglet BL Impr.1 alors que je voudrai qu'elle soit liée à la cellule C25 de l'onglet BL Impr.2 et ainsi de suite au fur et à mesure des nouveaux clics

Idem pour les autres onglets

j'espère que je me fais suffisamment comprendre

un grand merci a vous tous

voir PJ
Seb

 

Pièces jointes

• Classeur10.xlsm

  117 KB · Affichages: 8

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 29 Mai 2019

• #44

Bonjour
ouvre la PJ et clic sur le bouton new, tu verras cela se fera automatiquement
le principe me va tres bien. ce sont juste les liens entre les onglets qui doivent etre modifiés
merci beaucoup
seb

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Mai 2019

• #45

Salut bien Seb,
Dans le gestionnaire de noms supprime ou refait les 2 lignes avec #Ref

et c'est tout bon
Bruno

 

Vote positif 0 Vote négatif