Macro pour Archivage
Résolu
Bonjour
Je voudrais une macro pour faire un copier/coller des cellules sélectionnées
Merci d'avance
Nonno48
https://www.cjoint.com/c/JKcpm3lGcfA
Je voudrais une macro pour faire un copier/coller des cellules sélectionnées
Merci d'avance
Nonno48
https://www.cjoint.com/c/JKcpm3lGcfA
3 réponses
-
Bonjour
La macro
Option Explicit Public Sub Archiver() Dim liFS As Long Dim liFB As Long liFB = Sheets("Archives").Range("A" & Rows.Count).End(xlUp).Row + 1 liFS = ActiveCell.Row If MsgBox("Voulez vous archiver la ligne" & liFS, vbYesNo) = vbYes Then Range("C" & liFS & ":H" & liFS).Copy Sheets("Archives").Range("A" & liFB) End If End Sub
Cdlmnt -
Bonsoir et merci
mais j'ai un petit soucis l'archivage se fait sur la même ligne! et celle des en tête.
Crdlmt
Nonno48 -
Bonjour
l'archivage se fait sur la même ligne! et celle des en tête.
Bizarre
https://mon-partage.fr/f/S58I4Des/
Cdlmnt
