Macro pour Archivage

Résolu
Nonno48 Messages postés 66 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   - 3 nov. 2020 à 16:12
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
A voir également:

3 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
1