Remplir une cellule a partir d'un liste

Bonjours,

Je dois vous avouer que je me lance dans un projet qui vas au dela de mes compétances. J'aimerais savoir comment je pourrais remplir une cellule avec la première cellule d'une liste, faire que la cellule de la liste s'efface et que la liste remonte. À quoi pourrait ressemblé le code?

Merci d'avance pour votre aide.

Salut.

Très basiquement, avec la valeur à récupérer en A1 et la liste en colonne E, commençant en E1. A chaque lancement de Test, A1 va prendre la valeur de E1 puis E1 va être supprimé, faisant remonter la liste.

Code:

---

1 2 3 4

Sub Test1() Range("a1").Value = Range("e1").Value Range("e1").Delete shift:=xlShiftUp End Sub

---

J'imagine que le projet dont tu parles est plus complet, et complexe, donc il faudra adapter, une solution donnée hors contexte de façon abrupte n'étant peut-être pas adaptée lorsqu'elle doit s'insérer dans un processus plus long.

Merci M. Fauconnier,

Je m'attendait a un code beaucoup plus complexe. Mais j'adore!

Merci,