modifier une formule

[pakalom]

bonsoir,

Tout D'abord je vous souhaite tous mes voeux pour 2011.

je souhaite que ce forum continue.en 2010 il a réalisé bcq de mes voeux.....

Voici mon souci de ce soir.

je voudrais modifier la formule ci joint. Je souhaiterais que cette formule me copie non pas le tableau de la feuille 2 sous le tableau de la feuille 1 MAIS faire une insertion cellules copiés en b15 de la feuille 1.

dera = Feuil1.Cells(Cells.Rows.Count, "B").End(xlUp).Row
derb = Feuil2.Cells(Cells.Rows.Count, "B").End(xlUp).Row
Feuil2.Range("B15:G" & derb).Copy Destination:=Feuil1.Range("B" & dera + 1)


J'ai fait plusieurs essai mais ce fut une catatrosphe... je suppose qu'il faut que j'insere "Selection.Insert Shift:=xlDown" mais je ne sais pas où et que je remplace "b"& dera +1 par b15

Merci de venir à mon secours....

 

[kjin]

Re : modifier une formule

Bonsoir,
Ce n'est pas une formule mais une macro !
Et ne connais-tu donc point Henry ?

dera = Feuil1.Cells(Cells.Rows.Count, "B").End(xlUp).Row
derb = Feuil2.Cells(Cells.Rows.Count, "B").End(xlUp).Row
Feuil2.Range("B15:G" & derb).Copy
Feuil1.Range("B15").Insert shift:=xlDown
Application.CutCopyMode = False

A+
kjin

 

[pakalom]

Re : modifier une formule

Bonsoir kjn,

désolé entre une formule et une macro.

Sinon merci bcq pour la reponse et non je ne connais pas Henry. Je devrais...

 

[kjin]

Re : modifier une formule

Re,

non je ne connais pas Henry. Je devrais...

Gistrair de MacRow de son vrai nom...
A+
kjin

 

[pakalom]

Re : modifier une formule

pas mal... je la note

@+