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
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
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
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 !![]()
Partager