Bonsoir,


1) je souhaite faire une copie de la feuille 1 sur la feuille 2 d'une plage de cellule . particularité la plage peut être plus ou moins grande. cette plage de cellule se trouve en v7. de la feuille 1 ("test") et doit sur la 1ère exécution du code coller la valeur en A1 de la feuille 2 ("Synthèse 1").

2) ensuite je souhaite que lors de la 2ème exécution de la macro le "collage" se fasse dans la colonne "n+1", "n" étant la limite de la plage du 1er collage.

Mon code marche presque car quand je colle j'ai des #REF! Je pense savoir pourquoi, car dans la cellule source j'ai des formules.

La solution est peut-être dans le mode de collage.

MERCI de m'aider.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
 
Dim derLn&, derCol&, cell As Range
 
 
Sub Coller()
 
    Set cell = ActiveCell
    derLn = Sheets("test").Range("W" & Rows.Count).End(xlUp).Row
    derCol = Sheets("Synthèse 1").Cells(1, Columns.Count).End(xlToLeft).Column + 2
    If derCol = 3 Then derCol = 1
    Sheets("test").Range("V7:W" & derLn).Copy Sheets("Synthèse 1").Cells(1, derCol)
    Application.CutCopyMode = False
    cell.Select
End Sub

@+++