Copier A2:A7 et coller à la suite colonne A

Question

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


Configuration: Windows / Firefox 58.0

thev · Answer

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

julia Namor · Answer

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).SelectActiveSheet.PasteEnd WithEnd Sub

cordialement

jean300 · Answer

Bonjour thev, Julia
Je vous remercie beaucoup
Bonne journée à vous

Copier A2:A7 et coller à la suite colonne A

3 réponses

Votre réponse

Discussions similaires

Newsletters