Microsoft 365 Transfert cellules en bloc vers autre feuille

Francky79 · 14 Avril 2021

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 · 14 Avril 2021

Francky79 à dit:
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é

Code:

Sub Extrac_Images()
    Dim lig&, col&, C As Range
    lig = 3: col = 28
    Application.ScreenUpdating = False
    With Feuil2
        .Rows("3:" &...

Jacky67 · 14 Avril 2021

Francky79 à dit:
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é

Code:

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 · 14 Avril 2021

Bonjour Jacky67,

Merci pour ton aide, cela me semble parfait.

Bonne fin de journée

Microsoft 365 Transfert cellules en bloc vers autre feuille

Francky79

XLDnaute Occasionnel

Pièces jointes

Jacky67

Jacky67

XLDnaute Barbatruc

Francky79

XLDnaute Occasionnel

Discussions similaires