Rapport de message :*
 

Re: Tri colonne

Titre du sujet : Re: Tri colonne
par myDearFriend! le 29/09/2012 00:34:15

Bonsoir Nutella, JeanMarie, le Forum,

A vrai dire, tu commences par demander un code pour copier les lignes 1:5 en 6:10, ensuite tu parles de vouloir la recopie des lignes sur une autre feuille et maintenant tu ne parles visiblement plus de cette autre feuille...

Je me base donc sur la dernière version de ta question... et te propose le code comme suit :
' myDearFriend!  -  www.mdf-xlpages.com
Sub Traitement2()
Dim Recopie As Variant
Dim Plage As Range
Dim LigneMax As Long, L As Long
Const LignDeb As Byte = 2

    With Sheets("Feuil1")
        Recopie = Application.InputBox("Saisir le nombre de fois à recopier", Type:=1)
        If Val(Recopie) < 1 Then Exit Sub
        LigneMax = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set Plage = .Rows(LignDeb).Resize(LigneMax - 1)
        For L = 1 To Recopie
            Plage.Copy Destination:=.Rows(LigneMax + 1)
            LigneMax = .Cells(.Rows.Count, 1).End(xlUp).Row
        Next L
    End With
End Sub

Pour gain de temps, je te remercie d'éviter les questions à rebondissement et d'être précis dès le départ.

Par ailleurs, je répète ma remarque précédente :
Pour insérer du Code VBA proprement dans les posts du forum : voir CETTE FAQ. Merci.

Cordialement,