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

l'archivage se fait sur la même ligne! et celle des en tête.
Bizarre
https://mon-partage.fr/f/S58I4Des/

Cdlmnt
1
Nonno48 Messages postés 66 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
Impeccable
Merci
Nonno48
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433 > Nonno48 Messages postés 66 Date d'inscription   Statut Membre Dernière intervention  
 
De rien

Bonne fin de journée

Cdlmnt
0
Nonno48 Messages postés 66 Date d'inscription   Statut Membre Dernière intervention  
 
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
0