Discussion :

[discus23]

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 !

[Daniel.C]

Bonjour,

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

[discus23]

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.

[EngueEngue]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[discus23]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !