Macro pour Archivage [Résolu]

Signaler
Messages postés
51
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
20 mars 2021
-
Messages postés
9788
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 mai 2021
-
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
9788
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 mai 2021
2 111
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
9788
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 mai 2021
2 111
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
51
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
20 mars 2021

Bonjour
Impeccable
Merci
Nonno48
Messages postés
9788
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 mai 2021
2 111 >
Messages postés
51
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
20 mars 2021

De rien

Bonne fin de journée

Cdlmnt
Messages postés
51
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
20 mars 2021

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