macro copie cellule colonne en ligne à la suite

[vincent76]

Bonjour à tous et bonne année!

Dans un classeur excel, de nombreuses feuilles (jusqu'a 700), qui contiennent des données en colonne, toujours dans les mêmes cellules. L'idée serait de pouvoir récupérer ces données en colonnes, dans chaque feuille, de les copiés dans une seule feuille et en ligne, les unes sous les autres...j'ai essayé par l'entregistreur de macro, copier coller....pas simple.
Merci pour vos contributions.

pS le fichier pour etre plus clair...

 

[david84]

Re : macro copie cellule colonne en ligne à la suite

Bonjour,
puisque toutes tes fiches Patrimoine sont configurées de la même manière et que tu as une fiche Patrimoine par onglet, chaque valeur de la même cellule doit donc être recopiée dans la même colonne.
Si c'est le cas, enregistre ta procédure avec l'enregistreur de macro.
Une fois cela bien au point, reviens avec le code obtenu.
Il ne restera plus qu'à mettre au point une boucle pour traiter toutes tes fiches.
A+

 

[vincent76]

Re : macro copie cellule colonne en ligne à la suite

ok
je m'y colle de suite!
merci

 

[vmax01]

Re : macro copie cellule colonne en ligne à la suite

bonsoir le fil et bienvenue vincent76

tu n'a plus qu'a creer un bouton et lui mettre la macro.

Sub Maj()
Dim Feuil As Worksheet
Dim i As Integer
For Each Feuil In ThisWorkbook.Worksheets
    If Feuil.Name <> "Recup données" Then
        i = i + 1
      With Feuil
        .Range("B3:B7").Copy
        Sheets("Recup données").Range("A" & i + 1).PasteSpecial Paste:=xlValues, Transpose:=True
        .Range("F3:F6").Copy
        Sheets("Recup données").Range("E" & i + 1).PasteSpecial Paste:=xlValues, Transpose:=True
        .Range("E8").Copy
        Sheets("Recup données").Range("I" & i + 1).PasteSpecial Paste:=xlValues, Transpose:=True
        .Range("B10:B50").Copy
        Sheets("Recup données").Range("J" & i + 1).PasteSpecial Paste:=xlValues, Transpose:=True
        .Range("E10:E50").Copy
        Sheets("Recup données").Range("AY" & i + 1).PasteSpecial Paste:=xlValues, Transpose:=True
        .Range("H10:H50").Copy
        Sheets("Recup données").Range("CN" & i + 1).PasteSpecial Paste:=xlValues, Transpose:=True
      End With
    End If
Next
End Sub

bonne journée.

 

[vincent76]

Re : macro copie cellule colonne en ligne à la suite

Merci beaucoup!
Exactement cela!
Trop fort, suis épaté!

Merci encore et bonne journée