marco pour copier...

[lanoe]

Bonjour,

Novice en terme de macro, j'ai après quelques recherches sur le forum créer le macro ci dessous qui me permet de sélectionner une cellule et de la recopier dans la première cellule vide de la colonne D. Je ne trouve pas la solution pour recopier toujours dans la première cellule vide mais à partir de D15 par exemple.(et non a partir de D1 comme actuellement).

Selection.Copy Destination:=Sheets("feuil1").[d65000].End(xlUp).Offset(1, 0)

Merci d’avance

lanoe

 

[Jeanbulle]

Re : marco pour copier...

Salut 🙂


Essaye un truc dans le genre :

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 ?

 

[Cousinhub]

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

 

[Jeanbulle]

Re : marco pour copier...

Bonsoir..

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

 

[Cousinhub]

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 😀

 

[lanoe]

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

 

[Cousinhub]

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?

 

[lanoe]

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...

 

[Cousinhub]

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)

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

 

[lanoe]

Re : marco pour copier...

Re bonjour et merci

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

A+
lanoé

 

[Jeanbulle]

Re : marco pour copier...

Bonjour bhbh, bonjour lanoé 🙂

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