Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel copie d'onglet avec formules

copie d'onglet avec formules

7 réponses
Avatar
Marc T
bonjour et bonne ann=E9e =E0 tous,

Voici mon pb, j'ai une liste de nom et divers infos certaines de ces
infos servent dans les cellules des autres feuilles dont les onglets
portent les noms de la liste cit=E9e plus haut (la macro fonctionne)
pour certains calculs. Je voudrai automatiser la cr=E9ation d'onglet sur
le mod=E8le existant mais prenant en compte l'ajout d'un nouveau nom
dans la liste.
J'ai l'impression de ne pas =EAtre clair du tout !!!
je vais joindre un classeur.
http://cjoint.com/?bsr3lwTZ5w
Vu la pointure des personnes qui c=F4sent ici j'ai espoir que quelqu'un
comprenne m^me ce que je n'arrive pas ou mal =E0 expliquer...
merci d'avance
Marc
Signaler un problème avec ce contenu

7 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
Avatar
JLuc
*Bonjour Marc T*,
Rajoute cette macro ou modifie les tiennes selon ton bon vouloir.

Sub test()
For x = 3 To Worksheets("Personnels").Range("A65000").End(xlUp).Row
If Worksheets("Personnels").Cells(x, 1) <> "" Then
flag = False
For y = 2 To Sheets.Count
If Sheets(y).Name = Worksheets("Personnels").Cells(x, 1).Value
Then flag = True
Next
If Not flag = True Then
Worksheets("salarié").Copy after:=Worksheets(Sheets.Count)
With Worksheets(Sheets.Count)
.Unprotect Password:="blabla"
.Name = Worksheets("Personnels").Cells(x, 1).Value
.Range("B1") = "=Personnels!A" & x
.Range("C1") = "=Personnels!B" & x
.Range("D1") = "=Personnels!C" & x
.Range("E1") = "=Personnels!D" & x
.Protect Password:="blabla"
End With
End If
Else
Exit Sub
End If
Next
End Sub

Au lieu de copier la premiere feuille "salarié" il faudrai en creer une
vierge et copier cette derniere ;o)

ReVoila ton classeur avec la macro ci dessus dans le module "Module5"
http://cjoint.com/?bsuVI17Diu
bonjour et bonne année à tous,

Voici mon pb, j'ai une liste de nom et divers infos certaines de ces
infos servent dans les cellules des autres feuilles dont les onglets
portent les noms de la liste citée plus haut (la macro fonctionne)
pour certains calculs. Je voudrai automatiser la création d'onglet sur
le modèle existant mais prenant en compte l'ajout d'un nouveau nom
dans la liste.
J'ai l'impression de ne pas être clair du tout !!!
je vais joindre un classeur.
http://cjoint.com/?bsr3lwTZ5w
Vu la pointure des personnes qui côsent ici j'ai espoir que quelqu'un
comprenne m^me ce que je n'arrive pas ou mal à expliquer...
merci d'avance
Marc



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
Patrick BASTARD
Bonjour, *Marc T*


Peut-être :
http://www.excelabo.net/moteurs/compteclic.php?nom=pb-recopiefeuille

sur le site de misange ?
--
Bien amicordialement,
P. Bastard



bonjour et bonne année à tous,

Voici mon pb, j'ai une liste de nom et divers infos certaines de ces
infos servent dans les cellules des autres feuilles dont les onglets
portent les noms de la liste citée plus haut (la macro fonctionne)
pour certains calculs. Je voudrai automatiser la création d'onglet sur
le modèle existant mais prenant en compte l'ajout d'un nouveau nom
dans la liste.
J'ai l'impression de ne pas être clair du tout !!!
je vais joindre un classeur.
http://cjoint.com/?bsr3lwTZ5w
Vu la pointure des personnes qui côsent ici j'ai espoir que quelqu'un
comprenne m^me ce que je n'arrive pas ou mal à expliquer...
merci d'avance
Marc


Avatar
Marc T
Bonjour et merci Jean-Luc,
1er essai après avoir ouvert ton classeur, géant !!! il crée tous
les onglets voulues.
2ème essai j'ai erreur j'ai erreur 1004 la méthode copy de la classe
worksheet à échouée.
et chaque fois suivante ça fait ça... Je ne suis pas assez calé pour
piger ce qui ce passe !!! pourtant c'est pas loin ...
Peut-être est-ce lié à ce que tu me dis concernant la fueille vierge
a créé mais si je fais ça je n'ai plus tt mes calculs ... sans doute


*Bonjour Marc T*,
Rajoute cette macro ou modifie les tiennes selon ton bon vouloir.

