Copier une plage de cellules N fois et les insérer

Question

Bonjour tout le monde, j'ai cherché sur pas mal de forums mais je ne trouve pas vraiment ce que je cherche...
J'ai un formulaire que je souhaiterai copier N fois (basé sur le chiffre que l'utilisateur entre en cellule "D2") et que je voudrais insérer en dessous de la plage copiée en laissant une ligne entre chaque copie.
Pour cela, je voudrais créer un bouton qui active la macro, et à chaque clic sur le bouton, cela actualise le nombre de plages insérées (si il y a 3 plages, et que l'utilisateur en veut 1, on actualise à une plage etc.)

Pourriez-vous m'aider? :)
En vous remerciant de votre aide!

Gyrus · Answer

Bonjour,

Private Sub Actualiser_Click()Dim i As Integer    Application.ScreenUpdating = False    Range("B16", Range("B" & Rows.Count).End(xlUp)(2)).EntireRow.Delete    For i = 2 To Range("D2").Value        Range("B4:F14").Copy Range("B4").Offset(12 * (i - 1))    Next iEnd Sub

A+

Copier une plage de cellules N fois et les insérer

1 réponse

Votre réponse

Discussions similaires

Newsletters