Compiler plusieurs colonnes de plusieurs feuilles sur une seule Feuille

[bloublou]

Bonjour à tous, Bonjour JNP,

Je viens de m'apercevoir que je me suis planté de fichier
J'ai remis le bon

J'aurais besoin de vos lumières en macro sur les colonnes Excel:

Je voudrais compiler 7 colonnes toujours les mêmes de 30 feuilles différentes en une seule feuille.
J'ai 3 étapes importantes :

1) En exemple j'ai 3 feuilles de A à AP, sur chaque feuille j'ai 7 colonnes en jaune. Je voudrais prendre ces 7 colonnes et les copier coller sur la feuille Compil 1

2) Une fois que toutes les données sont copiées, supprimer les lignes vides.

3) Sur la feuille Compil 2, je voudrais changer l'ordre des colonnes en respectant l'ordre de la feuille Compil 2

Pouvez-vous m'aider à faire cette macro ?

Merci de votre aide,

BlouBlou

 

[JNP]

Re : Compiler plusieurs colonnes de plusieurs feuilles sur une seule Feuille

Bonjour
Pas compris le point 3...
Pour le reste :

Sub Macro1()
Dim I As Integer, DerLigne1 As Integer, DerLigne2 As Integer
Application.ScreenUpdating = False
'Copie les colonnes
For I = 2 To 6
    DerLigne1 = Cells(Rows.Count, I).End(xlUp).Row
    DerLigne2 = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(DerLigne2 + 1, 1), Cells(DerLigne1 + DerLigne2 - 1, 1)).Value = Range(Cells(2, I), Cells(DerLigne1, I)).Value
Next
'Supprime les cellules vides
For I = DerLigne1 + DerLigne2 To 2 Step -1
    If Cells(I, 1) = "" Then Cells(I, 1).Delete Shift:=xlUp
Next I
Application.ScreenUpdating = True
End Sub

Bonne suite

 

[bloublou]

Re : Compiler plusieurs colonnes de plusieurs feuilles sur une seule Feuille

Bonjour le forum, bonjour JNP,

Je viens de me rendre compte que le fichier n'était pas le bon

j'ai remis le bon fichier dans mon mail initial

Dsl et merci

BlouBlou

 

[bloublou]

Re : Compiler plusieurs colonnes de plusieurs feuilles sur une seule Feuille

Bonjour à tous,

Un petit up pour mon pb, si quelqu'un pouvait m'aider ? :

**********************

J'aurais besoin de vos lumières en macro sur les colonnes Excel:

Je voudrais compiler 7 colonnes toujours les mêmes de 30 feuilles différentes en une seule feuille.
J'ai 3 étapes importantes :

1) En exemple j'ai 3 feuilles de A à AP, sur chaque feuille j'ai 7 colonnes en jaune. Je voudrais prendre ces 7 colonnes et les copier coller sur la feuille Compil 1

2) Une fois que toutes les données sont copiées, supprimer les lignes vides.

3) Sur la feuille Compil 2, je voudrais changer l'ordre des colonnes en respectant l'ordre de la feuille Compil 2

Pouvez-vous m'aider à faire cette macro ?



Merci

BlouBlou

 

[JNP]

Re : Compiler plusieurs colonnes de plusieurs feuilles sur une seule Feuille

Re
Faut jamais être pressé...
Surtout quand on s'est trompé de fichier au départ...
Voilà pour Compil 1, pour compil 2, tu adapteras...

Sub test()
Dim I As Integer, J As Integer, DerLigne1 As Integer, DerLigne2 As Integer
Dim A As Variant, B As Variant, Feuille As Worksheet
Application.ScreenUpdating = False
'Copie les colonnes
A = Array(4, 5, 6, 9, 10, 11, 28)
For Each Feuille In ThisWorkbook.Worksheets
    If Left(Feuille.Name, 4) = "feui" Then
        For I = 0 To 6
            With Sheets("Compil 1")
                DerLigne1 = Feuille.Cells(Rows.Count, A(I)).End(xlUp).Row
                DerLigne2 = .Cells(Rows.Count, I + 1).End(xlUp).Row
                Feuille.Select
                B = Feuille.Range(Cells(2, A(I)), Cells(DerLigne1, A(I))).Value
                .Select
                .Range(Cells(DerLigne2 + 1, I + 1), Cells(DerLigne1 + DerLigne2 - 1, I + 1)).Value = B
            End With
        Next
    End If
Next Feuille
'Supprime les cellules vides
With Sheets("Compil 1")
    For J = 1 To 7
        DerLigne1 = .Cells(Rows.Count, J).End(xlUp).Row
        For I = DerLigne1 To 2 Step -1
            If .Cells(I, J) = "" Then Cells(I, J).Delete Shift:=xlUp
        Next I
    Next J
End With
Application.ScreenUpdating = True
End Sub

Bonne suite

 

[bloublou]

Re : Compiler plusieurs colonnes de plusieurs feuilles sur une seule Feuille

Bonsoir le forum, bonsoir JNP,


Merci JNP et désolé si je t'ai paru pressé , c'était nullement mon intention
En tout cas ca marche nickel

Bon wk

BlouBlou