Utiliser une variable dans différents userform
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:
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 ! :)
