Consolider plusieurs feuilles excel dans une seule

ymmac Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je cherche à consolider dans l'onglet "recap" tous les autres onglets d'un classeur Excel. Pour ce faire j'aimerais le faire en un seul Clc sur un bouton MàJ sur la feuille.
Comment puis je Faire? Je suis nul en Macro et cela fait deux jours que je cherche.
Merci à vous

4 réponses

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour

Avant de penser VBA, penser Excel

Il existe une méthode de consolidation de données qui pourrait peut-^tre être utilisée avec Mac
voir ce site (incontournable pour tout bidouilleur qqsoit le niveau)
http://boisgontierjacques.free.fr/
rubrique
données-consolider

3
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 766
 
Bonjour,

Entendons nous bien, qu'entendez vous exactement par "consolider"?

Qu'avez vous au départ et que voulez vous exactement obtenir ???
0
ymmac Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
actuellement j'ai 11 feuilles excel dans un Classeur. Ces 11 feuilles contiennent chacune 10 colonnes et un nombre de lignes non figées. ce sont des mercuriales Prix. Je souhaite que ces 11 feuilles se regroupe en une seule pour pouvoir créer un TCD. Je souhaite aussi que tout cela soit simple d'utilisation pour le commun des mortels. C'est pour cela que je souhaite travailler avec des Boutons qui pourraient lancer des macro pour la Mise à jour du TCD et de la feuille récap.
Merci d'avance. Je veux bien vous envoyer le fichier mais je ne sais comment le poster sur ce forum. Merci d'avance. Ymmac
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 766
 
Salut,
Pas besoin du fichier.
Tes colonnes de A à K ont toutes une entête? Le même type de données dans chaque colonne? Qu'elle colonne est la "plus longue" à coups sur pour toutes les feuilles? Comment s'appelle ta feuille de récap?
Avec ces renseignements ça devrait aller...
0
ymmac Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Slt Toutes les colonnes de A à K on la même entête et le même type de données dans chaque colonne.
La colonne la plus longue compte 300 Lignes et la feuille récap s'appelle recap.
Merci
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 766
 
La colonne la plus longue compte 300 Lignes Oui mais laquelle est ce? A, B, C???G...
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 766
 
En supposant que la + longue colonne soit la colonne A :
A partir d'un bouton dessiné avec la barre d'outils "boîte à outils contrôles" :
Option Explicit

Private Sub CommandButton1_Click()
Dim Wsh As Worksheet, Plage(), DrLig As Long

Application.ScreenUpdating = False
For Each Wsh In ThisWorkbook.Worksheets
    If Wsh.Name <> "recap" Then
        With Wsh
            DrLig = .Range("A" & Rows.Count).End(xlUp).Row
            Plage = .Range("A1:K" & DrLig)
        End With
        With Sheets("recap")
            DrLig = .Range("A" & Rows.Count).End(xlUp).Row
            .Range("A" & DrLig).Resize(UBound(Plage, 1), UBound(Plage, 2)) = Plage()
        End With
    End If
Next Wsh
Application.ScreenUpdating = True
End Sub 


Ci joint un exemple
0
ymmac Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Merci pour toutes ces explications. Effectivement c'est la colonne A la plus Longue.

Par contre cela ne fonctionne pas. Je suis sous excel 2011 Office pour MAC. Peut être est ce la cause?

Cdt

Mickaël
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 766
 
Bonjour,

Peut être. Je n'ai pas de mac, donc... désolé.

Cordialement,
0
ymmac Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Merci quand même.

Mickaël
0