Reprise d'une valeur présente dans une listbox

[JCA06]

Bonjour le Forum,

Quand je vous disais que je me remettais dans les macros !

J'ai un petit soucis avec la récupération d'une valeur d'une ListBox :

Lorsque je charge mon USF, ma ListBox2 (catégories) présente la valeur correspondant à ma cellule B5 (ex: 10) :

With Me.ListBox2
.ColumnCount = 2
.ColumnWidths = "20;95"
.RowSource = "Tables!" & Plage2
.Value = Sheets("Simulation").Range("B5").Value
End With

Jusque là, tout va bien : la liste s'affiche correctement et montre bien la reprise de la valeur de B5.
Le problème se présente si je valide en conservant la même valeur de cette listbox :

Private Sub CommandButton1_Click()

If ListBox2.ListIndex = -1 Then MsgBox "Veuillez choisir une catégorie": Exit Sub
If Indice.Value = "" Then MsgBox "Veuillez saisir un indice": Exit Sub
Sheets("Barème").Range("B4").Value = Me.ListBox1.Column(0, Me.ListBox1.ListIndex)
Sheets("Barème").Range("C3").Value = Me.ListBox1.Column(1, Me.ListBox1.ListIndex)
Sheets("Simulation").Range("B5").Value = Me.ListBox2.Value
Sheets("Simulation").Range("B7").Value = Me.Indice.Value

Unload UserForm1

End Sub

Dans ce cas là, la valeur de B5 est effacée, alors que si je clique sur une autre valeur ou sur la valeur déjà affichée avant de valider, je récupère bien l'information.

Vous savez pourquoi vous ??

 

[JCA06]

Ne vous dérangez pas ! J'ai trouvé !

J'ai modifier la ligne de reprise de valeur dans ce sens :
Sheets("Simulation").Range("B5").Value = Me.ListBox2.Column(0, Me.ListBox2.ListIndex)

Le problème devait venir du fait que cette listbox comprenait deux colonnes.

Désolé pour ceux qui se sont creusé la tête !