Ajouter donnée dans source d'une liste déroulante

Bonsoir Ludwig

"Comment faire pour créer une liste déroulante qui se mette à jour automatiquement ? Voici une façon simple de construire une liste déroulante et de faire sa mise à
jour.

A) Quelque part dans ta feuille où sera mise la liste déroulante,
Inscrit un item de ta liste par cellule contigue(important). Pour les besoins de
la simplicité ici, assure-toi, que les cellule autour de ta liste sont vides....

B) À partir de la barre d'outils Contrôles(pas Formulaires) crée une liste
déroulante sur ta feuille.

C) En mode création, double-clique sur le contrôle de liste déroulante.

D) Choisi dans la liste déroulante de droite de la
fenêtre de l'éditeur VBA, l'événement "GotFocus"

Voici ce que ça donne:

Private Sub ComboBox1_GotFocus()

Dim Adresse As String
Adresse = Sheets("Feuil1").Range("A1").CurrentRegion.Address
ComboBox1.ListFillRange = Adresse

End Sub

Dans le code précédent remplace A1 par l'adresse de la cellule de ta
première valeur de la liste des items de la liste déroulante.

Voilà, le tour est joué. A chaque fois que tu cliqueras sur ta liste
déroulante, le code s'exécutera et ta liste sera toujours à jour.

Il y a plusieurs façon d'initialiser une liste déroulante, et plusieurs événements
peuvent être utilisé pour la mise à jour de ses items. Disons que celle-ci à
l'avantage d'être rapide et simple à mettre en branle...

Ah! Ah si cette prose était de moi !


Non c'est le Chef L. Longre qui te permettra de faire ce que tu souhaites

Bon W-E quand même

@+ GD

Bonsoir Gérard et merci à toi,

Merci beaucoup pour ta réponse, Gérard, mais c'est pas tout à fait ce que je cherchais. En effet je parle d'une liste déroulante dans une cellule et non d'une liste box. Je garde tout de même ton exemple car il est du reste très efficace.
En fait dans la cellule A1, par exemple, j'inscris une donnée qui n'appartient pas à la source, comment l'incrémenter dans la source automatiquement. Comme ça ma source se remplira au fur et à mesure, voilà...
C'est possible tout ça?

Encore merci à tous...

Ludwig