PB avec "Set Plage"

ChTi160

XLDnaute Barbatruc

• 20 Août 2005

• #2

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')

 

Vote positif 0 Vote négatif

P

Patrice

Guest

• 20 Août 2005

• #3

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Août 2005

• #4

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

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 20 Août 2005

• #5

Bonsoir Patrice, ChTi160,

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

Cliquez pour agrandir...

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,

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Août 2005

• #6

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Août 2005

• #7

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

Code:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Août 2005

• #8

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]

 

Pièces jointes

• Text_ListBox.zip

  11.1 KB · Affichages: 14

Vote positif 0 Vote négatif