Macro pour Archivage

Résolu
Nonno48 -  
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

  • Votes
  • Date
  • Date décroissante
  1. ccm81
    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
    2. Nonno48 Auteur
      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

      Discussions similaires

      Transformer un chiffre en lettres dans excel sans macro
      vincentphilippos

      6 réponses