Copier / Coller des plages de cellules à la suite

Bonjour à toutes et tous,

Je souhaite créer une macro qui :

  • selectionne la plage de cellule A13 -> H1000 (où toutes les lignes des colonnes A à H) pour plusieurs feuilles de calculs (G P A C, Flux, Agence Crédit, FP, Pole CSR, MJP.)
  • Copie le tout
  • colle uniquement les cellules pleines dans la feuille Ressources.

Jusqu'ici, pas de soucis. L'enregistreur de macro fait le boulot.

Sauf que, j'ai besoin que les données copiées des différentes feuilles, se collent les unes à la suite des autres automatiquement.

J'entends par là que si j'ai 25 lignes remplies pour l'onglet G P A C, les données de la feuille Flux ne se collerai qu'aprés la 25e ligne. Et ainsi de suite.

C'est probablement possible via une macro, mais je sèche un peu.

En vous remerciant par avance de votre aide précieuse,

Cordialement.

66fichier-test.xlsm (191.53 Ko)

Bonjour,

Essaie comme cela

Sub CopierEffectif()
Dim E
Dim WsS As Worksheet, WsC As Worksheet
Dim i As Integer
Dim LigneAjout As Long
    E = Array("GPAC", "Flux", "Agence Crédit", "FP", "Pole CSR", "MJP")
    Set WsC = Worksheets("Ressources")
    For i = 0 To UBound(E)
        Set WsS = Worksheets(E(i))
        LigneAjout = Application.Max(7, WsC.Range("A" & Rows.Count).End(xlUp).Row + 1)
        WsS.Range("A13:H1000").Copy
        With WsC.Range("A" & LigneAjout)
            .PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                , SkipBlanks:=False, Transpose:=False
        End With
    Next i
    Set WsC = Nothing: Set WsS = Nothing
End Sub

A+

Ça marche du tonnerre !

Un grand merci à toi frangy

Rechercher des sujets similaires à "copier coller plages suite"