Discussion :

[Pierre Aiyana]

Tout d'abord bonjour à tous et toutes !

Je dois faire un gros fichier Excel sous Excel 2011 Mac avec des milliers de lignes et tous les risques d'erreur que comporte une création manuelle...
J'ai, sur une feuille, 3 colonnes avec une grosse centaine de lignes.
Je voudrais, sur une autre feuille du même classeur, recopier chaque ligne de ces 3 colonnes 59 fois d'affilée les unes au dessous des autres et cela en automatique
La solution est de faire une boucle VBA je pense. Malheureusement, je suis vraiment un gros newbie en programmation et j'aimerais, si cela est possible, que vous m'orientiez un peu...

Je vous souhaite une bonne journée !

Pierre

[Thautheme]

Bonjour Pierre, bonjour le forum,

le code ci-dessous à adapter copie une plage commençant en A1 de l'onglet Feuil2 et la colle 59 fois à partir de la cellule A1 de l'onglet Feuil1 :

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
16
Sub Macro1()
Dim O1 As Object 'déclare la variable O1 (Onglet 1)
Dim O2 As Object 'déclare la variable O2 (Onglet 2)
Dim pl As Range 'déclare la variable PL (PLage)
Dim I As Byte 'déclare la variable I (Incrément)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
 
Set O1 = Sheets("Feuil1") 'définit l'onglet O1 (à adapter)
Set O2 = Sheets("Feuil2") 'définit l'onglet O2 (à adapter)
Set pl = O2.Range("A1").CurrentRegion 'définit la palge PL (à adapter)
For I = 1 To 59 'boucle de 1 à 59
    'définit la cellule de destination (A1 si A1 est vide, sinon la première cellule vide de la colonne 1 (=A) de l'onglet O1)
    Set DEST = IIf(O1.Range("A1").Value = "", O1.Range("A1"), O1.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
    pl.Copy DEST 'copy la plage PL et la colle dans DEST
Next I 'prochaine valeur de la boucle
End Sub

[Pierre Aiyana]

Merci Thauthème !

Et merci pour la rapidité de ta réponse !

C'est parfait !

Encore merci !

Pierre