Copier des lignes d'un classeur à un autre

[rudymagny]

Bonsoir le forum,

Voilà j'aurais voulu avoir votre avis sur un truc pour mon boulot.
Voilà j'ai un classeur 1 avec 12 feuilles (mois de l'année)
ce que je voudrais faire, c'est copier certaines lignes des feuilles de ce classeur 1 et de les coller dans un autre classeur 2.
Quelle méthode est la meilleure, ajouter une colonne aux feuilles de mon classeur 1 et y mettre des cases à cocher pour dire quelles lignes je veux copier ou une autre méthode?
Je sais pas!

Avez vous des propositions ou des exemples?

Je vous remercie d'avance

 

[Marc_du_78]

Bonsoir rudymagny,
pourquoi pas tout simplement avec une macro double click qui sélectionnerait ta plage et la copierait dans l'autre classeur.
Perso, je ne suis pas spécialiste en vb.
Bonne soirée.

 

[Marc_du_78]

re,
exemple a adapter :
Sur feuille classeur 1 :
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ligne As Long
Ligne = ActiveCell.Row
Sheets('Jrnal').Range('A65536').End(xlUp).EntireRow.Range('A2:O2').Value = ActiveCell.EntireRow.Range('A1:T1').Value
End Sub

 

[rudymagny]

Bonsoir Marc_du_78 et merci pour ta réponse,
Ma question n'était pas anodine puisque j'utilise déjà le double clik qui d'ailleurs me vient d'XLD mais je ne me souviens plus de la personne qui m'a aidé (trop concentré dans mon appli) :

Private Sub worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)
'Déclaration des variables pour export vers feuilles signature E5
Dim li As Integer
Dim dest As Range
Dim clas As Workbook

If Not Application.Intersect(Target, Range('A1,H1')) Is Nothing Then
        ActiveSheet.Unprotect
        'nom de la macro à affecter à la cellule
        Accueil.Show
        Cancel = True
        Exit Sub
End If
'/////////////////////////////////////////////////////////////////////////
    'si le double click n'a pas lieu dans une cellule éditée de la colonne AG
        If Application.Intersect(Target, Range('AG4:AG20000')) Is Nothing Then
            'Si la cellule contient une case à cocher:
            If Target.Value Like '[oý]' Then
                Target.Value = IIf(Target.Value = 'o', 'ý', 'o')
                'Empêche la sélection de la cellule après le double-clic
                Cancel = True
            End If
            Exit Sub
        End If
        
        'ouverture du classeur pour la suite du code sinon fonctionne pas
        ThisWorkbook.FollowHyperlink 'K:\\Antenne Dispatching Regional\\2-Pole ID\\16- VCT - Essais E4\\Réunion CDR\\Signatures E5\\Signatures E5.xls'
        'Code pour exporter la ligne dans l'autre feuille et l'onglet 'Signature E5'
        Set clas = Workbooks('Signatures E5.xls') 'définit la variable clas
        ActiveSheet.Unprotect
        li = Target.Row 'définit la variable li qui correspond à la ligne
        '/////définit la variable dest
        With clas.Sheets('Feuil1') 'prend en compte l'onglet 'Signature E5'
            If .Range('B4').Value = '' Then 'condition 2 : si A1 est vide
                Set dest = .Range('B4') 'définit la variable dest
                Else 'sinon
                Set dest = .Range('B65536').End(xlUp).Offset(1, 0) 'définit la variable dest
            End If 'fin de la condition 2
        End With 'fin de la prise en compte de l'onglet 'Extract Signature E5'
        
        'copie la ligne de la case cochée de l'onglet en cours et la colle dans l'onglet 'Signature E5' de l'autre feuille
        Range(Cells(li, 2), Cells(li, 27)).Copy Destination:=dest
        'Range(Cells(li, 30), Cells(li, 30)).Copy Destination:=dest
    End Sub

Mais lorsque je clic sur une cellule de la colonne AG il me copie bien la ligne mais je voudrais qu'il me replace après sur mon classeur d'origine et donc qu'il ne reste pas dans le classeur 'Signature E5'.

je change le sujet mais bon, au départ c'était pour avoir d'autres idées.

Merci