C
Cedric
Guest
Bonjour a tous.
Voilà, j'ai un petit problème avec une listbox dans un userform.
J'ai surfé un peu sur le site et j'ai trouvé le fichier USFListBoxTextrBox.xls réalisé par Thierry.
Mon pb est en fait un pb de syntaxe. Je suis débutant en VBA et j'avoue que ce n'est pas trés évident.
Je voudrais récupérer la plage de données J3 à J100 (par exemple) de la feuille nommée "essai user" et l'afficher dans la Listbox.
D'aprés ce que j'ai vu il me faut:
Option Explicit
Dim DerLigne As Integer
Dim PlageList As String
--------------------------------------------------------------------
Private Sub UserForm1_Initialize()
PlageList = Sheets(2).Range("J3:J100").Address
ListBox1.RowSource = "essai user!" & PlageList
ListBox1.ColumnWidths = "2 cm"
End Sub
-------------------------------------------------------------------
Private Sub ListBox1_Click()
Dim Plage As Range
Dim Cell As Range
Set Plage = Sheets(2).Range("J1:J100")
For Each Cell In Plage
If Cell.Value = ListBox1.Value Then
End If
Next Cell
End Sub
-------------------------------------------------------------------
Mais ca ne marche pas, je pense que cela vient du Sheets(2).Range.....
(d'ailleurs, que veut dire ce 2?).
Et enfin je voudrais aussi savoir quelle est la ligne de code pour lier une cellule à cette liste (comme une liste de choix excel ds une page). Lorsque je choisis un champ de la liste, ca affiche le numéro correspondant dans une cellule de mon choix.
Merci d'avance
Merci d'avance
Voilà, j'ai un petit problème avec une listbox dans un userform.
J'ai surfé un peu sur le site et j'ai trouvé le fichier USFListBoxTextrBox.xls réalisé par Thierry.
Mon pb est en fait un pb de syntaxe. Je suis débutant en VBA et j'avoue que ce n'est pas trés évident.
Je voudrais récupérer la plage de données J3 à J100 (par exemple) de la feuille nommée "essai user" et l'afficher dans la Listbox.
D'aprés ce que j'ai vu il me faut:
Option Explicit
Dim DerLigne As Integer
Dim PlageList As String
--------------------------------------------------------------------
Private Sub UserForm1_Initialize()
PlageList = Sheets(2).Range("J3:J100").Address
ListBox1.RowSource = "essai user!" & PlageList
ListBox1.ColumnWidths = "2 cm"
End Sub
-------------------------------------------------------------------
Private Sub ListBox1_Click()
Dim Plage As Range
Dim Cell As Range
Set Plage = Sheets(2).Range("J1:J100")
For Each Cell In Plage
If Cell.Value = ListBox1.Value Then
End If
Next Cell
End Sub
-------------------------------------------------------------------
Mais ca ne marche pas, je pense que cela vient du Sheets(2).Range.....
(d'ailleurs, que veut dire ce 2?).
Et enfin je voudrais aussi savoir quelle est la ligne de code pour lier une cellule à cette liste (comme une liste de choix excel ds une page). Lorsque je choisis un champ de la liste, ca affiche le numéro correspondant dans une cellule de mon choix.
Merci d'avance
Merci d'avance
