Listbox/TextBox

[Michel]

Salut le forum,

Voila mon problème, je voudrais récupérer une liste de nom qui se trouve dans la colonne B de ma feuille vers un listbox.

jusque la ça va, mais le problème c'est que j'ai dans les colonnes B,C,D,E... d'autres donnees que je voudrais afficher dans des textbox ou label.

ca bug a la ligne :

'LabelCode = Sheets('Jobs').Range('A' & VarSelectedArticle).Value

Mon code:

Private Sub ListBox1_Click()
Dim Ligne As Integer
Dim Cible1 As String
Dim plage As Variant
Dim C As Object
Dim Adresse As String
Dim VarSelectedArticle As Integer

Cible1 = UserForm1.ListBox1

'With Sheets('Jobs')
   ' plage = .Range('A3:B' & .Range('B5000').End(xlUp).Row)
'End With

Range('a1').Select
Ligne = Sheet1.Range('B' & '65536').End(xlUp).Row
Set plage = Sheet1.Range('B' & '3:' & 'B' & Ligne)

With plage
Set C = .Find(Cible1)
If Not C Is Nothing Then
Adresse = C.Address
Do
 VarSelectedArticle = C.Row
'Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With


'LabelCode = Sheets('Jobs').Range('A' & VarSelectedArticle).Value
'LabelCode = Sheets('Articles').Range('A' & VarSelectedArticle).Value
'Labelministock = Sheets('Articles').Range('E' & VarSelectedArticle).Value

End Sub

J'espère avoir été assez clair et je vous remercie pour les réponses

 

[PascalXLD]

Bonjour


Private Sub ListBox1_Click()
Dim Ligne As Integer
Dim Cible1 As String
Dim plage As Variant
Dim C As Object
Dim Adresse As String
Dim VarSelectedArticle As Integer

Cible1 = UserForm1.ListBox1


Range('a1').Select
Ligne = Sheets('Jobs').Range('B65536').End(xlUp).Row
Set plage = Sheets('Jobs').Range('B3:B' & Ligne)

With plage
Set C = .Find(Cible1,, LookAt:=xlWhole)
If Not C Is Nothing Then

VarSelectedArticle = C.Row
LabelCode = Sheets('Jobs').Range('A' & VarSelectedArticle).Value

End If
End With

End Sub


Fais attention tu as des habitudes 'bizarres' sur ce genre de ligne

Sheet1.Range('B' & '3:' & 'B' & Ligne)

Message édité par: Pascal76, à: 29/07/2005 13:31

 

[Michel]

Merci, ca marche !!