Discussion :

[chouba33]

Bonjour,
Dans un classeur excel, j'ai besoin de recopier , à la suite, dans une colonne de ma première feuille, toute les cellules d5 à L5 situées dans chaque feuille du classeur.
J'ai essayé plein de chose mais sans succès.
Quelqu'un pourrait-il m'aider ?
Merci

[ARTURO83]

Bonjour,

Comment se nomme la feuille qui doit recevoir les données?

Cdlt

[chouba33]

Bonjour,
Je l'ai nommé recap.
Merci

[ARTURO83]

Voilà, comme j'ai oublié de vous demandé dans quelles colonnes de destination, j'ai opté pour les colonnes de A à I.

le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Recup_données()
    Dim DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Sheets("Recap").Range("D" & Rows.Count).End(xlUp).Row + 1
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Recap" Then
            Range(Cells(DerLig, "A"), Cells(DerLig, "I")).Value = Sheets(i).Range("D5:L5").Value
            DerLig = DerLig + 1
        End If
    Next i
End Sub

Le fichier en exemple
Pièce jointe 590974

Cdlt

[chouba33]

Merci, Mais Je voudrai que les données soient uniquement dans la colonne c, j'ai oublié de le préciser.

[ARTURO83]

Voilà la modif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Recup_données()
    Dim DerLig As Long
    Dim f2 As Object
    Application.ScreenUpdating = False
    DerLig = Sheets("Recap").Range("C" & Rows.Count).End(xlUp).Row + 1
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Recap" Then
            Set f2 = Sheets(Sheets(i).Name)
            Cells(DerLig, "C") = f2.Range("D5") & "," & f2.Range("E5") & "," & f2.Range("F5") & "," & f2.Range("G5") & "," & f2.Range("H5") & "," & f2.Range("I5") & "," & f2.Range("J5") & "," & f2.Range("K5") & "," & f2.Range("L5")
            DerLig = DerLig + 1
        End If
    Next i
    Set f2 = Nothing
End Sub

Pièce jointe 590979

Cdlt