Microsoft 365 Transfert cellules en bloc vers autre feuille

[Francky79]

Bonjour à tous,

Je ne sais pas comment modifier les macros pour transférer toute la colonne B et toute la colonne I en feuille "Extrac. Images" en une seule fois. Et en plus j'aurai voulu que la ligne 3 soit transférée en AB3, la ligne 4 en DE3, la ligne 5 en GH3, la ligne 6 en AB4 ainsi de suite......

En pièce jointe le fichier.

Merci de votre aide,

 

[Jacky67]

Bonjour à tous,

Je ne sais pas comment modifier les macros pour transférer toute la colonne B et toute la colonne I en feuille "Extrac. Images" en une seule fois. Et en plus j'aurai voulu que la ligne 3 soit transférée en AB3, la ligne 4 en DE3, la ligne 5 en GH3, la ligne 6 en AB4 ainsi de suite......

En pièce jointe le fichier.

Merci de votre aide,

Bonjour,
Ceci peut-être.
Uniquement pour transférer colonne B et I sur "Extrac. Images" sur les colonnes souhaitées (i adjacent à AB3..). Avec saut de ligne toutes les 5 saisies en feuil1(la ligne 6 en AB4)
**Modifié

Sub Extrac_Images()
    Dim lig&, col&, C As Range
    lig = 3: col = 28
    Application.ScreenUpdating = False
    With Feuil2
        .Rows("3:" & .Rows.Count).Clear
        For Each C In Feuil1.Range("b3:b" & Feuil1.Cells(Feuil1.Rows.Count, "B").End(xlUp).Row)
            C.Copy .Cells(lig, col)
            C.Offset(, 7).Copy .Cells(lig, col + 1)
            col = col + 81
            If (C.Row - 2) Mod 5 = 0 Then lig = lig + 1: col = 28
        Next
    End With
End Sub

 

[Francky79]

Bonjour Jacky67,

Merci pour ton aide, cela me semble parfait.

Bonne fin de journée