Macro pour Archivage
Résolu/Fermé
Nonno48
Messages postés
66
Date d'inscription
samedi 28 décembre 2019
Statut
Membre
Dernière intervention
21 décembre 2023
-
2 nov. 2020 à 16:15
ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 - 3 nov. 2020 à 16:12
ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 - 3 nov. 2020 à 16:12
A voir également:
- Macro archivage excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
3 réponses
ccm81
Messages postés
10906
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
13 janvier 2025
2 429
2 nov. 2020 à 16:53
2 nov. 2020 à 16:53
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