Conserver valeurs d'une combobox

Bonjour,

après avoir consulté les fils de discussion existant déjà sur des situations proches, j'ai élaborée une solution au problème que je vais vous soumettre.
A votre avis, y a-t-il mieux ?

Mon problème est que je donne la possibilité d'importer des feuilles avec certaines infos dans mon classeur.
A chaque importe, j'ajoute une valeur liée à l'import à une combobox.
Je souhaite qu'après enregistrement du classeur, s'il est ouvert sur un ordinateur quelconque les valeurs ajoutées à la combobox soient toujours présentes.

La seule solution que j'ai trouvé, c'est à la fermeture du classeur de passer en revue les valeurs dans la combobox et de les écrire dans des cellules, puis, à l'ouverture du classeur, de remplir ma combobox avec les valeurs qu je vais chercher dans ces cellules.

Pensez-vous qu'il soit possible de faire mieux et/ou plus élégant ?

Bonjour.

Cela paraît très bien. Ce que tu ne dis pas, c'est comment tu organises la gestion des cellules qui mémorisent les valeurs.
Pour faire court, le mieux, à mon avis, est d'utiliser un nom de plage défini. Ce qui oblige à redéfinir le nom à chaque ajout, mais simplifie son utilisation dans la combobox.

Cordialement,

PGZ

Bonjour à tous,
Tu peux aussi réserver une plage de cellules dans une feuille "données" ou tu enregistres au fur et à mesure les valeurs ajoutées à ta Combo :
Lorsque tu ajoutes la valeur à ta combo, tu l'ajoutes aussi à ta liste :

Code:

---

1 2	ComboBox1.AddItem "Gnagna" Sheets("Données").Range("C65536").End(xlUp).Offset(1, 0).Value = "Gnagna"

---

Cela évite de boucler en fin d'utilisation...

EDIT : j'oubliais... Au chargement de ton classeur tu peux facilement reprendre les données de cette feuille et les recharger dans ta Combo... Là tu auras même le choix de la méthode.
soit avec AddItem :

Code:

---

1 2 3 4 5 6 7 8

Dim i As Integer, derlig As Integer ComboBox1.Clear With Sheets("Données") derlig = .Range("C65536").End(xlUp).Row For i = 2 To 5 ComboBox1.AddItem .Cells(i, 3).Value Next i End With

---

Soit avec RowSource :

Code:

---

1 2 3 4 5

Dim derlig As Integer   ComboBox1.Clear derlig = Sheets("Données").Range("C65536").End(xlUp).Row ComboBox1.RowSource = "Données!C2:C" & derlig

---

Cordialement,
Franck P