P
pakalom
Guest
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....
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....