Copie d'onglet en fonction d'une liste

[ludo.dolu]

Bonjour à tous !

Je consulte depuis quelques temps le forum en tant que simple spectacteur, c'est une vraie mine d'infos.
Je passe de l'autre coté de la barrière, car mon problème reste posé malgré tout ce qui a été dit sur le sujet.

Dans mon fichier, il y a 2 onglets : "Immat", et un modèle
Dans mon onglet immat, il y a une liste d'immatriculations.
Je souhaiterai créer un onglet par immatriculation (puisée dans la feuille "Immat")

Je joins mon fichier pour plus de précisions.

P'tite précision qui peut s'avérer utile : La macro doit tourner sous Excel 95...

Merci à vous

 

[Kobaya]

Re : Copie d'onglet en fonction d'une liste

salut ludo,

j'ai fait la macro avec Excel 2002, mais ça devrait pas opser de problème sous Excel 95.

 

[ludo.dolu]

Re : Copie d'onglet en fonction d'une liste

Impec,

Ca marche !

Je n'avais pas cette ligne {Range("A1").CurrentRegion.Cells}, ligne que d'ailleurs je ne comprends pas ...

Je vais plancher sur la syntaxe, je crois...

Merci !

 

[ludo.dolu]

Re : Copie d'onglet en fonction d'une liste

Je crois que je vais encore "abuser", disons plutôt "profiter" de vos talents !😉

Est-il possible d'appliquer cette macro en y apportant ces modifications :

- Créer tous ces onglets dans un nouveau fichier
- Y adjoindre l'onglet "RECAP" que j'ajoute à ce post, qui doit etre en liaison directe avec les onglets créés (cet onglet contient les données récpitulatives de chacun des onglets Immat
- Supprimer l'onglet Immat en fin de traitement.

Merci encore pour votre implication...

 

[Kobaya]

Re : Copie d'onglet en fonction d'une liste

{Range("A1").CurrentRegion.Cells} renvoie simplement la collection de cellules non vides contigües à A1 🙂

 

[Kobaya]

Re : Copie d'onglet en fonction d'une liste

là ludo, tu demandes un peu la lune 😛

ça me semble très compliqué de faire des liaisons entre n onglets sur l'onglet Recap.


pour supprimer l'onglet Immat, c'est plus facile. ajoute ceci à la fin de la macro :
Application.DisplayAlert = False
Sheets("Immat").Delete
Application.DisplayAlerts = True

 

[ziopizza]

Re : Copie d'onglet en fonction d'une liste

Bonjour ludo.dolu, Kobaya,
Regarde le fichier joint qui devrai faire ce que tu demandes, à adapter.
Salut Yves
Ps: J'ai garder la création de feuilles de Kobaya
Tu peux supprimer le 3 bouton et tu active cette ligne 'call NouvClass

 

[ludo.dolu]

Re : Copie d'onglet en fonction d'une liste

C'est tout à fait ce dont j'avais besoin.

Merci du coup de main.