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

Macro pour compiler des données les unes a côté des autres

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lila2005
  • 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
L

lila2005

XLDnaute Nouveau
Bonjour,

La macro suivante me permet de compiler des données les unes en dessous des autres :
Sub jj()
Dim sh As Worksheet
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Compilation").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets.Add
ActiveSheet.Name = "Compilation"
[a1] = "Compilation"
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "Compilation" Then
Set plage = sh.Range("v7147:ac7191" & sh.Cells(Rows.Count, "a").End(3).Row)
plage.Copy
Sheets("Compilation").Range("a" & Sheets("Compilation").Cells(Rows.Count, "a").End(3).Row + 1).PasteSpecial Paste:=xlPasteAll
End If
Next
End Sub

J'aimerais compiler des données les unes à côté des autres. Je me suis dit qu'en remplacant "rows" par "columns" ca marcherait mais quand je fais ca l'application ne fonctionne plus. Quelqu'un aurait-il une piste?

Et merci pour le site, il est génial!!!😀
 
Trier par date Trier par votes
Re : Macro pour compiler des données les unes a côté des autres

Bonjour lila,

ce serait quand même plus facile pour te répondre si tu pouvais joindre un fichier avec explications précises de ce que tu attends

Pas très bien compris le fait que tu supprime la feuille "Compilation" et que tu en recrée une directement et qui portera le même nom ?????????????????????
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pour compiler des données les unes a côté des autres

bonjour lila2005, phlaurent55

essaye en remplaçant
Code: 
Sheets("Compilation").Range("a" & Sheets("Compilation").Cells(Rows.Count, "a").End(3).Row + 1).PasteSpecial Paste:=xlPasteAll
par
Code: 
Sheets("Compilation").Cells(1, Columns.Count).End(XlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteAll

a+
 
Vote positif 0 Vote négatif
Re : Macro pour compiler des données les unes a côté des autres

Regarde la pièce jointe Exemple.xls
Salut,
La suppression de la feuille "compilation" me sert s'il y a mise à jour des données et que je dois regénérer la compilation (supprime l'ancienne, me donne une nouvelle).
En pièce jointe tu trouveras un aperçu de ce que je cherche à faire (je l'ai fait manuellement, je voudrais l'automatiser vu le nombre d'onglets dont il s'agit).
En réalité, j'ai un fichier contenant environ 70 onglets. Dans chacun des onglets, sur la même plage se trouve un tableau.
Je dois réunir tous ces tableaux dans un même onglet et les placer les uns à côté des autres. Grâce à la macro ci-dessus, je peux les réunir sur le même onglet mais ils se trouvent les un en dessous des autres.

Voila, j'espère que j'ai été plus claire.

Merci de t'êtr penchée sur mon problème
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour compiler des données les unes a côté des autres

Re, lila,
utilise le code donné par mromain
et remplace ceci
Code: 
Set plage = sh.Range("v7147:ac7191" & sh.Cells(Rows.Count, "a").End(3).Row)
plage.Copy
par ( s'il n'y a que la colonne A à copier comme dans ton exemple joint)
Code: 
Columns("A:A").Select
    Selection.Copy
sinon, tu adaptes la zone de cellules à copier
 
Vote positif 0 Vote négatif
Re : Macro pour compiler des données les unes a côté des autres

Bonjour,

Désolée si j'ai pas été assez précise.J'ai également tenté avec ta méthode, mais ca ne marche toujours pas. Finalement j'ai essayé de contourner le problème en utilisant une autre macro, que je détaille ci dessous. C'est certainement pas le moyen le plus simple (nécéssité de faire la macro pour chaque cellule de mon tableau), mais vu que mon tableau ne comporte que 5-6 lignes et une colonne, c'était plus facile que de chercher une solution au pb. (je suis débutante en vba!)
Merci à tous les deux en tout cas de vous être penchés sur le sujet.

Bonne soirée

Sub recap()
For Each sh In Sheets
Dim i As Integer
i = i + 1
Cells(1, i) = sh.Cells(a,b) : (a,b)représentant une cellule de mon tableau.
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Macro pour compiler des données les unes a côté des autres

Bonjour à tous,


Le code donné içi est génial est fait ce que je cherche à faire, cepandant, est-ce que quelqu'un peut m'aider à le modifier pour qu'il copie la colone A de chaque 1er onglet de tous les fichiers présent dans le Dossier actif (la où je mettrais le fichier excell contenant la macro)


je remet le code que Fo_rum à modifié pour lila2005 et qui est presque ce que je veuoudrai reussir à obtenir

