copier un nombre de lignes en foction d'une valeur de cellule

[erwanhavre]

Bonjour à tous je cherche comment copier (via un bouton macro) un nombre de ligne en fonction de la cellule b1

pour l'exemple ci-joint j'ai 5 en b1, il faudrait si possible que la macro copier les 5 lignes (entière)en jaune pour les insérer en a2 de la feuille 2 (insérer seulement les valeurs)

marci beaucoup tous le monde !!

 

[DoubleZero]

Re : copier un nombre de lignes en foction d'une valeur de cellule

Bonjour, erwanhavre, le Forum,

Comme ceci ?

Option Explicit
Sub Dupliquer()
    Application.ScreenUpdating = False
    Sheets("Feuil1").Range("a9").Resize(Range("b1")).EntireRow.Copy
    With Sheets("Feuil2"): .Range("a" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues: End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[erwanhavre]

Re : copier un nombre de lignes en foction d'une valeur de cellule

génial top merci
est ce possible d'inserer ces lignes plutôt au début du tableau ?

 

[DoubleZero]

Re : copier un nombre de lignes en foction d'une valeur de cellule

Re-bonjour,

Peut-être ainsi...

Option Explicit
Sub Dupliquer_v2()
    Application.ScreenUpdating = False
    Sheets("Feuil2").Range("a2").Resize(Sheets("Feuil1").Range("b1")).EntireRow.Insert shift:=xlDown
    Sheets("Feuil1").Range("a9").Resize(Range("b1")).EntireRow.Copy
    With Sheets("Feuil2"): .Range("a2").PasteSpecial Paste:=xlPasteValues: End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[erwanhavre]

Re : copier un nombre de lignes en foction d'une valeur de cellule

Topissime
MERCI bcp