Macro Excel

[Merlhes]

Bonjour à tous,

J'ai fait un petit tableau (5 lignes, 20 cellules) que j'aimerais reproduire à la suite les uns des autres vers le bas de ma feuille avec le décalage (des 5 lignes) automatique.
Personne jusqu'ici ne m'a donné la solution. Je suis donc contraint de faire du copier collé toutes les 5 minutes puisque je n'ai pas trouvé de macro pour cette action pourtant simple.Si quelqu'un peut m'aider...un grand merci (Excel XP)

 

[@+Thierry]

Bonjour Merlhes

Voici une solution sous réserve :

1) de t'avoir compris !

2) que ton tableau de base soit en ("A1:T20")

3) que tu veuilles travailler dans les colonnes de "A" à "T"

Sinon faudra faire des modifications


Sub TableauDuplicate()
Dim L As Long, X As Integer, Nombre As Integer

L = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1

Nombre = InputBox("Veuillez indiquer le nombre de copies du tableau ?", "Nombre de Tableaux", 10)

If (65536 - L) < (Nombre * 5) Then Nombre = Round((65536 - L) / 5, 0)

For X = 1 To Nombre
With Sheets("Feuil1")
.Range("A1:T20").Copy _
Destination:=.Range("A" & L)
L = L + 5
End With
Next X
End Sub

BOn WEek End
@+Thierry

 

[Merlhes]

Merci infiniment Thierry, je crois que c'est bien de cela dont il est
question.
Je l'essaie et je te fait part du résultat.
Bien cordialement.
Didier