Copier A2:A7 et coller à la suite colonne A

jean300 Messages postés 382 Statut Membre -  
jean300 Messages postés 382 Statut Membre -
Bonjour,
Je cherche code pour copier la plage A2:A7 et la coller première cellule vide de la colonne A (même colonne) avec le format et les formules
Je vous remercie d'éclairer ma lanterne

3 réponses

  1.
    thev Messages postés 2011 Date d'inscription   Statut Membre Dernière intervention   724
     
    Bonjour,

    Exemple de code : 

         
Dim cell As Range
    With ActiveSheet
        Set cell = .Columns("A").Find("", after:=.Range("A7"))
        .Range("A2:A7").Copy cell
    End With
    0
  2. julia Namor Messages postés 532 Statut Membre 33
     
    Bonjour
    un petit code vite fait 
    Sub coller()
    With Sheets("feuil1")
    DL = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A2:A7").Copy
    .Range("A" & DL + 1).Select
    ActiveSheet.Paste
    End With
    End Sub


    cordialement
    0
  3. jean300 Messages postés 382 Statut Membre 14
     
    Bonjour thev, Julia
    Je vous remercie beaucoup
    Bonne journée à vous
    0

Discussions similaires

Imprimer 4 feuilles A4 pour donner un effet A2
Minisim -
Ptitetchounette -

5 réponses