afficher une valeur dans une textbox en fonction d'une listbox

Version imprimable

15/06/2015, 07h42
MatthieuT42

1 pièce(s) jointe(s)

afficher une valeur dans une textbox en fonction d'une listbox

Bonjour à tous,

je vous présente mon classeur puis mon problème.

Je possède 3 classes qui sont répartit en 4 groupes.
listbox1 est la selection de la classe : A, B ou C
listbox2 est la section en fonction de listbox 1 du groupe : Aa, Ba,Ca,Da,Ab,Bb....Dc
Listbox3 est la selection de l'élève en fonction de la classe et du groupe : Classe A, Gr Aa : élève Aa1..........

Dans mon Excel, les élèves sont repartit dans les colonnes A,C,E,G et leur emplacement respectif dans les colonnes B,D,F,H

Mon problème : lors de la selection de l'élève je veux faire apparaitre une textbox avec l'emplacement de l'élève.

Exemple : si on selectionne l'élève Cb3 (feuille excel 2, cellule E6) alors la textbox affiche la cellule F6 de cette même feuille.
15/06/2015, 09h36
Docmarti

Bonjour.

Essaie

Code:

TextBox1.Value = Range(ListBox3.RowSource).Cells(ListBox3.ListIndex + 1, 1).Offset(, 1).Value

Super ça fonctionne parfaitement sur ce programme. Vraiment merci.

(Par contre sur mon vrai programme, qui est une bibliothèque qui référence les outils de métrologie ça me met une erreur)

Code:

1
2
3
4
5
6
7
8
Private Sub ListBox1a_Click()
 
LabelNom.Visible = True
LabelNom.Caption = "emplacement"
TextBoxNom.Visible = True
CommandButton6.Visible = False
 
TextBoxNom.Value = Range(ListBox1a.RowSource).Cells(ListBox1a.ListIndex + 1, 1).Offset(, 1).Value

est-ce possible que l'erreur vienne du fait que j'alimente la listbox1a de cette manière ?
Seulement avec cette méthode je pouvais en fonction d'une liste dans Excel changer les éléments de listbox1a à listbox1b en fonction de leurs disponibilités.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub ListBoxC_Click()
ListBox1a.Clear
ListBox1b.Clear
MultiPage1.Visible = True
 
CommandButton6.Visible = False
 
Dim rngA As Range, rngB As Range, rngC As Range
 
  Select Case Me.ListBoxC.ListIndex
    Case 0
      Set rngA = Range("Feuil8!A757:A769")
    Case 1
      Set rngA = Range("Feuil8!C757:C769")
    Case 2
      Set rngA = Range("Feuil8!E757:E769")
    Case 3
      Set rngA = Range("Feuil8!G757:G769")
    Case 4
      Set rngA = Range("Feuil8!I757:I769")
    Case 5
      Set rngA = Range("Feuil8!K757:K769")
    Case 6
      Set rngA = Range("Feuil8!M757:M769")
    Case 7
      Set rngA = Range("Feuil8!O757:O769")
    Case 8
      Set rngA = Range("Feuil8!Q757:Q769")
    Case 9
      Set rngA = Range("Feuil8!S757:S769")
    Case 10
      Set rngA = Range("Feuil8!U757:U769")
  End Select
 
  For Each rngB In rngA.Cells
    Set rngC = Range("FEUIL3!H2:H66999").Find(rngB, , , xlWhole)
      If rngC Is Nothing Then
        Me.ListBox1a.AddItem rngB
      Else
        Me.ListBox1b.AddItem rngB
      End If
  Next rngB
 
End Sub

15/06/2015, 16h43
Docmarti

Bonjour

Ici tu utilises la méthode AddItem et non pas RowSource. C'est sûr que si on n'utilise pas la propriété RowSource pour remplir le contrôle Listbox, on ne peut pas utiliser la propriété RowSource pour savoir d'où proviennent les données.

