P
Patrice
Guest
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
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