marco pour copier...

J

Jeanbulle

XLDnaute Occasionnel

• 4 Septembre 2007

• #2

Re : marco pour copier...

Salut 🙂


Essaye un truc dans le genre :

Code:

Dim lig As Long

Range("A1").Copy

lig = Sheets("Feuil1").Columns(4).Find("", Sheets("Feuil1").Range("D15"), , , xlByRows).Row

Range("A1").Select
Selection.Copy Destination:=Cells(lig, 4)

non ?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 4 Septembre 2007

• #3

Re : marco pour copier...

Bonsoir, eesaie :
Dim derlig as Range
derlig = IIf(Range("D65000").End(xlUp).Row <= 14, 14, Range("D65000").End(xlUp).Row)

puis :

Range("B3").Copy Destination:=Sheets("feuil1").Range("D" & derlig).Offset(1, 0)

par exemple, si c'est la cellule B3 que tu veux copier

 

Vote positif 0 Vote négatif

J

Jeanbulle

XLDnaute Occasionnel

• 4 Septembre 2007

• #4

Re : marco pour copier...

Bonsoir..

Oui effectivement, ma version ne fonctionne pas du tout 🙂
Désolé

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 4 Septembre 2007

• #5

Re : marco pour copier...

Bonsoir Jeanbulle,
comme dit le diction, "c'est en se gourant qu'on devient Gourou"
On apprend toujours de ses erreurs, et que le premier qui n'a jamais bu me lance la première bière 😀

 

Vote positif 0 Vote négatif

L

lanoe

XLDnaute Occasionnel

• 5 Septembre 2007

• #6

Re : marco pour copier...

bonjour,

merci à vous, mais pour la proposition de bhbh je n'arrive pas à l'activé, je cherche donc à copier la cellule selectionné d'ou "Selection.Copy" dans ma formule, et la recopier dans la premiere cellule vide de la colonne D mais à partir de D15

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 5 Septembre 2007

• #7

Re : marco pour copier...

Bonjour,
tu veux dire que cela ne fonctionne pas?
As-tu autre chose dans la colonne D, mais plus bas?
et en faisant Selection.Copy Destination:=Sheets("feuil1").Range("D" & derlig).Offset(1, 0), cela ne fonctionne pas non plus?

 

Vote positif 0 Vote négatif

L

lanoe

XLDnaute Occasionnel

• 5 Septembre 2007

• #8

Re : marco pour copier...

Re bonjour,
non désolé mais il m'annonce une "erreur d'executon '1004' " erreur définie par l'application ou par l'objet.
un petit fichier pour meiux comprendre...

 

Pièces jointes

• macro recopier4.xls

  34.5 KB · Affichages: 66
• macro recopier4.xls

  34.5 KB · Affichages: 63
• macro recopier4.xls

  34.5 KB · Affichages: 62

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 5 Septembre 2007

• #9

Re : marco pour copier...

Bonjour,

Dim derlig as Range
derlig = IIf(Range("D65000").End(xlUp).Row <= 14, 14, Range("D65000").End(xlUp).Row)

puis :

Range("B3").Copy Destination:=Sheets("feuil1").Range("D" & derlig).Offset(1, 0)

Cliquez pour agrandir...

il me semble que tu as oublié les deux premières lignes
Dim derlig....
derlig =......

 

Vote positif 0 Vote négatif

L

lanoe

XLDnaute Occasionnel

• 5 Septembre 2007

• #10

Re : marco pour copier...

Re bonjour et merci

effctivement...désolé pour le dérangement inutile...

A+
lanoé

 

Vote positif 0 Vote négatif

J

Jeanbulle

XLDnaute Occasionnel

• 8 Septembre 2007

• #11

Re : marco pour copier...

Bonjour bhbh, bonjour lanoé 🙂

Je serais un jour gourou de ce forum !! Promis ... ( en croisant les doigts )... ^^

 

Vote positif 0 Vote négatif