Sujet Précédent Sujet Suivant

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

Réponse 1 / 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
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
Original photo
aide -
viagers -

1 réponse
visualiser une image présente dans le cache
jussieu -
jussieu -

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

1 réponse
Sur la plage...
kriiisss -
Utilisateur anonyme -

6 réponses