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

Biba -  
f894009 Messages postés 17268 Date d'inscription   Statut Membre Dernière intervention   - 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

Réponse 1 / 1
f894009 Messages postés 17268 Date d'inscription   Statut Membre Dernière intervention   1 713
 

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

Discussions similaires

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme
Soter -
Raymond PENTIER -

1 réponse