Pb dans une liste avec nom en double

[Bsm]

Bonjour à tous

J'affiche dans un UserForm une liste de nom avec le prénom.

Le but est que quand je clique sur un nom/prénom, celui-ci est affiché
sur ma feuille.

Cependant j'ai un pb avec les noms en doubles, c'est à dire que par ex je clique sur TOTO Marc ou TOTO Jacques, seul TOTO Marc s'affiche.

Si vous pouvez m'aider, car j'ai passé tout au peigne fin et je n'arrive pas à trouver la cause

Merci beaucoup
William

ps : ci joint le fichier

 

[Bsm]

Oups, désolé j'ai eu un pb avec mon fichier joint.


Par contre j'ai réduit au maximum ce que contient le classeur mais impossible d'être en dessous les 50 Ko, il fait 64 ko
Si quelqu'un à une astuce
merci encore
William

voici le code :

Option Explicit

Dim LigneAgent As Integer
Dim PlageAgent As String

Private Sub UserForm_Initialize()

LigneAgent = Sheets('BDD').Range('A501').End(xlUp).Row
PlageAgent = Sheets('BDD').Range('A3:B' & LigneAgent).Address

List_Nom_Agt.ColumnCount = 2
List_Nom_Agt.RowSource = 'BDD!' & PlageAgent
List_Nom_Agt.ColumnWidths = '80;80'
End Sub
' *************************
Private Sub List_Nom_Agt_Click()
'AFFICHE LES INFOS DANS LES TEXTBOX CORRESPONDANT
Dim PlageForm As Range
Dim Cell As Range

Set PlageForm = Sheets('BDD').Range('A2:F' & LigneAgent)
For Each Cell In PlageForm
If Cell.Value = List_Nom_Agt.Value Then
DS_A_01 = Cell.Offset(0, 0).Value
DS_A_02 = Cell.Offset(0, 1).Value
End If
Next Cell

' AFFICHE LES RESULTATS DANS LES CELLULES DU FORMULAIRE
With Sheets('FORMULAIRE_FORMATION')
.Range('B3') = DS_A_01
.Range('J3') = DS_A_02
End With
End Sub
' ***************************

Message édité par: Bsm, à: 08/10/2005 14:45