Modification paramètres d'un ComboBox

Bonjour,

Après pas mal de recherche sur le net, je me tourne vers vous pour vous soumettre mon problème.

Les valeurs de mon combobox sont reprises dans le champs d'un tableau et j'ai rajouté une macro afin de pouvoir rajouter une entrée dans le tableau. Tout fonctionne correctement sauf que le nombre de lignes affichées du combobox reste le même: si j'ai 3 entrées dans mon tableau, la combobox aura 3 lignes malgré l'ajout d'une quatrième entrée. Existe-t-il un moyen pour modifier l'affichage?

Cordiales salutations,
Arnaud

Bonjour,

Citation:

---

Tout fonctionne correctement sauf que le nombre de lignes affichées du combobox reste le même: si j'ai 3 entrées dans mon tableau, la combobox aura 3 lignes malgré l'ajout d'une quatrième entrée.

---

donc cela ne fonctionne pas correctement :)

Pouvez-vous publier le code qui gère votre ComboBox ?
Comment ajoutez vous les nouvelles lignes, par VBA dans le UserForm ou manuellement ?

ps : Je n'ouvre jamais les fichiers joints

Bonjour Philippe et merci d'avance pour votre aide,

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

donc cela ne fonctionne pas correctement :)

Pouvez-vous publier le code qui gère votre ComboBox ?

---

Il n'y a pas de code: j'utilise la fonction RowSource de la fenêtre des propriétés où j'ai donné le nom du tableau contenant les données.

Citation:

---

Comment ajoutez vous les nouvelles lignes, par VBA dans le UserForm ou manuellement ?

---

Via un code VBA

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click()   UserForm2.Hide   Range("A2").Select Selection.ListObject.ListRows.Add (1) Range("A2").Value = TextBox1.Value End Sub

---

De la sorte, la nouvelle entrée apparaît à la première ligne du menu déroulant mais la dernière entrée n'est plus visible.
J'espère avoir été claire?

Bonjour,
Je vous suggère l'utilisation de la propriété List du ComboBox au lieu de RowSource, qui peut poser des problèmes.
Vous alimentez cette propriété à l'activation du UserForm et juste après l'écriture de votre ligne

Exemple où TableName est le nom du tableau structuré

Code:

---

1 2 3 4 5 6

Private Sub LoadList() With Me.ComboBox1 .List = Range(TableName).Value .ColumnCount = Range(TableName).Columns.Count End With End Sub

---

Merci beaucoup: cela fonctionne!!!

Grâce à vous, je me coucherai moins bête ce soir ;)