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!

1 réponse

  1.
    Gyrus Messages postés 3360 Statut Membre 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
    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

Discussions similaires

Retrouver l'image originale d'une photo modifiée
Raven -
Asta972155 -

10 réponses
visualiser une image présente dans le cache
jussieu -
jussieu -

1 réponse
Original photo
aide -
viagers -

1 réponse
Dechiffrer une image caché
JACQUE -
Otomec -

1 réponse
"Nous n'avons pas pu nous connecter à ce réseau"
Julien -
Julien -

11 réponses