Copié / collé de lignes sélectionnées sur une autre feuille

denisbouchard

XLDnaute Junior
Bonjour à tout le forum,

Lorsque je double-clique sur une case du tableau, je voudrais copier tout ce qui se trouve sur la même ligne avant cette case. Un exemple pour être plus clair:

- Je double clique sur le case "G13" de la feuille1.
- Je copie les cases de "A13" a "F13" et je les colle sur la feuille2 sur les cases en partant de "A1".

Quelqu'un peut-il m'expliquer pourquoi j'ai ce message d'erreur.

Merci de vos futures réponses.
Denis
 

Fichiers joints

Dull

XLDnaute Barbatruc
Re : Copié / collé de lignes sélectionnées sur une autre feuille

Salut denisbouchard, le Forum

essaye plutôt ces lignes de code

Code:
Option Explicit
Dim cible As Long, DerLig As Long

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
DerLig = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
If Target.Column = 7 Then
        cible = ActiveCell.Row
        Range(Cells(cible, 1), Cells(cible, 6)).Copy Destination:=IIf(Sheets("Feuil2").Range("A1") = "", _
        Sheets("Feuil2").Range("A" & DerLig), Sheets("Feuil2").Range("A" & DerLig + 1))
    Else
        Exit Sub
End If
    Cancel = True
End Sub
Bonne Journée
 

denisbouchard

XLDnaute Junior
Re : Copié / collé de lignes sélectionnées sur une autre feuille

Bonjour Dull,

Merci pour ta réponse, ça fonctionne super!!!

Bonne journée.

Denis
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas