Macro pour Archivage
Résolu
Nonno48
Messages postés
66
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention - 3 nov. 2020 à 16:12
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention - 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
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si et excel - Guide
3 réponses
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