Discussion :

[guilty_AL]

Bonjour le Forum,

Je me dirige à nouveau vers vous pour un problème que je n'ai pas pu régler malgré les différents sujets discutés dans le forum.

Je vous expose le problème : dans un formulaire que je crée, l'utilisateur doit pouvoir ajouter à une table des informations qu'il sélectionne via un menu déroulant.

J'imaginais que la table se forme via un UserForm et donc, dès que l'utilisateur a fait son choix, il clique sur un bouton "Ajouter cette information" et un label supplémentaire s'ajoute aux labels précédemment créés. L'utilisateur doit pouvoir ajouter autant d'informations qu'il souhaite. J'avais donc imaginé un code du genre :

- Si label 1 (première information choisie) n'existe pas, alors créer label 1 (pour le positionnement du label et autres propriétés, pas de problèmes)

- Si label 1 existe, alors créer label 1 + 1 (label2) en dessous et ainsi de suite.

Pour vérifier l'existence des labels j'utilise label.caption = "".

Code :

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

1
2
3
Private Sub CommandButton4_Click()
UserForm11.Show
End Sub

Dans l'UserForm11 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim MyLb As Control
For I = 1 To 100
    Set MyLb = Me.Controls.Add("Forms.Label.1", "MyLb" & I)
    MyLb(I).Caption = "salut"
        If MyLb(I).Caption <> "" Then
             Set MyLb= Me.Controls.Add("Forms.Label.1", "MyLb" & I + 1)
        End If
Exit For
Next i
End Sub

Autre petit problème : s'il y a un grand nombre d'informations ajoutées, la liste des informations sera certainement plus grande que l'UserForm. Comment peut-on ajouter un scroll bar dans un UserForm (je connais bien sûr la propriété "ScrollsBar" mais ça ne fonctionne spécialement?!?)

Merci à vous!

Guilty

[Denis la Malice]

Bonjour,
l'ascenseur dans le formulaire n'est à mon avis pas la bonne solution.

Utilise plutôt une ListBox ou une ComboBox pour ajouter tes informations. Ces objets gèrent les ascenseurs (SrollBar).

[guilty_AL]

Merci pour votre réponse.

Dans l'exemple donné ci-dessus, je ne parle que d'un label par ligne (ou par information) mais en réalité, il y en aura 4. Je ne pense pas que ce soit faisable avec une listbox (?).

Il s'agit de créer en fait l'objet de l'UserForm avec implémentation via VBA. Pas toujours facile !

[Denis la Malice]

Les ListBox gèrent le multi-colonne. Il faut utiliser les propriétés :

• ColumnCount (nombre de colonnes, par exemple 4)
• BoundColumn (n° de la colonne pour la valeur renvoyée par défaut)
• ColumnWidth (Largeur des colonnes, par exemple "100 pt;100 pt;150 pt;50 pt")

Ton menu déroulant, est-ce une liste où tu voudrais que l'utilisateur choisisse 1 ou plusieurs éléments dans cette liste et qu'au final tu obtiennes l'ensemble des choix de l'utilisateur ?

Si c'est ça, tu peux utiliser le même objet (ListBox par exemple) avec l'option de multi-sélection. Par exemple utilise :

• MultiSelect = fmMultiSelectMulti
• ListStyle=fmListStyleOption

A la validation du formulaire, parcours les éléments de ta liste en testant la propriété "selected".

Mais j'ai peut-être mal compris ton besoin.