Insérer des groupes de 5 lignes avec formules

Borismy

XLDnaute Occasionnel
Bonjour,

je souhaite cette fois insérer des groupes de 5 lignes comportant des formules, à la suite tant que la colonne contiguë est remplie.

Voir le fichier joint.

Merci

Boris
 

Pièces jointes

  • insérer_5_lignes_formules.xls
    20 KB · Affichages: 48

Borismy

XLDnaute Occasionnel
Re : Insérer des groupes de 5 lignes avec formules

Bonsoir,

n'ayant aucune réponse, j'ai refait un fichier qui explique mieux mon besoin:

Je voudrais insérer la plage H2:J6 de la feuille bbbb
à partir de la cellule H2 tant qu'il y a des données dans la colonne G

Il faudrait modifier la macros ci-dessous, ce que je ne sait pas faire,

Sub colle1()
x = ActiveCell.Row
Sheets("bbbb").Range("h2:j6").Copy
Sheets("aaaa").Select
Range("h" & x & ":j" & x + 1).Insert Shift:=xlDown
Application.CutCopyMode = False

End Sub


Merci.

Boris:eek:
 

Pièces jointes

  • colle_plage.xls
    37.5 KB · Affichages: 61

JCGL

XLDnaute Barbatruc
Re : Insérer des groupes de 5 lignes avec formules

Bonjour à tous,

Peux-tu essayer avec :

Code:
Sub colle1()
X = ActiveCell.Row
For S = 1 To Feuil1.Range("G65536").End(xlUp).Row / 5
Feuil2.Range("H2:J6").Copy
Feuil1.Select
Range("H" & X & ":J" & X + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Next S
End Sub

A + à tous
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec