Copier ligne à suivre + mise en forme de la ligne du dessus
K
Bonjour,
je bloque concernant le problème suivant :
Le but est de copier les lignes (colonnes A:C) de la feuille "Base", dans la feuille "LISTE", à suivre, et avec la mise en forme de la ligne du dessus. Actuellement, impossible de copier la Mise en forme du dessus (attention copier la M.E.F. seulement si ligne non vide).
Bien-sur, la liste dans 'base' est évolutive.
Voici le code actuel :
Sub Colbase()
'copie les lignes sélectionnés dans Numdebit
Sheets("Base").Select
Range("A6:C300").Select
Selection.Copy
Sheets("LISTE").Select
Range("F" & Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
End Sub
D'avance Merci.
Bonjour,
macro à tester
Sub Colbase()
'copie les lignes sélectionnés dans Numdebit
Set wss = Sheets("base")
dlwss = wss.Range("A" & Rows.Count).End(xlUp).Row
wss.Range("A6:C" & dlwss).Copy
Set wsc = Sheets("liste")
dlwsc = wsc.Range("F" & Rows.Count).End(xlUp).Row + 1
wss.Range("A6:C" & dlwss).Copy wsc.Range("F" & dlwsc)
wsc.Range("F5:H5").Copy
wsc.Range("F" & dlwsc & ":H" & dlwsc + dlwss - 6).PasteSpecial Paste:=xlPasteFormats '
End SubK
Merci,
cela fonctionne.
Bonne continuation.