Discussion :

[Arnaud C]

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

[Philippe Tulliez]

Bonjour,

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

[Arnaud C]

Bonjour Philippe et merci d'avance pour votre aide,

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.

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

Via un code VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Arnaud C]

Merci beaucoup: cela fonctionne!!!

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