Excel, copier/coller automatique d'un onglet général vers d'autres onglets

Gaspard · 4 Août 2003

Bonjour tout le monde
J'aimerais solutionner un pb que je rencontre avec Excel.

J'ai un fichier Excel avec 10 feuilles.
La première feuille est la feuille globale qui contient toutes les infos.
Ensuite les 9 autres feuilles sont des copier/coller d'une partie de la feuille globale.

Etant donné que je mets à jour assez régulièrement la feuille globale, je dois refaire à chaque fois les 9 copier/coller manuellement.
J'aimerais automatiser cette tâche. Je précise que le copier/coller spécial avec lien ne me conviens pas (si je rajoute une ligne à la feuille globale ou une colonne le copier/coller avec lien ne fait pas ce que je veux)

Il faudrait que je réalise une sorte de macro, qui en fonction du contenu d'une cellule puisse copier/coller la ligne entière de la feuille générale vers la bonne feuille.

Je ne sais pas trop comment m'y prendre alors si vous avez des idées, n'hésitez pas

Merci

P.S. J'ai mis un fichier Excel en pièce jointe pour bien montrer ce que je voulais obtenir

Dan · 4 Août 2003

Bonjour,

Juste une question avant de te donner une réponse, devras-tu après cela calculer des valeurs. Je pense par exemple à connaitre le nombre d'info 2 ou le nombre de personne vivant à paris, ...

@+

Dan

Moa · 4 Août 2003

Salut Gaspard !

Regarde le fichier joint, fait avec l'enregistreur de macros, puis légèrement modifié.

Voilà le début de la macro :

Sub CopierAvecFiltre()

Application.ScreenUpdating = False

'Recopie vers feuille 1
Sheets("Général").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"

Range("A1").Select
ActiveCell.Offset(1, 0).Select

Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("1").Select
Range("A2").Select
ActiveSheet.Paste
Range("A1").Select

A recopier autant de fois qu'il y a de feuilles.

Je dois partir, alors pas le temps de t'expliquer le fonctionnement.

Ouvre la macro et dissèque la.

@ +

Moa

gaspard · 4 Août 2003

Merci pour vos réponse.
Je les testerais demain pq aujourd'hui j'ai plus le temps
Je vous tiendrais au courant

Pour Dan
"devras-tu après cela calculer des valeurs. Je pense par exemple à connaitre le nombre d'info 2 ou le nombre de personne vivant à paris, ..."
=> non, à priori, j'ai rien à calculer

Merci

JPH · 4 Août 2003

Bonsoir,
C’est un bon exemple que tu nous donnes la, j’ai réalisé une version avec l’événement « BeforeDoubleClick » ainsi une fois la ligne remplie tu double clic dans la colonne 1
Et la ligne se copie dans la feuille qui porte le nom de la cellule double cliqué de la colonne 1, si elle n’existe pas la feuille est crée.
La macro est dans la feuille « Général », elle effectue aussi une vérification de la dernière ligne copiée, donc si elle existe déjà elle ne la copie pas.
Il est possible de faire la m^me chose avec « Worksheet_Change » en colonne 6 à la fin de la saisie etc …

Regarde le fichier joint qui marche.

Cordialement

MJ71 · 2 Novembre 2012

Re : Excel, copier/coller automatique d'un onglet général vers d'autres onglets

Aie j'ai été un peu plus vite que la musique...
Je n'arrive pas à mettre plus de noms ... j'aurais besoin de la possibilité de gérer 5000 lignes

Merci de votre aide

MJ71

Excel, copier/coller automatique d'un onglet général vers d'autres onglets

Gaspard

Guest

Pièces jointes

Dan

Guest

Moa

Guest

Pièces jointes

gaspard

Guest

JPH

Guest

Pièces jointes

MJ71

XLDnaute Nouveau

Discussions similaires

Excel, copier/coller automatique d'un onglet général vers d'autres onglets

Gaspard

Guest

Pièces jointes

Dan

Guest

Moa

Guest

Pièces jointes

gaspard

Guest

JPH

Guest

Pièces jointes

MJ71

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency