Inscrire la valeur de la derniere cellule selectionnée dans une autre cellule en vba

[orguyrine]

Bonjour

Je m’entraine en vba en me créant des exemples ,mais voilà mon probléme .
Dans un tableau je recherche dans une colonne la derniére valeur non vide et je voudrais que celle-ci se copie dans la cellue A1 de ma feuille en vba
Mais je bloque
Merci de votre compréhension
Classeur1.xlsm (15,4 Ko)

[Mimimathy]

Bonjour,
Teste ceci

Sub derligne()
  'déclaration des variables
  Dim derniereLigne As Long
  Dim derniereColonne As Integer 'Ne sert à rien pour cette macro
  derniereLigne = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row
  'sélection de la dernière cellule non vide de la colonne F vers A1
  ActiveSheet.Range("F" & derniereLigne).Copy ActiveSheet.Range("A1")
End Sub

[Jacquinot_WILL-FREAD]

Bonjour,
si vous commencez par F5:
vous pouvez facilement faire ceci :

Sub derligne()
Range("f5").Select
Range("A1") = ActiveCell.End(xlDown)
End Sub

[orguyrine]

merci de votre réponse.je vais continuer à essayer de progresser en vba Heureusement qu il y a des membres qui nous aident

Merci encore

[orguyrine]

merci de votre réponse.je vais continuer à essayer de progresser en vba le forum est vraiment utile
Merci encore