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

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

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

    Qu'avez vous au départ et que voulez vous exactement obtenir ???
    0
    1. 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
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
    3. 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
    4. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      La colonne la plus longue compte 300 Lignes Oui mais laquelle est ce? A, B, C???G...
      0
  3. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
    1. 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
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Bonjour,

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

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

    Mickaël
    0