Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fusionner des tableaux depuis différents onglets en un seul (synthèse...)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion vsan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

vsan

Guest
Bonjour à tous,

Je cherche à optimiser la gestion d'une grosse fête entre amis...
Le but est que chacun remplisse le tableau qui le concerne dans son onglet et qu'une macro compile toutes les infos dans un tableau de synthèse.
Le tableau de synthèse est utilisé pour le publipostage (mailing, etc.)...

J'ai édulcoré l'exemple joint car j'ai plus de colonnes normalement, mais bon, si ça marche pour 2, ça marchera pour plus...

J'ai bien lu plusieurs fils de discussion sur ce sujet (la synthèse d'onglets), mais tous les exemples ne fonctionnent pas...

Ce que je souhaite c'est que Excel vienne chercher les infos des tableaux 2, 3 et 4 et vienne les coller (valeur uniquement, pas format) dans le tableau 1... Le tableau 0 servant aux calculs...

Merci de votre aide, j'avoue que je galère pas mal sur ce coup là!
VSan
 

Pièces jointes

Trier par date Trier par votes
Re : Fusionner des tableaux depuis différents onglets en un seul (synthèse...)

Bonjour,
à tester :
Code: 
Sub Synthese()
Dim DerLigne&, DerLigne2&, Tablo, i&, PremLigne&
DerLigne = Sheets("Synthèse").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Sheets.Count
PremLigne = Sheets("Synthèse").Range("A" & DerLigne).End(xlUp).Row + 1
DerLigne2 = Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
    Tablo = Sheets(i).Range("A2:B" & DerLigne2).Value
    Sheets("Synthèse").Range(Cells(PremLigne, 1), Cells(UBound(Tablo), 2)) = Tablo
    Next i
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Fusionner des tableaux depuis différents onglets en un seul (synthèse...)

Re re
si contrairement à ton exemple, ta feuille "Synthèse" n'est pas l'onglet le plus à gauche (onglet 1), remplacer le code proposé dans le fichier par :
Code: 
Sub Synthese()
Dim DerLigne&, DerLigne2&, Tablo, i&, PremLigne&
    DerLigne = Sheets("Synthèse").Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Synthèse" Then
            PremLigne = Sheets("Synthèse").Range("A" & DerLigne).End(xlUp).Row + 1
            DerLigne2 = Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
            Tablo = Sheets(i).Range("A2:B" & DerLigne2).Value
            Sheets("Synthèse").Range(Cells(PremLigne, 1), Cells(UBound(Tablo), 2)) = Tablo
        End If
    Next i
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Fusionner des tableaux depuis différents onglets en un seul (synthèse...)

Bonjour,

J'ai essayé la macro, mais elle n'a copiée que les 2 1ères colonnes de mon fichier, là ou ma dernière colonne est Z.

Qu'est ce que je dois modifier dans la macro pour avoir jusqu'a Z?

Merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
XL 2019 Créer des formules dans un tableau croisé dynamique
Réponses
10
Affichages
728
merinos-BernardEtang
V
  • Question Question
Autres déplacer deux tableaux Excel en un seul sans doublon
Réponses
9
Affichages
1 K
vincent6262
V
V
  • Question Question
XL 2016 Compiler des cellules de différents fichiers Excel en un seul
Réponses
2
Affichages
1 K
Val119
V
B
  • Question Question
XL 2016 Récupération des données de plusieurs onglets en un seul
Réponses
6
Affichages
4 K
bnolwalid
B
S
  • Question Question
Visualiser données de plusieurs tableaux en un seul
Réponses
7
Affichages
972
Soph'
S
C
  • Question Question
Créer un tableau de synthèse de plusieurs classeurs Excel en VBA
Réponses
1
Affichages
2 K
cecidk
C
B
  • Question Question
XL 2013 Consolider plusieurs onglets excel en un seul
Réponses
0
Affichages
1 K
bouboubou
B
B
  • Question Question
automatisation de 3 tableaux différents vers un seul tableau en mode "fusionné"
Réponses
1
Affichages
797
tototiti2008
K
  • Question Question
Concatener des tableaux présents dans plusieurs onglets dans un tableau unique
2
Réponses
18
Affichages
22 K
SWE
S
A
  • Question Question
rapatrier des données de tableaux homogènes dans un seul
Réponses
1
Affichages
1 K
bbb38
F
  • Question Question
liaison entre des tableaux différents
Réponses
4
Affichages
2 K
Fabienc75
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…