Macro pour Archivage

Résolu
Nonno48 Messages postés 67 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
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

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    l'archivage se fait sur la même ligne! et celle des en tête.
    Bizarre
    https://mon-partage.fr/f/S58I4Des/

    Cdlmnt
    1
    1. Nonno48 Messages postés 67 Statut Membre
       
      Bonjour
      Impeccable
      Merci
      Nonno48
      0
      1. ccm81 Messages postés 11033 Statut Membre 2 434 > Nonno48 Messages postés 67 Statut Membre
         
        De rien

        Bonne fin de journée

        Cdlmnt
        0
  3. Nonno48 Messages postés 67 Statut Membre
     
    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
    0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses