Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

PB listbox Userform

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
 
A

albert

Guest
bonjour cedric,
le moteur de recherche ne trouve pas USFListBoxTextrBox.xls
j'envoie un zip, tu peux préciser ce que tu cherches

albert
 

Pièces jointes

  • liste.zip
    12.3 KB · Affichages: 87
  • liste.zip
    12.3 KB · Affichages: 109
  • liste.zip
    12.3 KB · Affichages: 78

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
10
Affichages
665
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…