Recopier des onglets en les renommant

A

Abel

Guest

• 29 Novembre 2004

• #2

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

 

Pièces jointes

• SuiviHeuresAlexandre.zip

  42.4 KB · Affichages: 21
• SuiviHeuresAlexandre.zip

  42.4 KB · Affichages: 15
• SuiviHeuresAlexandre.zip

  42.4 KB · Affichages: 18

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 29 Novembre 2004

• #3

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

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 29 Novembre 2004

• #4

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

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 29 Novembre 2004

• #5

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.

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 29 Novembre 2004

• #6

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

 

Pièces jointes

• AjoutFeuilleRenomme.zip

  16.2 KB · Affichages: 23
• AjoutFeuilleRenomme.zip

  16.2 KB · Affichages: 23
• AjoutFeuilleRenomme.zip

  16.2 KB · Affichages: 23

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 29 Novembre 2004

• #7

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

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 29 Novembre 2004

• #8

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

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 29 Novembre 2004

• #9

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

 

Pièces jointes

• AjoutFeuilleRenomme.zip

  16.5 KB · Affichages: 11
• AjoutFeuilleRenomme.zip

  16.5 KB · Affichages: 15
• AjoutFeuilleRenomme.zip

  16.5 KB · Affichages: 16

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 29 Novembre 2004

• #10

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

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 30 Novembre 2004

• #11

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

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 3 Décembre 2004

• #12

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

 

Pièces jointes

• AjoutFeuilleRenommeV2.zip

  20.4 KB · Affichages: 17

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 9 Décembre 2004

• #13

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

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 10 Décembre 2004

• #14

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

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 10 Décembre 2004

• #15

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

 

Vote positif 0 Vote négatif