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

Odeyr Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Odeyr Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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!
A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
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 i
End Sub


A+
1
Odeyr Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Gyrus,

Merci de ta réponse rapide, c'est super ça marche nickel!

Bonne journée à toi :)
0