copier plusieurs celulles d'une feuille 1 dans une nouvelle feuille (2)

[anthonyhk]

bonjour,

Je souhaiterai copier en fonction d'un nombre dans une cellule (dans la feuille 1), et coller les valeurs de ces cellules dans une nouvelle feuille (feuille 2).

j'ai fais une macro, mais ça ne marche pas =(

voir fichier ci-joint

Cordialement

merci de votre aide

 

[pierrejean]

Re : copier plusieurs celulles d'une feuille 1 dans une nouvelle feuille (2)

Bonjour anthnyhk

teste ceci

Sub copie()
nb = Range("F1")
lg = 1
Sheets("Feuil2").Range("A1:A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row).ClearContents
For n = 1 To Range("A65536").End(xlUp).Row
 If nb <> 0 And Range("A" & n) <> "" Then
    Range("A" & n).Copy Destination:=Sheets("Feuil2").Cells(lg, 1)
    lg = lg + 1
    nb = nb - 1
 End If
Next
Sheets("Feuil2").Select
End Sub

 

[anthonyhk]

Re : copier plusieurs celulles d'une feuille 1 dans une nouvelle feuille (2)

Bonjour pierrejean,

je n'arrive pas à le faire marcher...

Cordialement

 

[pierrejean]

Re : copier plusieurs celulles d'une feuille 1 dans une nouvelle feuille (2)

Re

Voila dans le fichier

 

[anthonyhk]

Re : copier plusieurs celulles d'une feuille 1 dans une nouvelle feuille (2)

Merci !