Discussion :

[WilliamT]

Bonjour à tous,

J'ai beaucoup de mal à programmer une macro qui s’exécuterait après avoir appuyer sur un bouton :
Je voudrai pouvoir copier les données situées sur différents onglets de mon classeur sur un même onglet récapitulatif.
Chaque feuille contient entre 4 et 5 colonnes et j'aimerai que les données des différentes feuilles soient collées à la suite (horizontalement parlant) sur cette même feuille récapitulative.
Les données des autres onglets sont amenées à changer chaque mois. Et il serait souhaitable qu'en relançant la macro précédente les données correspondant à chaque onglet soient rajoutées à la suite de celles qui ont été précédemment collées...

Je ne sais pas si je suis très clair mais par exemple :
Je copie les données de la feuille 1 dans la feuille recap de la colonne A à D
Je copie les données de la feuille 2 dans la feuille recap de la colonne E à H

Les données des feuilles 1 et 2 sont écrasées et remplacées (non liées à la maco)

Je voudrai que les nouvelles données puissent ensuite être rajoutées à la suite des données déjà copiées, dans chaque colonne correspondante.

En vous remerciant par avance de l'aide que vous pourrez m'apporter.

[tamtam64]

Bonjour, ce que tu demande n'est pas compliqué donne un debut de macro quand meme pour le principe.
Par contre juste une question avant de te soumettre quelquechose:
Tu veux mettre les données des mois suivant sur cette feuille ? ou tu veux que ca ecrase les anciennes?
voila merci de ta reponse

[Marc-L]

Bonjour,

pour débuter : Les filtres avancés ou élaborés dans Excel …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[tamtam64]

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
Sub test()
    Dim sh As Worksheet
    Dim NbL As Long
    Dim NbC As Long
    'on recupere les dates
    For Each sh In Worksheets
        If sh.Name <> "Feuil1" Then
            With ThisWorkbook.Worksheets("Feuil1")
                'compter le nombre de ligne pour un nombre de colonne deja connu
                NbL = .Range("A1").End(xlDown).Row
                NbC = .Range("A1").End(xlToRight).Column
                If NbC = .Columns.Count Then NbC = 0
                sh.Range("A1").CurrentRegion.Copy .Range("A1").Offset(, NbC)
            End With
        End If
    Next sh
End Sub

[WilliamT]

Merci pour ton aide Tamtam !

En revanche j'ai toujours quelques problèmes, Feuille1 doit bien être remplacée par le nom de ma feuille récapitulative ?

Le second point est que lorsque je reclique sur le bouton qui exécute la macro, les données ne sont pas mises à la suite des colonnes correspondantes mais cela créé de nouvelles colonnes à la suite des colonnes déjà existantes dans la feuille recap.

[Philippe Tulliez]

Bonjour,
S'il s'agit de regrouper toute la liste de données d'une feuille ayant le même nombre de colonnes les étiquettes de colonnes de même orthographe et sans conditions particulières tu peux voir du côté de cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010)
S'il s'agit de copier certaines colonnes avec des étiquettes de colonnes de même orthographe que la liste cible avec ou sans conditions, comme indiqué par Marc, le filtre avancé (méthode AdvancedFilter) est la solution la plus simple et surtout la plus pérenne à mettre en place.

[WilliamT]

Le nombre de colonnes varie entre chaque feuille, du coup la méthode de regroupement de plusieurs feuilles n'est pas valide je pense.
Ensuite, il s'agit de ne copier l'en-tête des colonnes qu'une seule fois puis par la suite de ne rajouter que les données nouvelles à la suite sur la feuille récap.

Ps : j'ai donné un exemple avec 2 feuilles mais en réalité il y en a 13 où je dois récupérer les données.

[Philippe Tulliez]

Bonjour,

Ensuite, il s'agit de ne copier l'en-tête des colonnes qu'une seule fois puis par la suite de ne rajouter que les données nouvelles à la suite sur la feuille récap

C'est ce que fait la procédure qui se trouve dans le lien indiqué mais effectivement si le nombre de colonnes n'est pas le même il faut utiliser une autre procédure.