A voir également:
- Macro pour Archivage
- Macro excel - Archivage automatique ✓ - Forum - Excel
- Création d'une macro d'archivage ✓ - Forum - VB / VBA
- Créer une macro excel - Articles
- Pour qu'une macro soit utilisable dans l'ensemble des classeurs ouverts, elle doit être rattachée à : ✓ - Forum - Excel
- Convertir chiffre en lettre excel sans macro ✓ - Forum - Excel
3 réponses
ccm81
- Messages postés
- 9788
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 14 mai 2021
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
- 9788
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 14 mai 2021
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
