Bonjour,

Je travaille actuellement sur un projet sur vba où je fais une sorte de bibliothèque en ligne. J'ai donc créé dans un userform un ensemble de listbox où on voit le prix, le nom du livres et d'autres caractéristiques des livres correspondants aux critères recherchés.

Quand je sélectionne un livre dans la colonne livre, je cherche quelle ligne a été sélectionnée en faisant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub LB_titre_Click()
    Dim livre, Prix As String
    For i = 1 To LB_titre.ListCount
        If LB_titre.Selected(i) = True Then
            livre = LB_titre.List(i)
        End If
    Next i
End Sub
Où la variable livre est donc le livre sélectionné. Dans le userform suivant, j'ai besoin de la variable donnant le prix correspondant au livre sélectionné dans une Msgbox

J'ai donc essayé de définir la variable comme étant publique dans un module hors userform donc

Public Prix as String

et je lui ai donné la valeur Prix=LB_prix.List(i) dans le Private Sub LB_titre_Click, mais malheureusement la valeur de la variable ne s'affiche pas dans la MsgBox du Userform suivant

Merci pour votre aide !