Macro regroupant des valeurs de différentes feuilles

Question

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

PHILOU10120 · Answer

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

bouhaben79 · Answer

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

foo · Answer

Bonjour

ses possible mes sans model on ne peux rien faire

A+
Maurice

michel_m · Answer

Bonjour Bouhaben,

ci joint maquette:
https://www.cjoint.com/?3KoqyOTU2ye

bouhaben79 · Answer

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

Macro regroupant des valeurs de différentes feuilles

5 réponses

Discussions similaires

Newsletters