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

erwanhavre · 19 Mai 2016

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 · 19 Mai 2016

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

Bonjour, erwanhavre, le Forum,

Comme ceci ?

Code:

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 · 19 Mai 2016

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 · 20 Mai 2016

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

Re-bonjour,

Peut-être ainsi...

Code:

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 · 20 Mai 2016

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

Topissime
MERCI bcp

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

erwanhavre

XLDnaute Occasionnel

Pièces jointes

DoubleZero

XLDnaute Barbatruc

erwanhavre

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

erwanhavre

XLDnaute Occasionnel

Discussions similaires