Recopier des onglets en les renommant

[Alexandre]

Bonjour au "forum"....

Après de nombreux essais infructueux, je m'adresse à vous.

Je souhaitais, par une marco (?), permettre la recopie de 2 onglets (le 2ème et le 3ème du classeur) en fonction d'une liste de nom qui se trouverait sur la première sur la plage A17 jusqu'à..... ce qu'elle ne rencontre plus de nom.

Cette macro, permettrait de plus de renommer automatiquement les onglets créés en fonction de cette liste. Enfin, elle effacerait les onglets "modèles" et enregistrerait le classeur sous un nouveau nom (là, je crois avoir trouvé la macro, elle se trouve dans l'exemple).


Existerait-il une solution.


Merci à toutes et à tous


Alexandre

 

[Abel]

Bonjour Alexandre,

Regarde l'exemple joint.

J'espère qu'il répondra en partie à tes question. J'ai fait ça en vitesse.
J'ai taillé un peu brutalement dans les calendriers car le fichier était trop gros.

Au fait, j'ai complèté mes réponses à ton fil précédent. Cela te convient-il ?


En espérant que cela te dépanne.

Abel

 

[Alexandre]

Bonjour....

j'ai tenté de faire fonctionner le fichier que tu as mis en pièce-jointe....

Malheureusement, j'aurais voulu savoir s'il était possible de créer l'ensemble des feuilles directement, et non pas en sélectionnant un nom dans la liste.

De plus, excel plante, et annonce une erreur correspondant à 'MkDir (Repertoire)' dans Visual Basic....


Merci à toi et aux autres, pour une éventuelle solution.


Alexandre

 

[CHti160]

Salut "Alexandre"
bonjour à tous
tu désires renommer deux feuilles avec le meme nom pris dans la liste de la feuille Données
car si tu copies Feuille d'etat et que tu l'appelles "Ti"
quand tu vas nommer la feuille REcap elle va aussi s'appeler "Ti" et celà n'est pas possible
ai je bien compris
ou alors il faut nommer les feuilles RecapTi etc
A+++
Jean Marie

 

[Abel]

Re,

La sélection d'un nom dans une liste peux se faire avant ou après la copie.

C'était plus pratique comme ça pour moi.

Pour renommer un onglet avec un nom pioché dans la liste, remplace "Tartempion" par la variable Nom dans le code.

Sinon, comme le demande CHti160, donne nous quelques précisions.

J'avoue être allé un peu vite dans mon exemple précédent.


Abel.

 

[CHti160]

re "Alexandre"
Salut"Abel"
en pièce jointe un exemple à adapter
A+++
Jean Marie

 

[Alexandre]

Bonjour,


Comme disait CHti160, le principe est là... renommer la feuille "modèle" appelée Feuille d'Etat par le nom, et la seconde prendrait le nom de 'Recap (suivi du nom correspondant'

Le tout, sans forcément de limite doms le cas échant....


Est-ce possible ?


Merci


Alexandre

 

[CHti160]

Salut"Alexandre"
as tu essayé ma proposition
sur mon portable celà fonctionne sur le PC non
tiens moi au courant
A+++
Jean Marie

 

[CHti160]

re
je te joint une autre copie
A+++
Jean Marie

 

[Alexandre]

Bonjour

cette dernière macro semble fonctionner correctement. merci.

Mais, il y a toujours un mais 🙂 est-il possible, lors de la création des nouvelles feuilles de respecter l'ordre initial. c'est à dire dans l'exemple que tu m'as envoyé : Jean puis Recap_Jean, et Celeda puis Recap_Celeda, etc. (un bel hommage à eux et ceux que je n'ai pas noté ici).

Merci "boucou"


Alexandre

 

[Alexandre]

Bonjour....

j'ai modifié très légèrement le code la macro que tu m'as fournie...

ainsi, pour correspondre aux plages de ma propre feuille, il devient :
Sub copieFeuilles()
Dim Ws As Worksheet
Dim DerLgn As Byte
Dim Lgn As Byte
Application.ScreenUpdating = False
Sheets("DONNEES").Select
DerLgn = Range("A65536").End(xlUp).Row

For Each Ws In ThisWorkbook.Worksheets
For Lgn = 17 To DerLgn
If Ws.Name = "DONNEES" Then GoTo Suivant

If Ws.Name = "FEUILLE D'ETAT" Then

Ws.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sheets("DONNEES").Range("A" & Lgn)


ElseIf Ws.Name = "RECAP" Then
Ws.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Ws.Name & "_" & Sheets("DONNEES").Range("A" & Lgn)
'Lgn = Lgn + 1
Else: Exit Sub


End If

Next
Suivant:
Next
Sheets("DONNEES").Select
With Application
' .DisplayAlerts = False ' pour supprimer les feuilles modeles
'Sheets("Feuille D'état").Delete
'Sheets("RECAP").Delete
' .DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub



Cependant, pour finaliser ce classeur, je devrais effectuer la même opération en me basant sur la plage B17 à B...... de façon à recopier des feuilles qui seraient originalement nommées 'FEUILLE D'ETAT2' et 'RECAP2'.

J'ai bien tenté de retravailler le code .... mais rien n'y fait !

Si quelqu'un a une idée....merci par avance !


Alexandre

 

[CHti160]

Salut"Alexandre"
Bonjour le "FORUM"
une question pour faire avancer ce fameux Chi milim blick
de façon à recopier des feuilles qui seraient originalement nommées 'FEUILLE D'ETAT2' et 'RECAP2'.
de combien de feuille d'état et de RECAP as tu besoin
car si c'est une par moi on peux créer la macro pour quelle crée d'entrée toutes les feuilles
je vais te mettre un exemple pour trois mois qui pourras être adapter
tiens moi au courant
A+++
Jean Marie

 

[Alexandre]

Re...Bonjour

Désolé de ne pas avoir répondu avant, mais j'étais au Liban ces derniers jours...

Merci pour les réponses.

En fait, chaque feuille nommée 'FEUILLE D'ETAT2' ainsi que 'RECAP2' récapituleraient chacun l'année entière. En fait, le nombre de feuilles créer dépend simplement du nombre de nom qui seraient entrés sur la feuille des données....


Merci encore


Alexandre

 

[CHti160]

Salut"Alexandre"
Bonjour le"FORUM"
donc si j'ai bien compris
si tu as 10 noms il te faut 10 --->12 mois plus 10 fois 12 recaps
si tel est le cas en modifiant le paramètre
For Each Ws In ThisWorkbook.Worksheets
For i = 1 To3-------------->'remplacer 3 par 12
For Lgn = 5 To DerLgn
tu auras 120 mois et 120 récap
tiens moi au courant
A+++
Jean Marie

 

[Alexandre]

Bonjour "forum", et surtout à toutes et à tous

En fait, il s'agit simplement de créer une seule feuille "FEUILLE d'ETAT" et une seule feuille "RECAP" par personne...Et non pas unbe par mois et par personne....


Merci beaucoup


Alexandre