A voir également:
- Macro pour Archivage
- Macro excel - Archivage automatique ✓ - Forum - Excel
- Création d'une macro d'archivage ✓ - Forum - VB / VBA
- Un macro - Forum - Bureautique
- C'est quoi et sa serre a quoi des macros??? ✓ - Forum - Programmation
- Créer une macro excel - Articles
3 réponses
ccm81
- Messages postés
- 9621
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 15 novembre 2020
Bonjour
La macro
Cdlmnt
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
ccm81
- Messages postés
- 9621
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 15 novembre 2020
Bonjour
l'archivage se fait sur la même ligne! et celle des en tête.
Bizarre
https://mon-partage.fr/f/S58I4Des/
Cdlmnt
l'archivage se fait sur la même ligne! et celle des en tête.
Bizarre
https://mon-partage.fr/f/S58I4Des/
Cdlmnt