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

[denisbouchard]

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

 

[Dull]

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

Salut denisbouchard, le Forum

essaye plutôt ces lignes de 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]

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