Copier coller dynamique

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

juliodream

XLDnaute Nouveau
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
 
Re : Copier coller dynamique

Quelque chose comme ça?

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
455
Réponses
2
Affichages
213
Réponses
17
Affichages
867
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
436
Retour