Bonjour tout le monde,
Je suis tout nouveau sur ce site et je débute également en VBA. Je vous expose donc mon problème:
J'ai un classeur excel avec en tout 34 onglets. Pour faire simple, j'aimerai consolider plusieurs onglets en 1 seul déjà existant en créant un macro qui copie une plage de cellule définie dans chaque onglet pour la copier dans l'onglet consolidé, puis boucler ainsi de suite sur l'onglet suivant en copiant à la suite sur l'onglet consolidé. Voici la macro que j'ai débuté:
Je précise que pour faire reconnaître les feuilles par la macro, le critère DIRECT est toujours placé en A2 sur les onglets que je souhaite consolider. La structure des feuilles est toujours la même afin de faciliter ce genre de tâche. Mon problème avec la macro ci dessus c'est que je n'arrive pas à mettre la bonne instruction pour coller le contenu du clipboard dans ActiveCell, puis faire une boucle pour mettre à la suite les autres onglets (j'espère que je m'exprime de façon compréhensible, désolé dans le cas contraire !)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Sub MaJ_consolidé() Dim Source As Worksheet For Each Source In ThisWorkbook.Worksheets If Range("A2") = "Direct" Then Range("A9:BY9").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Worksheets(3).Activate Cells(16384, 1).End(xlUp).Select ActiveCell.Offset(1, 0).Activate ??????? End If Next Source End Sub
Merci d'avance de votre aide !
Partager