copier de 2 feuilles vers une troisième

Re : copier de 2 feuilles vers une troisième

Bonjour Ibourksimo, le forum,

Une première approche sur le fichier ci-joint.
Cordialement,
Bernard

Re : copier de 2 feuilles vers une troisième

Bonjour
je vous remercie de votre réponse.
c'est ce que je souhaite avoir.
je me demande si je peux l'appliquer sur feuilles et si vous pouvez me montrer comment ??
Merci à vous

Re : copier de 2 feuilles vers une troisième

Bonjour Ibourksimo, le forum,

Vous pouvez l’appliquer sur un nouveau classeur à condition que les feuilles portent les mêmes noms : atelier 1, atelier 2, recap (attention pas d’accent sur le « e »).
J’ai transféré le code sur votre fichier.
Dans les autres cas, il faudra modifier la macro.
Cordialement,
Bernard

Re : copier de 2 feuilles vers une troisième

Merci à vous
je suis nul en VBA
je me demande si vous pouvez m'expliquer ce code un peu
Sub Recap()
Dim xcopie As Range, i As Long, j As Long, xdl As Long
Range("A4:C65536").Clear
For i = 4 To Worksheets("atelier 1").Range("A65536").End(xlUp).Row
Worksheets("atelier 1").Range("A" & i).Copy Worksheets("recap").Range("A" & i)
Worksheets("atelier 1").Range("B" & i).Copy Worksheets("recap").Range("B" & i)
Next i
xdl = Worksheets("recap").Range("A65536").End(xlUp).Row: j = 1
For i = 4 To Worksheets("atelier 2").Range("A65536").End(xlUp).Row
Worksheets("atelier 2").Range("A" & i).Copy Worksheets("recap").Range("A" & xdl + j)
Worksheets("atelier 2").Range("B" & i).Copy Worksheets("recap").Range("C" & xdl + j)
j = j + 1
Next i

End Sub

Merci

Re : copier de 2 feuilles vers une troisième

Bonjour Ibourksimo, le forum,

J’ai essayé de commenter le code dans le fichier ci-joint.
Cordialement,
Bernard

Re : copier de 2 feuilles vers une troisième

Je vous remercie
c'est la première fois que j'arrive à comprendre le code VBA.

Merci à vous