Bonjour,

Dans une feuille de calcul, le code ci-dessous me permet de copier 200 lignes des colonnes A à D et de les coller en dessous 80 fois :

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
Range("A2:D200").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
 
Dim nb As Long, nblig As Long, c As Range, i As Long
 
nblig = Selection.Rows.Count
Set c = Selection.Range("A2:d200")
Selection.Copy
Application.ScreenUpdating = False
For i = 1 To 80
c.Offset(nblig * i).Resize(Selection.Rows.Count, Selection.Columns.Count) = Selection.Value
Next i
Application.CutCopyMode = False
End Sub
Je cherche à reproduire cette action par colonne, tant que l’en-tête de la colonne suivante n’est pas vide (colonnes F, G, H…) et copier les données dans la colonne E, en dessous de celles déjà copiées (lignes 201, 401…).
Je cherche une macro pour cette opération qui est à réaliser pour plusieurs tableaux qui ont plus de 100 colonnes.

Espérant être clair, je vous remercie pour votre aide

Pierre