Discussion :

[NEC14]

Bonjour,

Dans le fichier que je joins, j'ai une liste d'adhérents dans la feuille "Enf".
En cliquant sur le bouton rouge, un UserForm apparaît.
En cliquant sur la Combo une liste de nom.
Je voudrais mettre en place le code me permettant de remplir toutes les ListBox de l'User en fonction du nom choisi.

Par exemple : Je choisi "Fontaine Nathalie", alors tous les enfants qui lui sont rattachés doivent apparaître dans les différentes listes.

Je sais le faire lorsque les infos sont sur la même ligne, mais pas lorsque celles-ci sont les unes en dessous des autres.

Pouvez-vous me donner un petit coup de main s'il vous plait ?

Je vous en remercie par avance

[laetitia]

rebonjour nec le forum
pourquoi des listbox et pas des textbox ou eventuellement des labels???

[NEC14]

Laetitia,

J'utilise toujours des ListBox, peut-être par habitude.
Mais peut importe, c'est le résultat qui compte et si tu as une solution avec une autre méthode, pourquoi pas

[laetitia]

re nec c est plus facile de travailler sur une textbox
j ai pas le temps aujourd hui si pas de reponse demain j essairais de batir ton user
la premiere chose pour alim.. ta combo tu peus l ecrire comme cela tres rapide en utilisant
object("Scripting.Dictionary")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Private Sub UserForm_Initialize()
Dim T, z As Variant, l As Object, i As Long, j As Long, temp As String
On Error Resume Next
Set l = CreateObject("Scripting.Dictionary")
T = Range("C3:C" & Range("C65536").End(xlUp).Row)
For i = LBound(T) To UBound(T)
l.Add T(i, 1), T(i, 1): Next
For Each z In l
TNew4.AddItem z: Next
For i = 0 To TNew4.ListCount - 1
For j = 0 To TNew4.ListCount - 1
If TNew4.List(i) < TNew4.List(j) Then
temp = TNew4.List(i)
TNew4.List(i) = TNew4.List(j)
TNew4.List(j) = temp
End If: Next j: Next i: TNew4 = ""
End Sub

salutations

[NEC14]

Le code concernant le Combo est mis en place dans l'exemple fournit.
Par contre pour alimenter les TextBox selon le choix fait dans le Combo, là je peine.

J'ai remplacé les ListBox par des TextBox

[David2304]

Bonjour,

il y a surement mieux mais ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub TNew4_Change()
Dim adherent As Variant
Dim num As Variant
num = 1
For Each adherent In Range("C3:C" & Range("C" & Rows.Count).End(xlUp).Row)
If adherent = TNew4.Value Then
Controls("T" & num).Value = adherent.Offset(0, 2)
Controls("T" & num + 1).Value = adherent.Offset(0, 3)
Controls("T" & num + 2).Value = adherent.Offset(0, 4)
Controls("T" & num + 3).Value = adherent.Offset(0, 7)
Controls("T" & num + 4).Value = adherent.Offset(0, 5)
num = num + 5
End If
Next
End Sub