Copier coller à la dernière cellule vide

[Atiom]

Bonjour

Nouveau dans ce forum j’ai lu la charte fais de recherches dans les anciens post et j’ai pas trouvé de réponse à ma question.
Le sujet est largement abordé mais pas trouvé.

J’ai une Feuil 1 et une Feuil 2
En VBA comment faire un copier de la cellule C10 de la Feuile 1 et coller toujours dans la dernière cellule vide de la Feuil 2

Merci
Atiom

 

[Rai]

Bonjour,

Dans quelle colonne de la Feuil2 veux-tu coller la Feuil1!C10 ?

Bon, on va faire comme-ci tu voulais le faire en colonne A, il ne te restera plus qu'à adapter ...

Sub Feuil2Paste()
Col = "A"
With Sheets("Feuil2")
DerLig = .Range(Col & "65536").End(xlUp).Row + 1
Set Dest = .Range(Col & DerLig)
Sheets("Feuil1").Range("C10").Copy Destination:=Dest
End With
End Sub

Il y a plus court, mais là tu peux facilement changer la colonne, et le nom des feuilles concernées.

Bon Dimanche.

Rai

 

[Atiom]

Rebonjour
Merci Rai.
Ça fonctionne très bien, le problème est que dans la cellule C10 de la Feuil 1 J’ai une liste déroulante et donc la macro me copie toute la liste dans la Feuil 2.

Est-ce qu’il est possible de modifier la macro de manière a copier uniquement la valeur de la cellule
Merci

 

[Rai]

re-,

Bien sûr !

D'ailleurs, en me relisant je me demande pourquoi je suis passé par la méthode 'copy' ... ya plus simple.

Sub Feuil2Paste()
Col = "A"
With Sheets("Feuil2")
DerLig = .Range(Col & "65536").End(xlUp).Row + 1
.Range(Col & DerLig) = Sheets("Feuil1").Range("C10")
End With
End Sub

Et hop !

Là ça devrait marcher ;o))

Bonne soirée

Rai

 

[Atiom]

Bonsoir, Rai et Forum

Ça fonctionne.
Merci Rai
Bonne nuit