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

[NEC14]

Bonjour David2304,

Super ça marche, exactement ce que je voulais.
Merci beaucoup.

Je laisse l'exemple dans le cas où il pourrait servir à quelqu'un.

A+

[NEC14]

Bonjour à tous,

Je reviens sur ce post car je rencontre un problème.
Lorsque je choisi un adhérent et que celui-ci à 3 enfants, l'affichage se passe bien, mais lors du changement de Nom dans le Combo et quand celui-ci à un nombre inférieur d'enfant par rapport au précédent, les données se trouvant dans les TextBox ne sont pas mises à jour, seul le 1er enfant change, les autres restent indiqués.

Dans l'exemple que j'ai mis plus haut, prenez par exemple Fontaine Nathalie, elle a 3 enfants, ensuite choississez Feret Bertrand qui n'a qu'un seul enfant, le sien est bien indiqué, mais 2 des enfants de Fontaine restent indiqués.
Comment peux-t'on modifier cela avec le code fournit par David ?
Merci par avance

[laetitia]

bonjour nec le fil essai comme cela

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
Private Sub TNew4_Change()
Dim adherent As Variant
Dim num As Variant
Dim x As Byte
For x = 1 To 30: Controls("T" & (x)) = "": Next x
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

[NEC14]

Bonjour laetitia,

Merci ça marche. Mais pourquoi cette tristesse dans le smiley ?
A+

[ouskel'n'or]

Il serait plus économique d'utiliser Find -> F1 pour comprendre
Le principe :
Recherche en boucle, dans la colonne du nom, du nom sélectionné dans le combobox, puis utilisation du code de David.
Pour la recherche en boucle, tu as le code dans l'aide en ligne, à Find. Simplement, tu remplaces partour c par adherent.
Certainement plus rapide que l'examen ligne par ligne
Bonne journée

[NEC14]

Tu as raison ouske'l'nor.
A+