Copier et insérer le meme bloc de lignes plusieurs fois Exce

Fermé
Biba - 16 août 2022 à 12:41
f894009 Messages postés 17180 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 février 2024 - 16 août 2022 à 16:47

Bonjour,

Je veux faire repéter un bloc de lignes exemple trois lignes N fois, EXcel VBA.

Exemple:


Windows / Chrome 104.0.0.0Est-ce que vous pouvez m'aider, svp?

Merci d'avance.

A voir également:

1 réponse

f894009 Messages postés 17180 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 février 2024 1 701
Modifié le 16 août 2022 à 16:49

Bonjour,

Une facon de faire

Sub Macro1()
    Range("A1:H3").Select           'plage selectionnee
    Selection.Copy
    'Pour récupérer l'adresse de la plage sélectionnée :
    'adr = Selection.Address(0, 0)
    'première ligne :
    L1 = Selection(1).Row
    'dernière ligne de la sélection :
    LF = Selection(Selection.Count).Row
    N = 3          'nombre de fois copie
    NbL = LF - L1 + 1       'nombre de ligne de la selection
    'parametre pour la copie
    PCV = Range("A" & Rows.Count).End(xlUp).Row + 1 'premier cellule vide colonne A
    R = PCV + (N * NbL) - 1 'derniere ligne plage de copie
    Range("A" & PCV & ":A" & R).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
0