Discussion :

[papar12]

je suis besoin de l'aide CVP. de Trouver le code VBA copier coller

Code :

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

1
2
3
4
5
6
7
Range (A10:P) de Feuil1
 
Range (A10:P) de Feuil2
 
Range (A10:P) de Feuil3
 
Range (A10:P) de Feuil4

vers Feuil 5

voila Exemple de Classeur 2
Urgent

Voila le code$

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
sheets(a).Select
 
i = 10
Do While Cells(i, 7) <> ""
 
    Range(Cells(10, 1), Cells(i, 17)).Copy
 
    Sheets(z).Select
    j = 10
 
        Cells(j, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
 
i = i + 1
Sheets(a).Select
Cells(1, 1).Select
Loop
 
 
Sheets(b).Select
 
k = 10
Do While Cells(k, 7) <> ""
 
    Range(Cells(10, 1), Cells(k, 17)).Copy
 
    Sheets(z).Select
 
 
        Cells(i, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
 
k = k + 1
Sheets(b).Select
Cells(1, 1).Select
Loop
 
End Sub

[jfontaine]

Bonjour,

Si j'ai bien tout compris, une proposition pour faire une copie en bloc

Code a dupliquer pour les autres feuilles

Code :

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

1
2
3
With Sheets("Feuil1")
    .Range("A10:D" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("Feuil5").Range("A" & Sheets("feuil5").Range("A" & Rows.Count).End(xlUp).Row)
End With

[kiki29]

Salut, visiblement le code n'a pas été compris. Bref une version "adaptée" , restera à affecter un bouton à ConcatenationFeuilles ainsi qu'à adapter la plage à copier.

Et donc

Code :

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

Range(Cells(10, 1), Cells(i, 17)).Copy

deviendrait

Code :

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

T = .Range("A10:Q" & .Range("A" & Rows.Count).End(xlUp).Row).Value

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Sub ConcatenationFeuilles()
Dim i As Long, T() As Variant
 
    Application.ScreenUpdating = False
    Feuil5.Cells.Clear
 
    ' Au cas ou la feuille de récapitulation se trouverait en 1ere position
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> Feuil5.Name Then
            With Worksheets(i)
                ' Plage En-Tête
                T = .Range("A1:P1").Value
                Feuil5.Range("A1").Resize(UBound(T, 1), UBound(T, 2)) = T
            End With
            Exit For
        End If
    Next i
 
    '   Copie des données
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> Feuil5.Name Then
            With Worksheets(i)
                ' Plage à copier                
                T = .Range("A2:P" & .Range("A" & Rows.Count).End(xlUp).Row).Value
                Feuil5.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
            End With
        End If
    Next i
    Erase T
    Application.ScreenUpdating = True
End Sub