Copier coller dynamique

[juliodream]

Bonjour,

Je travaille sur un fichier qui liste les projets en cours chaque mois.
Chaque mois, je dois donc copier coller les lignes du mois précédents et parfois ajouter de nouvelles lignes pour les nouveaux projets.
J'ai écris cette macro (en m'aidant d'exemples sur le net...):

Sub Macro1()

Range("A2:AX37").Select
Selection.Copy
Sheets("8-Suivi_Famille_Projet_Mois").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Le probleme, c'est que les ligne contenues dans "range" peuvent différée.
Je souhaiterais donc pouvoir, a partir d'une textbox par exemple, renseigner ma ligne de départ et d'arrivée à copier/coller

Merci d'avance

 

[Guest]

Re : Copier coller dynamique

Quelque chose comme ça?

Sub CopierCollerLignes()
    Dim NumLigne1 As Integer
    Dim NumLigne2 As Integer
    NumLigne1 = Int(Val(InputBox("Numéro de la première ligne à copier:", "Copier coller des lignes")))
    If NumLigne1 = 0 Then Exit Sub
    NumLigne2 = Int(Val(InputBox("Numéro de la dernière ligne à copier:", "Copier coller des lignes")))
    If NumLigne2 = 0 Then Exit Sub

    Range("A" & NumLigne1 & ":AX" & NumLigne2).Copy _
            Destination:=Sheets("8-Suivi_Famille_Projet_Mois").Cells(65535, 1).End(xlUp)(2)
End Sub

Bon après-midi

 

[juliodream]

Re : Copier coller dynamique

Je te remercie pour ton aide, cela me convient très bien.

Encore merci