Comment alimenter des Textbox à partir d'un Combo ?

Version imprimable

19/02/2009, 11h36
NEC14

Comment alimenter des Textbox à partir d'un Combo ?

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
19/02/2009, 13h09
laetitia

rebonjour nec le forum
pourquoi des listbox et pas des textbox ou eventuellement des labels???
19/02/2009, 13h21
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

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:

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

19/02/2009, 14h01
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

Bonjour,

il y a surement mieux mais ça fonctionne

Code:

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

19/02/2009, 16h46
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+:P
20/02/2009, 09h07
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

bonjour nec le fil essai comme cela

Code:

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

20/02/2009, 09h28
NEC14

Bonjour laetitia,

Merci ça marche. Mais pourquoi cette tristesse dans le smiley ?
A+
20/02/2009, 09h29
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
20/02/2009, 10h23
NEC14

Tu as raison ouske'l'nor.
A+