Discussion :

[chris09300]

bonjour
j'ai vu beaucoup de chose sur les listbox, mais ce n'est pas evident a mettre en place.
je cherche d'apres une feuille excel qui comporte 4 colonnes
Nº prenom nom date naissance
je souhaite faire afficher dans la listbox les 3 premieres colonnes.
quand on clique dans cette listbox sur le prenom, que s'affiche dans une textbox a cote de la listbox la date naissance.
si quelqu'un connais le code ou un tuto ou je pourrais comprendre comment faire, j'en serais enchante.
merci
chris

[chyps]

Bonjour,
voilà le code à coller dans la page de code de l'UserForm :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Option Explicit
 
Const LIGNE_DEBUT_LISTE As Integer = 1
Const LIGNE_FIN_LISTE As Integer = 10
 
Const COLONNE_NUMERO As Integer = 1
Const COLONNE_PRENOM As Integer = 2
Const COLONNE_NOM As Integer = 3
Const COLONNE_DATE As Integer = 4
 
Dim iLigne As Integer
 
 
 
Private Sub UserForm_Initialize()
    With ThisWorkbook.Sheets(1)
        ListBox1.ColumnCount = 3
        ListBox1.ColumnWidths = "20;60;60"
        For iLigne = LIGNE_DEBUT_LISTE To LIGNE_FIN_LISTE
            ListBox1.AddItem
            ListBox1.List(iLigne - 1, 0) = .Cells(iLigne, COLONNE_NUMERO).Value
            ListBox1.List(iLigne - 1, 1) = .Cells(iLigne, COLONNE_PRENOM).Value
            ListBox1.List(iLigne - 1, 2) = .Cells(iLigne, COLONNE_NOM).Value
        Next iLigne
    End With
    ListBox1.Selected(0) = True
End Sub
 
 
 
Private Sub ListBox1_Click()
    For iLigne = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(iLigne) = True Then
            TextBox_Date = ThisWorkbook.Sheets(1).Cells(iLigne + 1, COLONNE_DATE).Value
        End If
    Next iLigne
End Sub

Si tu as des questions sur ce code ou autres, n'hésite pas.
Christophe.

[chyps]

Si BD1 est le nom de la feuille contenant la liste alors
soit il faut écrire le nom entre guillemets :

Code :

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

1
2
 
ThisWorkbook.Sheets("BD1")...

ou écrire le numéro de la position de la feuille :

Code :

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

1
2
 
ThisWorkbook.Sheets(1)...

L'avantage d'écrire le numéro au lieu du nom entre guillemets est que l'on peut renommer la feuille sans avoir à se soucier du code.

J'imagine alors que la feuille BD1 n'est pas la première de ton classeur.

[chris09300]

non c'est la 3, j'ai une page menu, une BD et BD1 et autres derriere

[chyps]

essaye avec ce code alors :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Option Explicit
 
Const LIGNE_DEBUT_LISTE As Integer = 1
Const LIGNE_FIN_LISTE As Integer = 10
 
Const COLONNE_Nº As Integer = 1
Const COLONNE_PRENOM As Integer = 2
Const COLONNE_Nom As Integer = 3
Const COLONNE_datenaissance As Integer = 4
 
Dim iLigne As Integer
 
 
 
Private Sub UserForm_Initialize()
    With ThisWorkbook.Sheets(3)
        ListBox1.ColumnCount = 3
        ListBox1.ColumnWidths = "20;60;60"
        For iLigne = LIGNE_DEBUT_LISTE To LIGNE_FIN_LISTE
            ListBox1.AddItem
            ListBox1.List(iLigne - 1, 0) = .Cells(iLigne, COLONNE_Nº).Value
            ListBox1.List(iLigne - 1, 1) = .Cells(iLigne, COLONNE_PRENOM).Value
            ListBox1.List(iLigne - 1, 2) = .Cells(iLigne, COLONNE_Nom).Value
        Next iLigne
    End With
    ListBox1.Selected(0) = True
End Sub
 
 
 
Private Sub ListBox1_Click()
    For iLigne = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(iLigne) = True Then
            TextBox_datenaissance = ThisWorkbook.Sheets(3).Cells(iLigne + 1, COLONNE_datenaissance).Value
        End If
    Next iLigne
End Sub

[chris09300]

non cela ne marche pas avec sheets(1), quand je met BD1 a la place de mon userform s'affiche mais rien a l'interieur de la listbox

[chyps]

Il faut que tu remplace ton code par le dernière que je t'ai proposé,
j'y ai corrigé les numéro de feuille.