Selection de plusieurs lignes avec report sur autre feuille

Question

Bonjour, 

mon souci est que je souhaite copier plusieurs lignes que j'ai nommé (car sur la feuille ou je travaille, j'ajoute et je supprime des lignes et donc je suis obligé de les nommer) et les ajouter sur une autre feuille.

Cependant je n'y arrive pas, voici mon code : 
Sub copie lignes()

    Sheets("Budget").Activate
    Rows(alors & ":" & interm_1).Select
    Selection.Copy
    Sheets("impression").Activate
    Rows("6:6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C10").Select
End Sub

La seconde question dans le même rapport est si cela est possible de faire la même manipulation avec la sélection d'une ligne par rapport à une cellule cellule nommé en décalant la sélection avec "Offset" dans le genre : 
rows(Range("ref_2").Offset(1, 0):Range("ref_2").Offset(3, 0))

Merci d'avance de votre aide.

Frenchie83 · Answer

Bonjour
Je vous propose votre code légèrement modifié et qui peut répondre peut-être à vos 2 questions
Sub Copielignes()
    Application.ScreenUpdating = False
    If Selection.Count = 0 Then Exit Sub
    LigImp = 6 'Ligne de début de la feuille impression
    Sheets("Budget").Activate
    Set ZoneSelectionnee = Selection
    For Each c In ZoneSelectionnee
        c.EntireRow.Select
        Selection.Copy
        Sheets("impression").Activate
        Rows(LigImp).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        LigImp = LigImp + 1
        Sheets("Budget").Activate
    Next
End Sub
Explications: 
Sélectionnez 1 cellule par ligne que vous voulez imprimer, vous pouvez sélectionner plusieurs lignes (avec Ctrl), mais toujours 1 seule cellule par ligne. Lancez la macro, chaque ligne est recopiée dans la feuille impression à partir de la ligne 6. Avant d'aller plus  loin, cela répond-il en partie à vos attentes?
bonne journée
cdlt

staerki · Answer

Merci pour votre réponse, 

c'est une solution qui est pas mal, cependant ce que je recherchais, c'est que cela ce fasse de façon automatique (si possible que je n'ai pas besoin de sélectionner mes lignes manuellement d'ou le fait d'avoir nommé une cellule de ma 1ère et dernière ligne) 

Bonne journée à vous aussi.

Selection de plusieurs lignes avec report sur autre feuille

2 réponses

Discussions similaires

Newsletters