Insérer des groupes de 5 lignes avec formules

[Borismy]

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

 

[Borismy]

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😱

 

[JCGL]

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

Bonjour à tous,

Peux-tu essayer avec :

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

 

[Borismy]

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

Bonjour,

JCGL, c'est nickel, c'est tout à fait ce qu'il me faut.

Merci beaucoup.

Boris🙂