Création de tableaux multiples

Version imprimable

27/11/2013, 11h51
discus23

Création de tableaux multiples

Bonjour,

Voici un nouveau problème auquel je suis confronté et que mes bases actuelles en VBA ne semblent pas vouloir résoudre.

Je dispose d'un premier tableau de référence : X lignes, et Y colonnes.

J'aimerais 'copier' ce tableau Y fois en dessous du premier (en laissant accessoirement des lignes entre chaque). Le but étant, pour info, d'appliquer à l'intérieur de chaque tableau des formules différentes à partir du premier tableau de référence.

Pour résumer, à partir d'un tableau(X, Y) je souhaite obtenir au total Y + 1 tableaux(X, Y), les uns en dessous des autres.

Cela est-il tout d'abord possible ? Et si oui, je suis bien sûr preneur de toutes les pistes voire des solutions.

D'avance merci !
27/11/2013, 12h51
Daniel.C

Bonjour,

Mets un classeur en pièce jointe en expliquant quels changements de formules tu veux.

En supposant que ton tableau commence en A1 de la feuille Feuil1, voilà le code

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub toto()
Dim x As Long, y As Long, i As Long
    With Sheets("Feuil1")
        x = .Range("A" & .Rows.Count).End(xlUp).Row
        y = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Z = .Range(.Cells(1, 1), .Cells(x, y))
        For i = 1 To y
            .Cells(i * (x + 1), 1).Resize(x, y) = Z
        Next i
    End With
End Sub

27/11/2013, 13h34
discus23

1 pièce(s) jointe(s)

Citation:

Envoyé par Daniel.C

Bonjour,

Mets un classeur en pièce jointe en expliquant quels changements de formules tu veux.

Bonjour, et merci de ce retour rapide.
Comme demandé, voici en pj un exemple de ce à quoi j'aimerais arriver, en partant du tableau de référence qui commence en B4.

Citation:
Envoyé par EngueEngue
En supposant que ton tableau commence en A1 de la feuille Feuil1, voilà le code
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub toto() Dim x As Long, y As Long, i As Long With Sheets("Feuil1") x = .Range("A" & .Rows.Count).End(xlUp).Row y = .Cells(1, .Columns.Count).End(xlToLeft).Column Z = .Range(.Cells(1, 1), .Cells(x, y)) For i = 1 To y .Cells(i * (x + 1), 1).Resize(x, y) = Z Next i End With End Sub
Merci pour cette solution qui permet effectivement de copier Y fois le tableau.

Pour arriver à mes fins, il me reste à appliquer mes formules à l'intérieur de chaque tableau. Je pense repartir de ce code en remplaçant Z par ma formule ? Tout en sachant que dans le tableau 1, la formule dépend de la colonne 1, dans le tableau Y, la formule dépend de la colonne Y.
Comme je ne vois pas trop encore comment faire, je me penche dessus mais je suis preneur de toutes les astuces, merci !