Comment copier une cellule située au-dessus

fele57 Messages postés 1 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Dans une liste , lorsque la cellule ne contient rien je voudrais copier la valeur de la cellule située juste au-dessus.
Merci pour votre aide

1 réponse

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Range("A1").End(xlDown).Offset(1, 0).Select 'ligne vide colonne A
    ActiveCell.Offset(-1, 0).Select 'selection cellule au dessus
    Selection.Copy 'copie selection
    Range("C8").Select
    ActiveSheet.Paste

    0