Sujet Précédent Sujet Suivant

Consolider plusieurs feuilles excel dans une seule

Fermé
ymmac Messages postés 5 Date d'inscription mardi 12 février 2013 Statut Membre Dernière intervention 15 février 2013 - 12 févr. 2013 à 17:12
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 15 févr. 2013 à 11:32
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

Réponse 1 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
15 févr. 2013 à 11:32
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
Réponse 2 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
12 févr. 2013 à 17:23
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 mardi 12 février 2013 Statut Membre Dernière intervention 15 février 2013
12 févr. 2013 à 17:32
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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
13 févr. 2013 à 08:59
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 mardi 12 février 2013 Statut Membre Dernière intervention 15 février 2013
13 févr. 2013 à 13:00
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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
13 févr. 2013 à 13:02
La colonne la plus longue compte 300 Lignes Oui mais laquelle est ce? A, B, C???G...
0
Réponse 3 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
13 févr. 2013 à 16:50
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 mardi 12 février 2013 Statut Membre Dernière intervention 15 février 2013
15 févr. 2013 à 10:56
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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
15 févr. 2013 à 11:15
Bonjour,

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

Cordialement,
0
Réponse 4 / 4
ymmac Messages postés 5 Date d'inscription mardi 12 février 2013 Statut Membre Dernière intervention 15 février 2013
15 févr. 2013 à 11:18
Merci quand même.

Mickaël
0