PB avec "Set Plage"

[Patrice]

Bonjour le forum,
Je suis embêté par ma macro qui ne fonctionne pas !!!
J'ai dans mon userform une listebox avec 5 colonne et la valeur de la dernière doit s'afficher dans une textbox lorsque je sélectionne une ligne avec la souris.
Voici la syntaxte :

Private Sub ListBox1_Click()
Dim Plage As Range
Dim Cell As Range
Set Plage = Sheets(MaListe).Range('E2:E200')
For Each Cell In Plage
If Cell.Value = ListBox1.Value Then
TextBox1 = Cell.Offset(0, 5).Value
End If
Next Cell
End Sub

Le déboguage me précise que 'Set' est en cause. Que dois-je faire ?
Je vous remercie d'avance.
Patrice

 

[ChTi160]

salut Patrice
je pense le problème viens de Ce que ta phrase n'est pas correcte
tu as Set Plage = Sheets(MaListe).Range('E2:E200')
il faut
Set Plage = Sheets('MaListe').Range('E2:E200')

 

[Patrice]

Bonjour Jean Marie
Je te remercie pour ta réponce.
Aussi, c'est là une erreur de recopie, la syntaxe ('MaList'!) est correcte dans ma macro. Le pb est ailleurs !!!
Bonne journée.
Patrice

 

[ChTi160]

re
quel message d'erreur as tu?
il n'est pas evident de reproduire l'ensemble des éléments Listbox etc si tu peux met un fichier Light en pièce jointe cela est plus simple pour aider

 

[myDearFriend!]

Bonsoir Patrice, ChTi160,

Aussi, c'est là une erreur de recopie, la syntaxe ('MaList'!) est correcte dans ma macro. Le pb est ailleurs !!!

Si je peux me permettre, à moins qu'il s'agisse là d'une nouvelle erreur de recopie... il ne faut pas mettre de '!' après le nom de la feuille ici.

Cordialement,

 

[ChTi160]

Salut Didier

Fectivement s'il a mis un point D'exclamation ,ca peut pas marcher Hein !!!!!!!!!!!!!!!!! Lol

merci de ta vigilence et de tes très nombreux conseils
bon Week End

 

[ChTi160]

re

j'ai bidouillé cela que j'ai testé sur d'autre valeur En A2:A10

et cela fonctionne
si je click sur une ligne de la ListBox si la valeur de la colonne 1 de ma listbox se trouve dans la colonne A le textBox prend la valeur de la cellule correspondante en colonne B

J'ai remis tes Valeurs dans la procèdure

Private Sub ListBox1_Click()
Dim Plage As Range
Dim Cell As Range
Set Plage = Sheets('Feuil1').Range('E2:E200')
For Each Cell In Plage
If Cell.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0) Then
Me.TextBox1 = Cell.Offset(0, 5).Value
End If
Next Cell
End Sub

tiens nous au courant

 

[ChTi160]

re
je te joins le fichier que j'ai bidouillé cela est peut être plus pratique pour toi [file name=Text_ListBox.zip size=11326]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Text_ListBox.zip[/file]