Sub test()
For x = 3 To Worksheets("Personnels").Range("A65000").End(xlUp).Row
If Worksheets("Personnels").Cells(x, 1) <> "" Then
flag = False
For y = 2 To Sheets.Count
If Sheets(y).Name = Worksheets("Personnels").Cells(x, 1).Value
Then flag = True
Next
If Not flag = True Then
Worksheets("salarié").Copy after:=Worksheets(Sheets.Count)
With Worksheets(Sheets.Count)
.Unprotect Password:="blabla"
.Name = Worksheets("Personnels").Cells(x, 1).Value
.Range("B1") = "=Personnels!A" & x
.Range("C1") = "=Personnels!B" & x
.Range("D1") = "=Personnels!C" & x
.Range("E1") = "=Personnels!D" & x
.Protect Password:="blabla"
End With
End If
Else
Exit Sub
End If
Next
End Sub

Au lieu de copier la premiere feuille "salarié" il faudrai en creer une
vierge et copier cette derniere ;o)

ReVoila ton classeur avec la macro ci dessus dans le module "Module5"
http://cjoint.com/?bsuVI17Diu
bonjour et bonne année à tous,

Voici mon pb, j'ai une liste de nom et divers infos certaines de ces
infos servent dans les cellules des autres feuilles dont les onglets
portent les noms de la liste citée plus haut (la macro fonctionne)
pour certains calculs. Je voudrai automatiser la création d'onglet sur
le modèle existant mais prenant en compte l'ajout d'un nouveau nom
dans la liste.
J'ai l'impression de ne pas être clair du tout !!!
je vais joindre un classeur.
http://cjoint.com/?bsr3lwTZ5w
Vu la pointure des personnes qui côsent ici j'ai espoir que quelqu'un
comprenne m^me ce que je n'arrive pas ou mal à expliquer...
merci d'avance
Marc



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS



Avatar
JLuc
Apparement, l'erreur se produit si tu efface des feuilles et que tu
recommence. Pour palier a ce probleme, il faut fermer le classeur en
l'enregistrant et le reouvrir. Je ne vois pas d'ou ca vient, peut etre
qu'un MVP pourrais te repondre... ?

Marc T avait soumis l'idée :
Bonjour et merci Jean-Luc,
1er essai après avoir ouvert ton classeur, géant !!! il crée tous
les onglets voulues.
2ème essai j'ai erreur j'ai erreur 1004 la méthode copy de la classe
worksheet à échouée.
et chaque fois suivante ça fait ça... Je ne suis pas assez calé pour
piger ce qui ce passe !!! pourtant c'est pas loin ...
Peut-être est-ce lié à ce que tu me dis concernant la fueille vierge
a créé mais si je fais ça je n'ai plus tt mes calculs ... sans doute


*Bonjour Marc T*,
Rajoute cette macro ou modifie les tiennes selon ton bon vouloir.

Sub test()
For x = 3 To Worksheets("Personnels").Range("A65000").End(xlUp).Row
If Worksheets("Personnels").Cells(x, 1) <> "" Then
flag = False
For y = 2 To Sheets.Count
If Sheets(y).Name = Worksheets("Personnels").Cells(x, 1).Value
Then flag = True
Next
If Not flag = True Then
Worksheets("salarié").Copy after:=Worksheets(Sheets.Count)
With Worksheets(Sheets.Count)
.Unprotect Password:="blabla"
.Name = Worksheets("Personnels").Cells(x, 1).Value
.Range("B1") = "=Personnels!A" & x
.Range("C1") = "=Personnels!B" & x
.Range("D1") = "=Personnels!C" & x
.Range("E1") = "=Personnels!D" & x
.Protect Password:="blabla"
End With
End If
Else
Exit Sub
End If
Next
End Sub

Au lieu de copier la premiere feuille "salarié" il faudrai en creer une
vierge et copier cette derniere ;o)

ReVoila ton classeur avec la macro ci dessus dans le module "Module5"
http://cjoint.com/?bsuVI17Diu
bonjour et bonne année à tous,

Voici mon pb, j'ai une liste de nom et divers infos certaines de ces
infos servent dans les cellules des autres feuilles dont les onglets
portent les noms de la liste citée plus haut (la macro fonctionne)
pour certains calculs. Je voudrai automatiser la création d'onglet sur
le modèle existant mais prenant en compte l'ajout d'un nouveau nom
dans la liste.
J'ai l'impression de ne pas être clair du tout !!!
je vais joindre un classeur.
http://cjoint.com/?bsr3lwTZ5w
Vu la pointure des personnes qui côsent ici j'ai espoir que quelqu'un
comprenne m^me ce que je n'arrive pas ou mal à expliquer...
merci d'avance
Marc



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS




--
JLuc



Avatar
Marc T
Re-Bonjour,
OK, je vais fonctionner comme ça. En tous cas un grand merci à toi
Bonne journée
Marc
Avatar
JLuc
Marc T avait soumis l'idée :
Re-Bonjour,
OK, je vais fonctionner comme ça. En tous cas un grand merci à toi
Bonne journée
Marc


De rien et au plaisir

--
JLuc

Avatar
Marc T
Bonjour Patrick,

merci de ta réponse, mais mes compétences (très limitées) ne me
permettent pas d'adapter le classeur auquel tu fais référence.
Merci quand même de l'info
Cordialement
Marc