Copier coller ligne avec macro
Je souhaiterais copier-coller une ligne (par exemple la ligne 3) en ajoutant dessous une ligne avec uniquement la cellule C3 et L3 et en cliquant n'importe qu'elle cellule.
Merci de votre aide.
Bon après-midi.
Cordialement.
David.
Salut David,
un double-clic sur la ligne à traiter démarre la macro.
Code à adapter si, comme souvent, le fichier réel ne ressemble pas à l'exemple !
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim iRow%
'
Cancel = True
'
iRow = Range("B" & Rows.Count).End(xlUp).Row
Rows(Target.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C" & Target.Row + 1).Value = Range("C" & Target.Row).Value
Range("L" & Target.Row + 1).Value = Range("L" & Target.Row).Value
'
If Target.Row = iRow Then
With Range("B2:M" & iRow + 1)
.Borders.LineStyle = xlLineStyleNone
.BorderAround LineStyle:=xlContinuous, Weight:=xlMedium
End With
End If
'
End Sub
A+
C'est parfait.
Merci de votre aide.
Bonne journée.
Cordialement.
David.
Tant mieux, David, dans ce cas..
A+
Bonjour curulis57, le forum,
Je reviens vers vous, car je m’aperçois que les formules (=somme(C3*L3) qui sont dans les cellules ne sont pas copiées.
Comment puis-je faire pour les copier ?
Merci de votre aide.
Bonne journée.
Cordialement.
David.
Salut David,
bizzare ta formule... qui n'apparaît nulle part dans ton fichier-exemple qui n'en est donc pas un finalement .
Cette formule peut fonctionner dans l'émission "Des chiffres et des lettres" mais pas avec Excel : tu mélanges nombres et lettres !!
=SOMME(C3*L3)Un fichier-exemple réaliste et complet avec des explications qui, manifestement, doivent être complétées, stp !
Voilà comment on perd du temps en tournant autour du pot !
A+
Je viens de comprendre mon erreur et je vous prie de m'excuser.
Voilà le nouveau fichier avec les formules dans les cellules.
Merci de votre aide.
Bonne journée.
Cordialement.
David.