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

pierrejean

XLDnaute Barbatruc

• 17 Novembre 2010

• #2

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

Bonjour anthnyhk

teste ceci

VB:

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

 

Vote positif 0 Vote négatif

A

anthonyhk

Guest

• 17 Novembre 2010

• #3

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

Bonjour pierrejean,

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

Cordialement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Novembre 2010

• #4

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

Re

Voila dans le fichier

 

Pièces jointes

• Macro_For_Copie.zip

  12.5 KB · Affichages: 54

Vote positif 0 Vote négatif

A

anthonyhk

Guest

• 22 Novembre 2010

• #5

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

Merci ! 🙂

 

Vote positif 0 Vote négatif