Macro regroupant des valeurs de différentes feuilles
bouhaben79
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour A tous,
Je cherche mais en vain, un macro qui me permettrai de
Copier des valeurs situées dans tous les onglets suivant un onglet précis nommé "Synthèse" et les copier dans cet onglet
2 - La sélection des valeurs à copier se situent sur 2 colonnes distinctes
soit Colonne B ligne 5 et colonne D ligne 5
3 - La sélection des valeurs à copier doit commencer à ligne 5 et se terminer jusqu'à ce que la 1ère cellule vide soit trouvé
4 - La sélection copiée doit être collée dans l'onglet synthèse à partir de A2 et la copie de la sélection des onglets suivants doit être incrémenté à la suite des valeurs copiées précédemment.
je ne sais pas si mes explications sont claires, mais votre aide est la bienvenue!!
Merci
Je cherche mais en vain, un macro qui me permettrai de
Copier des valeurs situées dans tous les onglets suivant un onglet précis nommé "Synthèse" et les copier dans cet onglet
2 - La sélection des valeurs à copier se situent sur 2 colonnes distinctes
soit Colonne B ligne 5 et colonne D ligne 5
3 - La sélection des valeurs à copier doit commencer à ligne 5 et se terminer jusqu'à ce que la 1ère cellule vide soit trouvé
4 - La sélection copiée doit être collée dans l'onglet synthèse à partir de A2 et la copie de la sélection des onglets suivants doit être incrémenté à la suite des valeurs copiées précédemment.
je ne sais pas si mes explications sont claires, mais votre aide est la bienvenue!!
Merci
A voir également:
- Macro regroupant des valeurs de différentes feuilles
- Comment faire un livret avec des feuilles a4 - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Bruler des feuilles de laurier - Guide
- Regrouper plusieurs feuilles excel en une seule - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
5 réponses
Bonjour
Dans la macro vous copiez B5 à Bxx et collez sur synthèse en A2 et pour D5 à Dxx vous le collez aussi en A2 fin bas en suivant?
Voici une macro pour copier feuille 1 sur synthèse puis feuille2 sur synthèse aussi en A2 jusqu'en bas de la colonne première cellule vide
Sub COPIE()
Sheets("FEUIL1").Select
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("synthèse").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Range("d5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("synthèse").Select
Range("a2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Sheets("FEUIL2").Select
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("synthèse").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("d5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("synthèse").Select
Range("a2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
End Sub
Dans la macro vous copiez B5 à Bxx et collez sur synthèse en A2 et pour D5 à Dxx vous le collez aussi en A2 fin bas en suivant?
Voici une macro pour copier feuille 1 sur synthèse puis feuille2 sur synthèse aussi en A2 jusqu'en bas de la colonne première cellule vide
Sub COPIE()
Sheets("FEUIL1").Select
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("synthèse").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Range("d5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("synthèse").Select
Range("a2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Sheets("FEUIL2").Select
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("synthèse").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("d5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("synthèse").Select
Range("a2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
End Sub
Bonjour Merci pour ce début.
pour être plus précis je veux
1- Copier dans feuil 1 B5->Bxx
2 - Coller la sélection dans le feuille synthèse en A2
3- Copier dans feuil 1 D5->Dxx
4 - Coller la selection dans le feuille synthèse en B2
Il faut à chaque fois coller les "valeurs" copiées!!!
Après faire le même copier coller, sauf que les valeurs copiés de la feuil 2 doivent etre toujours collées dans la feuil synthèse et surtout s'incrémenter à la suite des après valeurs précédemment collées provenant de la feuil 1.
De plus y-a-t-il un code qui permettrait de faire en automatique ce copié/collé sur tous les onglets du classeurs?
Merci
pour être plus précis je veux
1- Copier dans feuil 1 B5->Bxx
2 - Coller la sélection dans le feuille synthèse en A2
3- Copier dans feuil 1 D5->Dxx
4 - Coller la selection dans le feuille synthèse en B2
Il faut à chaque fois coller les "valeurs" copiées!!!
Après faire le même copier coller, sauf que les valeurs copiés de la feuil 2 doivent etre toujours collées dans la feuil synthèse et surtout s'incrémenter à la suite des après valeurs précédemment collées provenant de la feuil 1.
De plus y-a-t-il un code qui permettrait de faire en automatique ce copié/collé sur tous les onglets du classeurs?
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Je peux vous joindre un model, mais je suis novice, comment je fais pour l'intégrer dans le forum?????.
Bonjour Michel,
J'ai une erreur 91 "variable objet" sur la ligne Ligvide = .Columns("A").Find("", .Range("A2")).Row.
J'ai adapté la macro donnée par philou qui fonctionne.
Juste qu'il faudrait qu'elle scanne tous les onglets car en l'état je suis obligé de créer un code pour chaque onglet.
merci
Je peux vous joindre un model, mais je suis novice, comment je fais pour l'intégrer dans le forum?????.
Bonjour Michel,
J'ai une erreur 91 "variable objet" sur la ligne Ligvide = .Columns("A").Find("", .Range("A2")).Row.
J'ai adapté la macro donnée par philou qui fonctionne.
Juste qu'il faudrait qu'elle scanne tous les onglets car en l'état je suis obligé de créer un code pour chaque onglet.
merci
j'ai modifié quelques trucs et j'ai testé c'est Ok
*
cela fonctionne quelque soit le nombre de feuilles
https://www.cjoint.com/?3KplMmMqa1O
tu dis...
*
cela fonctionne quelque soit le nombre de feuilles
https://www.cjoint.com/?3KplMmMqa1O
tu dis...