Une solution serait de créer une ListBox multicolonnes. ( Voir comment dans ce tutoriel :http://silkyroad.developpez.com/VBA/ControlesUserForm/)

Ce qui te permettrait d'inclure immédiatement dans la seconde colonne du Listbox, les infos supplémentaires concernant chacun des items du Listbox.

D'accord, donc une fois ma listbox à deux colonne crée, comment dois-je tourner mon code en rowsource ?

Code:

1
2
3
4
5
6
7
8
9
10
11
 
  For Each rngB In rngA.Cells
    Set rngC = Range("FEUIL3!H2:H66999").Find(rngB, , , xlWhole)
      If rngC Is Nothing Then
        Me.ListBox1.AddItem rngB
      Else
        Me.ListBox1.list(ListBox1.ListCount - 1, 1).AddItem rngB
      End If
  Next rngB
 
End Sub

Ce serait mieux comme ceci pour que les ListBox contiennent toutes les infos:

Code:

1
2
3
4
5
6
7
8
9
10
For Each rngB In rngA.Cells
    Set rngC = Worksheets("Feuil3").Range("E2:E6000").Find(rngB, , , xlWhole)
      If rngC Is Nothing Then
        Me.ListBox1.AddItem rngB
        Me.ListBox1.List(ListBox1.ListCount - 1, 1) = rngB.Offset(, 1)
      Else
        Me.ListBox2.AddItem rngB
        Me.ListBox2.List(ListBox2.ListCount - 1, 1) = rngB.Offset(, 1)
      End If
  Next rngB

17/06/2015, 07h59
MatthieuT42

Si je comprends bien, mes deux listboxs contiennent 2 colonnes ? pourquoi ?

Et je n'arrive pas à faire fonctionner le code

Code:

TextBox1.Value = Range(ListBox1.RowSource).Cells(ListBox1.ListIndex + 1, 1).Offset(, 1).Value

avec ton nouveau code :?

encore merci pour ton aide

Cordialement
17/06/2015, 14h40
Docmarti
Citation:

Envoyé par MatthieuT42

Si je comprends bien, mes deux listboxs contiennent 2 colonnes ? pourquoi ?

On met dans la deuxième colonne une information utile qu'on peut retrouver simplement par
Code:

1 2 3 Private Sub ListBox1_Click() TextBox1 = ListBox1.List(ListBox1.ListIndex, 1) End Sub
Citation:

Envoyé par MatthieuT42

Et je n'arrive pas à faire fonctionner le code

Code:

TextBox1.Value = Range(ListBox1.RowSource).Cells(ListBox1.ListIndex + 1, 1).Offset(, 1).Value

Question intéressante!

Si on utilise AddItem, on ne peut pas utiliser la propriété RowSource. C'est soit l'un, soit l'autre.
Mais ca ne cause pas de problème : on peut utiliser une colonne du ListBox pour y placer le Rowsource respectif de chaque élément du ListBox.
Code:

1 2 3 Me.ListBox1.AddItem rngB Me.ListBox1.List(ListBox1.ListCount - 1, 1) = rngB.Parent.Name & "!" & rngB.Address
Ensuite on récupère facilement n'importe quel élément de la ligne d'origine
Code:

1 2 Private Sub ListBox1_Click() TextBox1.Value = Range(ListBox1.List(ListBox1.ListIndex, 1)).Offset(, 1)
18/06/2015, 08h03
MatthieuT42

Bonjour,

Je pense qu'on se rapproche du but

Après avoir intégré tes codes il subsiste une erreur

Code:

Me.ListBoxA1a.List(ListBoxA1a.ListCount - 1, 1) = rngB.Parent.Name & "!" & rngB.Address

m'affiche dans la deuxième colonne de ma listbox : Feuil5!$A$8, Feuil5!$A$9 .......

du coup j'ai essayé de laisser :

Code:

Me.ListBoxA1a.List(ListBoxA1a.ListCount - 1, 1) = rngB.Offset(, 1)

Mais dans la deuxième colonne il n'affiche plus rien !

Dans les deux cas il ne s'affiche rien dans ma textbox, je pense que si on arrive à faire apparaitre ce que l'on veut dans la colonne 2 de la listbox, ma textbox affichera la bonne valeur

Sinon j'avais pensé à un code du genre :

Code:

Me.ListBoxA1a.List(ListBoxA1a.ListCount - 1, 1).RowSource = rngB

pour intégrer rowsource mais il ne fonctionne pas

encore merci pour ta patience

cordialement

Bonjour,
As-tu bien lu la dernière intervention de Docmarti ?

Citation:

Si on utilise AddItem, on ne peut pas utiliser la propriété RowSource. C'est soit l'un, soit l'autre.

C'est la même chose avec List

Voici un petit exemple de la procédure événementielle Initialize qui permet de visualiser les deux méthodes
Méthode 1 : Utilisation de la méthode AddItem et de la propriété List
Méthode 2 : Utilisation de la propriété RowSource

La plage utilisée est sur une feuille nommée [Pays] de $A$2:$B$7 plage, les étiquettes de colonnes étant en $A$1:$B$1
Les données Colonne A, les capitales, en colonne B les pays
Le UserForm a un contrôle ListBox nommé lstCity
L'utilisation de la propriété RowSource permet d'afficher les étiquettes de colonnes (propriété ColumnHeads à TRUE)
La procédure
Pour tester, modifier la valeur de la variable Method (1 ou 2).
Pour la méthode 1, modifier la variable Visible pour afficher ou pas l'adresse complète de l'enregistrement ([Classeur]Feuille!AdresseAbsolueCellule) affiché dans la liste
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub UserForm_Initialize() Dim rng As Range, row As Long, Visible As Boolean, Method As Byte Set rng = ThisWorkbook.Worksheets("Pays").Range("A2:B7") ' Paramètres Method = 1 Visible = False ' pour méthode 1, affichera ou pas la colonne 1 du ListBox ' Utilisation de RowSource ou AddItem & List Select Case Method Case 1 ' AddItem & List With lstCity .ColumnCount = 3: .ColumnWidths = IIf(Visible, "120;50;50", "0;50;50") For row = 1 To rng.Rows.Count .AddItem rng.Cells(row, 1).Address(external:=True) ' Adresse .List(row - 1, 1) = rng.Cells(row, 1) ' Capitale .List(row - 1, 2) = rng.Cells(row, 2) ' Ville Next End With Case 2 With lstCity .RowSource = rng.Address(external:=True) ' Equiv "[Classeur]Pays!$A$2:$B$7" .ColumnHeads = True .ColumnCount = 2 End With End Select End Sub

bonjour Philippe

Citation:

As-tu bien lu la dernière intervention de Docmarti ?

J'avais compris qu'on ne pouvait pas les utiliser ensemble, mais en créant un listbox à deux colonne on alimentait la première avec additem et la deuxième avec rowsource ce qui permettait d'utiliser la première pour réaliser ce code
Code:

1 2 3 4 5 6 7 8 9 10 For Each rngB In rngA.Cells Set rngC = Range("FEUIL3!H2:H66999").Find(rngB, , , xlWhole) If rngC Is Nothing Then Me.ListBox1.AddItem rngB Else Me.ListBox1.list(ListBox1.ListCount - 1, 1).AddItem rngB End If Next rngB End Sub
et la deuxième colonne pour réaliser celui la :

Code:

TextBox1.Value = Range(ListBox1.RowSource).Cells(ListBox1.ListIndex + 1, 1).Offset(, 1).Value

avais-je mal compris ?

Pourrais tu joindre un fichier exemple pour ton exemple, je ne comprend pas entièrement comment je peux le retranscrire pour mon programme.

Merci pour ta réponse et bonne journée.

Cordialement

18/06/2015, 09h39
Philippe Tulliez

Bonjour,

Citation:

J'avais compris qu'on ne pouvait pas les utiliser ensemble, mais en créant un listbox à deux colonne on alimentait la première avec additem et la deuxième avec rowsource ce qui permettait d'utiliser la première pour réaliser ce code

Non, on gère une ou plusieurs colonnes avec la propriété RowSource
Si on utilise la méthode AddItem, c'est la propriété List qui permet d'ajouter les autres colonnes.
Pour les deux cas, l'affichage de plusieurs colonnes est définie par la propriété ColomnCount et ColumnWidths pour la largeur des colonnes.
Voir ligne

Code:

.ColumnCount = 3: .ColumnWidths = IIf(Visible, "120;50;50", "0;50;50")

Citation:

Pourrais tu joindre un fichier exemple pour ton exemple, je ne comprend pas entièrement comment je peux le retranscrire pour mon programme.

Mon fichier exemple se résume à un classeur d'une feuille nommée [Pays] avec une plage de données A1:B7 soit une ligne de titre (Capitale, Pays) et six lignes de données (colonne A les capitales, colonne B les pays)
Un UserForm avec un contrôle ListBox nommé lstCity.
Dès que tu a créé ce formulaire et entré les données (moins de 10 minutes), tu copies/colles la procédure que j'ai publiée et le tour est joué.
Pour les tests modifier la variable Method et Visible (pour la méthode 1)
18/06/2015, 10h09
MatthieuT42

Je viens de creer ton classeur mais il doit y avoir une erreur car il ne fonctionne pas

Encore merci

cordialement

Sinon n'y aurait il pas un moyen de transformer ce code pour qu'il fonctionne avec additem :

Code:

TextBox1.Value = Range(ListBox1.RowSource).Cells(ListBox1.ListIndex + 1, 1).Offset(, 1).Value

il faut que lorsque l'on click sur l'élément de la listbox1 qui imaginon est est positionné "Feuil1!A1" alors une textbox affiche l'élément positionné dans la colonne de droite (feuil1!A2)

Bonjour,

Citation:

Je viens de creer ton classeur mais il doit y avoir une erreur car il ne fonctionne pas

C'est que tu n'as pas respecté les consignes (Nom de la feuille, plage de données) ou sur le formulaire oublié de renommé le contrôle ListBox
"ne fonctionne pas" cela n'aide vraiment pas. Un peu plus de précision te permettra d'avancer.

Citation:

Sinon n'y aurait il pas un moyen de transformer ce code pour qu'il fonctionne avec additem :

As-tu examiné le code que j'ai publié (ligne 10 à 17) ?
Code:

1 2 3 4 5 6 7 8 With lstCity .ColumnCount = 3: .ColumnWidths = IIf(Visible, "120;50;50", "0;50;50") For row = 1 To rng.Rows.Count .AddItem rng.Cells(row, 1).Address(external:=True) ' Adresse .List(row - 1, 1) = rng.Cells(row, 1) ' Capitale .List(row - 1, 2) = rng.Cells(row, 2) ' Ville Next End With
lstCity est le nom du contrôle ListBox, rng est une variable objet qui est la plage de données (dans mon exemple A2:B7)
La boucle For row = 1 To rng.Rows.Count parcourt toutes les lignes des données et ajoute (AddItem) l'adresse de la cellule de la colonne 1 de la ligne (Row) et ensuite ajoute les autres colonnes de la même ligne avec la propriété List

Si mes explications ne sont pas claires, je te conseille la lecture de Utiliser les contrôles dans un UserForm, en VBA Excel

Voici un autre exemple
Un UserForm avec les contrôles
ListBox nommé lstCity et 3 TextBox, nommés respectivement lstAddress, lstCountry, lstCapital
Deux feuilles dans le classeur nommées [Europe] et [Afrique] avec chacune leur liste de données avec deux colonnes (Colonne A Pays, Colonne B les capitales)
Le programme parcourt toutes les feuilles du classeur et si le nom des feuilles parcourues sont égales à europe ou afrique alors lecture les enregistrements de la liste à partir de la ligne 2
Dès que l'on sélectionne un élément de la liste, les TextBox sont alimentés par les données de l'enregistrement

Procédures à copier/coller dans la partie code du UserForm
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Option Explicit Private Sub lstCity_Click() With Me .txtAddress = .lstCity.List(.lstCity.ListIndex, 0) .txtCountry = .lstCity.List(.lstCity.ListIndex, 1) .txtCapital = .lstCity.List(.lstCity.ListIndex, 2) End With End Sub Private Sub UserForm_Initialize() Dim rng As Range, sht As Worksheet Dim Elem, row As Long, Visible As Boolean Set rng = ThisWorkbook.Worksheets("Pays").Range("A2:B7") For Each sht In ThisWorkbook.Worksheets Select Case LCase(sht.Name) Case "europe", "afrique" Set rng = sht.Range("A1").CurrentRegion ' Paramètres Visible = False ' Affichera ou pas la colonne 1 du ListBox With lstCity .ColumnCount = 3: .ColumnWidths = IIf(Visible, "120;50;50", "0;50;50") For row = 2 To rng.Rows.Count .AddItem rng.Cells(row, 1).Address(external:=True) ' Adresse .List(Elem, 1) = rng.Cells(row, 1) ' Ville .List(Elem, 2) = rng.Cells(row, 2) ' Capitale Elem = Elem + 1 Next row End With End Select Next sht End Sub

18/06/2015, 11h35
MatthieuT42

Oui désolé j'avais oublié de renommer la feuille.

Je ne l'avais pas compris comme ça, mais la tes explications ont été très claires.
Merci je vais essayer de le rentrer dans mon programme.

Je reviendrai si j'ai d'autres questions.

Bonne journée philippe.

pour le deuxième programme avec europe et afrique, qui je pense va m'ettre très utile.

Citation:

3 TextBox, nommés respectivement lstAddress, lstCountry, lstCapital

dans ton programme c'est txtAddress , txtCountry et txtCapital

Citation:

ligne 12 :

Code:

Set rng = ThisWorkbook.Worksheets("Pays").Range("A2:B7")

tu as dis que les deux feuilles s'appelait "Europe" et "afrique", le programme ne reconnait donc pas la feuille Pays, il faut que je change quoi dans le code ci-dessus ?
18/06/2015, 11h45
Philippe Tulliez

Bonjour,

Citation:

tu as dis que les deux feuilles s'appelait "Europe" et "afrique", le programme ne reconnait donc pas la feuille Pays, il faut que je change quoi dans le code ci-dessus ?

Il s'agit d'autres procédures dont j'ai publié l'ensemble et expliqué en long et en large l'organisation des feuilles et la liste des contrôles du formulaire ainsi que leur nom.
Plus que cela c'est difficile. Il faut lire les réponses dans leur entièreté.