Code: 
Sub jj()
  Dim sh As Worksheet
  Application.DisplayAlerts = False
  On Error Resume Next
  Sheets("Compilation").Delete
  Application.DisplayAlerts = True
  On Error GoTo 0
  Sheets.Add
  ActiveSheet.Name = "Compilation"
  [a1] = "Compilation"
  For Each sh In [COLOR="Red"]ActiveWorkbook[/COLOR].Sheets
    If sh.Name <> "Compilation" Then
      [COLOR="Lime"]Dercol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
      sh.Range("A1:A" & sh.Cells(Rows.Count, "A").End(3).Row).Copy Sheets("Compilation").Cells(1, Dercol + 1)[/COLOR]
    End If
  Next
End Sub

ce que j'ai mis en rouge, peut-on le didouiller pour indiquer : "active directory" ? et ensuite indiquer "first sheet of each file"?
inutile de dire que je suis moins que débutant en VBA

cordialement
Guillaume
 
Vote positif 0 Vote négatif
Re : Macro pour compiler des données les unes a côté des autres

ah, petite modification sur ce que je souhaiterais,
peut ton lui dire de chercher dans 3 niveaux de sous dossier ?


Cordialement
Guillaume
 
Vote positif 0 Vote négatif
Re : Macro pour compiler des données les unes a côté des autres

dsl de faire re-remonter ce sujet, j'aurais besoin de pouvoir faire fonctionner cette macro dans le cadre de mon activité professionnelle.


Il faudrait copier la premiere colone de de chaque premier onglet de tous les classeurs d'un dossier contenant jusqu'a 3 sous niveaux de dossiers.

Pour info, il est possible que dans un meme dossier, des classeurs differents aient quand même le même nom de premier onglet (vierge), je ne sais pas si cela pose un problème ou pour le codage


Cordialement
Guillaume
 
Vote positif 0 Vote négatif
Re : Macro pour compiler des données les unes a côté des autres

alors, y a t'il un XLDnaute Barbatruc pour m'aider dans la salle ????


je reposte la modification pour laquelle j'aimerais de l'aide, je joins un fichier qui explique ce que je cherche à faire
je sais que j'ai déjà posté au moins 4 messages à ce sujet mais j'ai besoin de trouver une solution à cet obstacle

le texte :
je souhaite copier toutes les colones L de chaque 1er onglet de tous les fichier présent dans un dossier contenant 3 sous niveaux.
cette colone est le résultat d'une somme, donc il faut oubien créer un lien ou alors un collage spécial.

le code (pas de moi) :
Code: 
Sub jj()
  Dim sh As Worksheet
  Application.DisplayAlerts = False
  On Error Resume Next
  Sheets("Compilation").Delete
  Application.DisplayAlerts = True
  On Error GoTo 0
  Sheets.Add
  ActiveSheet.Name = "Compilation"
  [a1] = "Compilation"
  For Each sh In ActiveWorkbook.Sheets
    If sh.Name <> "Compilation" Then
      Dercol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
      sh.Range("L1:L" & sh.Cells(Rows.Count, "L").End(3).Row).Copy Sheets("Compilation").Cells(1, Dercol + 1)
    End If
  Next
End Sub

la piece jointe est comentée pour plus de clareté :

Cordialement
Guillaume
 

Pièces jointes

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

Discussions similaires

O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
849
ChTi160
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
508
Jojo973
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
570
Chaton77
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
505
MBEPID
M
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
611
Pimpon974
P
I
  • Question Question
XL 2016 Copier coller entre deux classeurs
Réponses
13
Affichages
899
INFINITY100
I
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
F
  • Résolu(e)
XL 2010 Importer des données de plusieurs fichiers sans les ouvrir
Réponses
9
Affichages
1 K
Hasco
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
790
GADENSEB
R
  • Question Question
Microsoft 365 Copies de données entre feuilles
Réponses
1
Affichages
938
sylvanu
M
  • Question Question
Excel VBA — ActiveSheet.ShowAllData, La 1004 : “La méthode ShowAllData de la classe Worksheet a échoué
Réponses
3
Affichages
2 K
gbinforme
G
  • Résolu(e)
XL 2016 Récupérer les données de nom et de date VBA
2 3
Réponses
35
Affichages
3 K
Oneida
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
  • Question Question
XL 2016 rafraîchir écran
Réponses
0
Affichages
964
KTM
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
978
Lolote83
L
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
951
Bernard_XLD
S
  • Question Question
XL 2019 Macro pour insérer une macro!
2
Réponses
15
Affichages
2 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…