Macro pour Archivage [Résolu]

Signaler
Messages postés
35
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
3 novembre 2020
-
Messages postés
9621
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
15 novembre 2020
-
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

3 réponses

Messages postés
9621
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
15 novembre 2020
1 958
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
Messages postés
9621
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
15 novembre 2020
1 958
Bonjour

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

Cdlmnt
Messages postés
35
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
3 novembre 2020

Bonjour
Impeccable
Merci
Nonno48
Messages postés
9621
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
15 novembre 2020
1 958 >
Messages postés
35
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
3 novembre 2020

De rien

Bonne fin de journée

Cdlmnt
Messages postés
35
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
3 novembre 2020

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