Macro incorrecte

[Papy Novice]

Bonjour le forum,
Voici, j'ai essayé de transposer deux macros en une seule, mais vu que je n'y comprends rien (pour l'instant) elle bug.
Qui voudrais bien me la corriger ?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ligne
Dim LastLine As Long
Ligne = Target.Row
Range('A' & Ligne & ':T' & Ligne).Select
Selection.Copy
Sheets('Jrnal').Select
With Sheets('Jrnal')
LastLine = .Range('A65536').End(xlUp).Row + 1
.Range('A' & LastLine).Value = Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub

JE vous remercie de l'aide que vous m'apporterez.
Jean

 

[CBernardT]

Bonjour Papy Novice,

Je te propose une macro amaigrie mais qui j'espère te donneras satisfaction ?

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:T2').Value = ActiveCell.EntireRow.Range('A1:T1').Value
End Sub

Cordialement

Bernard

 

[dg62]

Salut Papy Novice

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Ligne
Dim LastLine As Long
Ligne = Target.Row
Range('A' & Ligne & ':T' & Ligne).Select
Selection.Copy
Sheets('Jrnal').Select
LastLine = Range('A65536').End(xlUp).Row + 1
Range('A' & LastLine).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub

 

[Papy Novice]

Bonsoir Bernard, le forum
Je te remercie de ta réponse, mais après essayage, ta macro ne fonctionne pas.
Je m'explique : Il s'agit au départ d'une macro qui me sélectionne et copie une plage de cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ligne
Dim LastLine As Long
Ligne = Target.Row
Range('A' & Ligne & ':T' & Ligne).Select
Selection.Copy
Sheets('Jrnal').Select
With Sheets('Jrnal')

Puis je désire coller les valeurs copier dans la feuille Jrnal et là ca bug
J'espère que tu me comprends
Jean

 

[CBernardT]

Re,

Je suis un peu étonné :

1- La macro est lancée quand tu cliques deux fois sur une cellule de la feuille active ;
2- Transfert de la plage sélectionnée dans la ligne suivante libre de la feuille 'Jrnal' ;


Je m'aperçois qu'il y a des antislach partout dans la macro précédente qui ont été ajoutés dans le transfert email.

J'essaie à nouveau :

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:T2').Value = ActiveCell.EntireRow.Range('A1:T1').Value
End Sub

A+

Bernard

 

[Papy Novice]

Bonsoir Bernard, dg62, le forum,
Un grand merci à vous car effectivement ca fonctionne parfaitement.
Excusez-moi, car j'ai du m'absenter pour une urgence.
Je vous remercie pour l'aide appréciable que vous m'avez apporté.
Bon Week end à chacun
Jean