Copier/coller une plage de données

W

wamme

XLDnaute Occasionnel

• 26 Février 2008

• #2

Re : Copier/coller une plage de données

bonjour Roum1.
essaie avec ce code

Sub Macro1()
Sheets("détails(1)").Select
Application.Goto Reference:="montant_situ1"
row1 = ActiveCell.Row
Range(Cells(9, 1), Cells(row1, 1)).Select

Selection.Copy
Sheets("Détails(2)").Range("A9").Insert shift:=xlDown
End Sub

 

Vote positif 0 Vote négatif

R

roum1

Guest

• 27 Février 2008

• #3

Re : Copier/coller une plage de données

J'obtiens une erreur définie par l'application ou l'objet sur ma dernière ligne et je ne sais absolument pas pourquoi ?!?

Code:

Sheets("détails(1)").Select
Application.Goto Reference:=Sheets("détails(1)").Range("montant_situ1").Offset(-1, 0)
row1 = ActiveCell.Row

Sheets("détails(1)").Range(Cells(9, 1), Cells(row1, 8)).Select

 

Vote positif 0 Vote négatif

W

wamme

XLDnaute Occasionnel

• 29 Février 2008

• #4

Re : Copier/coller une plage de données

Salut
pourtant çà fonctionne (Excel 2000)
Regarde la pièce jointe roum1.xls

 

Pièces jointes

• roum1.xls

  26 KB · Affichages: 99
• roum1.xls

  26 KB · Affichages: 99

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 29 Février 2008

• #5

Re : Copier/coller une plage de données

Bonsoir,

Fais ta manip.par l'enregistreur de macro...

Outils/Nouvelle macro, tu fais, très exactement ce que tu veux faire (ni plus, ni moins, sinon polution du code...), un fois fini, tu arrêtes l'enregistrement....

Entre 2000 et 2003, quelques différences un peu chi...., il est vrai....

A te lire, je n'ai plus 2003 ici.....

 

Vote positif 0 Vote négatif