copier coller valeur

[nicolas65400]

Bonjour à toutes et tous
Je cherche à copier la valeur de la cellule contenu dans la colonne AK en fonction de la ligne sur laquelle je me trouve 1, 2, ... dans une autre feuille feuille en cellule D19

exemple:
je suis sur ma feuille 2 quelque part sur la ligne 2 je voudrais copier AK2 (puissque je suis sur la ligne 2) dans la cellule D19 de ma feuille 1

je suis sur ma feuille 2 quelque part sur la ligne 3 je voudrais copier AK3 (puissque je suis sur la ligne 3) dans la cellule D19 de ma feuille 1

J'espère metre fait comprendre

Merci d'avance

 

[Compte Supprimé 979]

Re : copier coller valeur

Bonjour Nicolas65400

Tu peux essayer avec ce code

For Lig = 2 to 200  ' Copie de la ligne 2 à 200
Sheets("Feuil1").Range("D19") = Sheets("Feuil2").Range("AK" & lig)
Next Lig

A+

 

[nicolas65400]

Re : copier coller valeur

Bonjour Nicolas65400

Tu peux essayer avec ce code

For Lig = 2 to 200  ' Copie de la ligne 2 à 200
Sheets("Feuil1").Range("D19") = Sheets("Feuil2").Range("AK" & lig)
Next Lig

A+

merci pour l'aide mais je n'y arrive pas bien qu'ayant quelques petites notions (j'ai bien renommé mes feuilles)
j'ai essayé de copier ce code mais rien ne se passe
où dois je le copier?

 

[Fo_rum]

Re : copier coller valeur

Bonjour

et avec :

Sheets("Feuil1").Range("D19") = Sheets("Feuil2").Cells(ActiveCell.Row,"AK" )

 

[nicolas65400]

Re : copier coller valeur

Merci la dernière solution proposée fonctionne impec !