Discussion :

[cagodue]

Bonjour,

J'ai un userform avec une liste déroulante et j'ai une fonction pour enregistrer une nouvelle ligne. J'aimerais que la liste déroulante de mon userform se mette à jour après l'enregistrement de la nouvelle ligne.

Je faisais Unload.me mais mon problème c'est que je parts mon userform en mode vbmodeless mais ça ne fonctionne pas.

Code :

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

1
2
3
Unload UserForm1
Load UserForm1
Call UserForm1.Show(vbModeless)

Je vous joint mon fichier. (J'ai mis des ' devant pour tester d'autres fonctions)

De plus, j'ai beaucoup de misère avec ma fonction imprimer, si vous avez des suggestions.

Merci

[Pierre Fauconnier]

Salut.

Je n'ai pas ouvert ton classeur mais je suppose que la liste déroulante s'appuie sur une plage de données. Il est plus intéressant d'alimenter la liste déroulante grâce à sa propriété List, car tu pilotes mieux la liste de cette manière, surtout lorsque ses valeurs changent à la volée.

Avec un userform nommé usfCategories contenant un combo nommé cboCategories, une zone de texte tboNewCategorie, un bouton btnAddCategory. La liste déroulante doit avoir sa propriété RowSource vide.
Avec une table de données nommée t_Catégories contenant une colonne nommée Catégorie.

Tu appelles ton userform grâce à une procédure dans un module standard qui charge ton combo avec les catégories présentes

Code :

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

1
2
3
4
5
6
Sub ShowUserForm()
  With usfCategories
    .cboCategories.List = Range("t_Catégories[Catégorie]").Value
    .Show vbModeless
  End With
End Sub

Si tu veux ajouter une catégorie à chaud, tu la saisis dans le textbox puis tu cliques sur le bouton d'ajout. Le code du bouton pourrait être celui-ci pour ajouter la nouvelle catégorie à la table de données puis rafraîchir le combo (en fait, en recharger les lignes)

Code :

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

1
2
3
4
Private Sub btnAddCategory_Click()
  Range("t_catégories[catégorie]").Cells(Range("t_catégories[catégorie]").Rows.Count + 1).Value = tboNewCategory.Value
  cboCategories.List = Range("t_Catégories[catégorie]").Value
End Sub

Normalement, le userform ne devrait pas agir directement sur la feuille, ce n'est pas son rôle. il faudrait déporter le code de mise à jour de la table ET de la liste hors du module du userform. Mais si le code que je te présente te convient, ce sera très bien ainsi

[cagodue]

Salut,

Merci pour ta réponse. Je ne suis pas encore super habitué et je ne sais pas avec mon code si cela fonctionnerait bien. Je vais continuer à tester et donner un retour.