Microsoft 365 Extraire différentes colonnes de plusieurs feuilles

alextheoph · 20 Décembre 2021

Bonjour,
Je souhaiterai extraire plusieurs colonnes parmi plusieurs feuilles et compiler les données dans une nouvelle feuille avec chaque données de chaque colonnes les unes à la suite des autres.

J'ai une plage de données dans chaque feuille (la plage est la même pour toutes) et je veux sur chacune des feuilles extraire la colonne A, B et C pour assembler les données dans une seule colonne sur une nouvelle feuille et répéter l'opération pour toute mes feuilles.

Ci joint un fichier avec des notes dans les feuilles qui expliquera plus précisément ce que je souhaite faire
;;
En espérant que cela soit claire et réalisable,

Merci d'avance

cp4 · 21 Décembre 2021

si j'ai compris

VB:

Sub compilation()
    Dim Sh As Worksheet, dl As Integer, dl1 As Integer, i As Integer, j As Byte

    With Sheets("compilation")
        If .Range("b" & Rows.Count).End(xlUp).Row + 1 > 1 Then
            .Range("b2:b" & .Range("b" & Rows.Count).End(xlUp).Row + 1).ClearContents
        End If
    End With

    For Each Sh In Worksheets
        If Sh.Name <> "Compilation" Then
            With Sh
                dl = .Range("b" & Rows.Count).End(xlUp).Row
                For j = 2 To 4
                    dl1 = Sheets("compilation").Range("b" & Rows.Count).End(xlUp).Row + 1
                    Sh.Range(Sh.Cells(2, j), Sh.Cells(dl, j)).Copy Sheets("compilation").Cells(dl1, 2)
                Next j
            End With...

chris · 20 Décembre 2021

Bonjour

Avec ta version Excel la solution la plus simple et efficace est d'utiliser des tableaux structurés et PowerQuery selon cette méthode

Trucs et astuces - PowerQuery - Archétypes synergies

Actualiser par Données, Actualiser tout ou un clic droit dans la synthèse

alextheoph · 21 Décembre 2021

Bonjour,
Merci pour ta réponse, cela s'approche de ce que souhaite faire.
Cependant je souhaiterais ajouter toutes les données dans une seules et même colonne, appelée par exemple "Liste".
Plus précisément on prend les données de différentes colonnes de la première feuilles les unes a la suite des autres dans la colonne "Liste" puis les données de différentes colonnes de la deuxième et ainsi de suite.
De plus je ne connais pas Power Query, j'ai regardé des tutos mais je n'arrive pas a utiliser la fonction "Développer", saurais tu m'expliquer ou m'orienter vers des infos qui m'aiderai à me familiariser dessus.

En espérant que mes explications seront plus claires
Merci d'avance

cp4 · 21 Décembre 2021

alextheoph à dit:
Bonjour,
Merci pour ta réponse, cela s'approche de ce que souhaite faire.
Cependant je souhaiterais ajouter toutes les données dans une seules et même colonne, appelée par exemple "Liste".
Plus précisément on prend les données de différentes colonnes de la première feuilles les unes a la suite des autres dans la colonne "Liste" puis les données de différentes colonnes de la deuxième et ainsi de suite.
De plus je ne connais pas Power Query, j'ai regardé des tutos mais je n'arrive pas a utiliser la fonction "Développer", saurais tu m'expliquer ou m'orienter vers des infos qui m'aiderai à me familiariser dessus.

En espérant que mes explications seront plus claires
Merci d'avance

Bonjour, @alextheoph , @chris ,

Si j'ai compris la demande.

VB:

Option Explicit

Sub compiler()
    Dim Sh As Worksheet, dl As Integer, dl1 As Integer, i As Integer, Compil As String

    For Each Sh In Worksheets
        If Sh.Name <> "Compilation" Then
            With Sh
                dl = .Range("b" & Rows.Count).End(xlUp).Row
                For i = 2 To dl
                    Compil = Compil & .Range("b" & i) & "/"
                Next i
                dl1 = Sheets("compilation").Range("b" & Rows.Count).End(xlUp).Row + 1
                Sheets("compilation").Range("b" & dl1) = Left(Compil, Len(Compil) - 1)
                Compil = ""
            End With
        End If
    Next
End Sub

alextheoph · 21 Décembre 2021

Bonjour cp4,

Merci pour ta réponse. C'est presque ça, je veux que chaque valeur soit dans une cellule et que les valeurs suivante viennent dans les cellules en dessous. Je joins un fichier avec une idée du résultats que je souhaite obtenir, sachant que je travail sur un fichier avec beaucoup plus de valeur que cela donc pas réalisable comme je fais.

Merci d'avance pour votre aide et vos réponses

cp4 · 21 Décembre 2021

si j'ai compris

VB:

Sub compilation()
    Dim Sh As Worksheet, dl As Integer, dl1 As Integer, i As Integer, j As Byte

    With Sheets("compilation")
        If .Range("b" & Rows.Count).End(xlUp).Row + 1 > 1 Then
            .Range("b2:b" & .Range("b" & Rows.Count).End(xlUp).Row + 1).ClearContents
        End If
    End With

    For Each Sh In Worksheets
        If Sh.Name <> "Compilation" Then
            With Sh
                dl = .Range("b" & Rows.Count).End(xlUp).Row
                For j = 2 To 4
                    dl1 = Sheets("compilation").Range("b" & Rows.Count).End(xlUp).Row + 1
                    Sh.Range(Sh.Cells(2, j), Sh.Cells(dl, j)).Copy Sheets("compilation").Cells(dl1, 2)
                Next j
            End With
        End If
    Next
End Sub

alextheoph · 21 Décembre 2021

Super, c'est ce que je voulais.
Merci pour ton aide !

cp4 · 21 Décembre 2021

alextheoph à dit:
Super, c'est ce que je voulais.
Merci pour ton aide !

N'oublie de cocher la solution. ça facilitera la recherche aux autres membres.

Microsoft 365 Extraire différentes colonnes de plusieurs feuilles

alextheoph

XLDnaute Nouveau

Pièces jointes

cp4

chris

XLDnaute Barbatruc

Pièces jointes

alextheoph

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

alextheoph

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

alextheoph

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

Discussions similaires